Вырезать\Обрезать\Скопировать Часть Stream

[IvaniuS]

Собственно сабж, пару древних тем видел, понял уже что только через SetSize можно обрезать КОНЕЦ Stream, но вот как скопировать кусок или
обрезать текущий что-то не пойму.
Параметры:
8323 - то что мне нужно, обычно оно в конце, точнее всегда.
Размер Mem до 60000 в начале идет мусор и в конце мои данные.

      if mem.size>8323 then
        begin
          TempMem:=TMemoryStream.Create;
          try           
            mem.position:=mem.size-8323;
            TempMem.CopyFrom(mem,8323);//тут всегда ошибка, почему-то, работает только LoadFromStream
            TempMem.SetSize(8323);
            TempMem.SaveToFile(Sett.ControlName+'1');
          finally
            TempMem.free;
          end;
        end;

[min@y™]

Ясен пень ошибка. Хэлп про copyfrom() прочитай.

[Stilet]

тут всегда ошибка

Какая?......

[IvaniuS]

"Stream read error"
ошибка, по байтно я знаю как сделать или через буфер, но не хочу использовать эти велосипеды, в теории можно сделать как-то так:

var
baBuf: array [0..8323] of byte;
begin
mem.seek(mem.size-8323,soFromBeginning);
mem.WriteBuffer(baBuf,8323);//<<<<<<<Stream read error
TempMem.ReadBuffer(baBuf,8323);
TempMem.SaveToFile....
end;

[Stilet]

А ты уверен что у тебя в потоке байт больше чем 8323?

[IvaniuS]

Да я size всегда проверяю Там у меня бывает "reserved size 65798", а бывает ровно 8323 без мусора...
Нагуглил сейчас пытаюсь вот эту процедуру переделать

procedure CutFromStream(Stream: TStream; Start, Length: Int64);
var
  Buffer: Pointer;
  BytesToRead: Int64;
  BytesRemaining: Int64;
  SourcePos, DestPos: Int64;
begin
  SourcePos := Start+Length;
  DestPos := Start;
  BytesRemaining := Stream.Size-SourcePos;
  GetMem(Buffer, BytesRemaining);
  try
      BytesToRead := BytesRemaining;
      Stream.Position := SourcePos;
      Stream.ReadBuffer(Buffer^, BytesToRead);
      Stream.Position := DestPos;
      Stream.WriteBuffer(Buffer^, BytesToRead);
      inc(SourcePos, BytesToRead);
      inc(DestPos, BytesToRead);
      dec(BytesRemaining, BytesToRead);
    Stream.Size := DestPos;
  finally
    FreeMem(Buffer, BytesRemaining);
  end;
end;

Переписал ее вот так:

procedure CutFromStream(Stream: TStream; Start, Length: Int64);
var
  Buffer: Pointer;
  BytesToRead: Int64;
  BytesRemaining: Int64;
  SourcePos, DestPos: Int64;
begin
  SourcePos := Start+Length;
  BytesRemaining := Length;
  GetMem(Buffer, BytesRemaining);
  try
      Stream.Position := SourcePos;
      Stream.ReadBuffer(Buffer^, BytesRemaining);
      Stream.Position := soFromBeginning;
      Stream.WriteBuffer(Buffer^, BytesRemaining);
      Stream.Size := Length;
  finally
    FreeMem(Buffer, BytesRemaining);
  end;
end;

[min@y™]

Нацарапал за 2 минуты. Юзай.

unit uMyStreams;

interface

uses Classes;

type
  TMemoryStreamEx = class(TMemoryStream)
  public
    function CanRead(const AOffset, ASize: UInt64): Boolean;
    function CanWrite(const AOffset: UInt64): Boolean;
  end;

implementation

{ TMemoryStreamEx }

function TMemoryStreamEx.CanRead(const AOffset, ASize: UInt64): Boolean;
begin
  Result:= Size >= AOffset + ASize;
end;

function TMemoryStreamEx.CanWrite(const AOffset: UInt64): Boolean;
begin
  Result:= AOffset <= Size;
end;

end.

ВНИМАНИЕ!
УВАГА!!
АХТУНГ!!!
АТТЕНШН!!!!
Shit-code detected!
Код не отлаживал. Писал на заборе!

[IvaniuS]

Зачем мне это?
у меня стоит

if mem.size>8323 then
        begin
...

Что это вообще такое, вы тему прочитали, вопрос в том чтобы ВЫРЕЗАТЬ КУСОК или УДАЛИТЬ части данных Steam.

[min@y™]

Мы тему прочитали и прекрасно поняли.
И написали тебе класс, не позволяющий допустить ошибку stream read (write) error.
А ты хотел, чтобы мы за тебя всю-всю-всю работу сделали? Иш ты какой быстрый!

[IvaniuS]

Вот у Вас в подписи же даже статья висит про Х, Y, Z, а Вы мне пишете, ну обьявил я класс и использовал его в примере выше, првоерил свой старый код и получил "Stream read error", спасибо за старания.
Выше я уже написал в тот момент, когда Вы мне прислали Ваш Класс.
Переписал ее вот так:

procedure CutFromStream(Stream: TStream; Start, Length: Int64);
var
  Buffer: Pointer;
  BytesToRead: Int64;
  BytesRemaining: Int64;
  SourcePos, DestPos: Int64;
begin
  SourcePos := Start+Length;
  BytesRemaining := Length;
  GetMem(Buffer, BytesRemaining);
  try
      Stream.Position := SourcePos;
      Stream.ReadBuffer(Buffer^, BytesRemaining);
      Stream.Position := soFromBeginning;
      Stream.WriteBuffer(Buffer^, BytesRemaining);
      Stream.Size := Length;
  finally
    FreeMem(Buffer, BytesRemaining);
  end;
end;

Но все-равно получаю ошибку чтения данных из потока.