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;