Ein Stream einem anderen hinzufügen!

[mirage228]

Hallo,

Ich wollte gerne eine Datei mit einem TFileStream öffnen und diesen Stream dann einem 2ten Stream (in welchen bereits einige Daten geschrieben wurden) hinzufügen.

Ist das irgendwie realisierbar?

thx
mirage228

[Luckie]

Kuck dir mal die Methode CopyFrom von TStream an.

[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;

[mirage228]

Hi,

funktioniert! Danke euch beiden! ;-)

mfG
mirage228