Ein Stream einem anderen hinzufügen!

[Christian Seehase]

Moin mirage,

klar geht das.

Beispiel:

Delphi-Quellcode:

var
  fsOUT : TFileStream;
  fsIN  : TFileStream;

begin
  fsOUT := TFileStream.Create(....);
  try
    fsIN := TFileStream.Create(...);
    try
      fsOUT.Position := fsOUT.Size;
      fsOUT.CopyFrom(fsIN,0);        
    finally
      FreeAndNil(fsIN);
    end;
  finally
    FreeAndNil(fsOUT);
  end;
end;