Datei stückchenweise mit TFileStream einlesen

[Luckie]

Ich versuche eien Datei stückchenweise mit ReadBuffer einzulesen, den Buffer zu verarbeiten und dann das Ganze wieder zu schreiben.

Delphi-Quellcode:

var
  SrcBuffer, DestBuffer: cardinal;
begin
  while SrcStream.Position < SrcStream.Size do
  begin
    SrcStream.ReadBuffer(SrcBuffer, 1024);
    EncodeBuffer(SrcBuffer, DestBuffer, 1024);
    DestStream.WriteBuffer(DestBuffer, 1024);
  end;

Aber das will nicht so recht. Ich bekomme da immer einen Stream.Lesefehler. Es hadelt sich um alle möglichen Dateien, binär, Text, typisierte, ...

So geht es auch nicht:

Delphi-Quellcode:

var
  SrcBuffer, DestBuffer: Pointer;
begin
  GetMem(SrcBuffer, 1024);
  GetMem(DestBuffer, 1024);
  while DestStream.Size < SrcStream.Size + sizeof(TFileHeader) do
  begin
    SrcStream.ReadBuffer(SrcBuffer, 1024);
    EncodeBuffer(SrcBuffer, DestBuffer, 1024);
    DestStream.WriteBuffer(DestBuffer, 1024);
  end;

Gleiche Fehler.