Datei stückchenweise mit TFileStream einlesen

[Kamil]

Code:

var
  Len: integer;
  ...
begin
...
  while SrcStream.Position < SrcStream.Size do 
  begin 
    Len:=(SrcStream.Size-SrcStream.Position) mod 1025;
    SrcStream.ReadBuffer(SrcBuffer^, Len); 
    EncodeBuffer(SrcBuffer^, DestBuffer^, Len); 
    DestStream.WriteBuffer(DestBuffer^, Len); 
  end;
...