Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#2

Re: Append und Binär-Dateien

  Alt 12. Jul 2004, 17:23
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;
Andreas
  Mit Zitat antworten Zitat