Append und Binär-Dateien

[shmia]

Zitat von -=andreas=-:

Ich habe hier etliche kleine wav-Dateien, die ich in einer festgelegten Reihenfolge aneinanderreihen möchte.

Ob das funktioniert ??? WAV-Dateien beginnen doch mit einem Header, oder nicht ?
Folgende Procedure kopiert binäre Dateien aneinander (falls das Ziel schon exisitiert, wird angehängt):

Delphi-Quellcode:

procedure InternalConcatFiles(const DstFile,SrcFile: string);
var
   SrcStream,DstStream: TFileStream;
begin
   SrcStream := TFileStream.Create(SrcFile,fmOpenRead or fmShareDenyWrite);
   DstStream := nil;
   try
      if not FileExists(DstFile) then
      begin
         DstStream := TFileStream.Create(DstFile,fmCreate);
      end
      else
      begin
         DstStream := TFileStream.Create(DstFile,fmOpenWrite);
         DstStream.Position := DstStream.Size;
      end;

      DstStream.CopyFrom(SrcStream, SrcStream.Size);  // copy data
   finally
      SrcStream.Free;
      DstStream.Free;
   end;
end;