mehrere Dateien in 1

[Klaus01]

Delphi-Quellcode:

procedure MergeFiles(FileName2add, SumFileName : TFileName) ;
// FileName2add == the name of the first piece of the split file
// SumFileName == the name of the resulting merged file
var
   fs, ss: TFileStream;
   cnt: integer;
begin
   cnt := 1;
   fs := TFileStream.Create(SumFileName, fmCreate or fmShareExclusive) ;
   try
     while FileExists(FileName2add) do
     begin
       ss := TFileStream.Create(FileName2add, fmOpenRead or fmShareDenyWrite) ;
       try
         fs.CopyFrom(ss, 0) ;
       finally
         ss.Free;
       end;
       Inc(cnt) ;
       FileName2add := ChangeFileExt(FileName2add, Format('%s%d', ['._',cnt])) ;
     end;
   finally
     fs.Free;
   end;
end;


Usage:

MergeFiles('c:\mypicture._1','c:\mymergedpicture.bmp') ;

Habe ich hier gefunden.

Grüße
Klaus