[ naskovic @ 01.03.2009. 12:17 ] @
| Poštovani, potrebna mi je procedura ili funkcija koja spaja više wav fajla u jedan. ja sam našao na netu sledeću proceduru koja posle spajanja daje wav fajl u kome se čuje pucketanje. Fajlovi su istog formata tako da ne znam kako da rešim problem. Molim za pomoć. procedure JoinWaves(FileList: TStrings; OutputFile: string); {All files must be of the same format} var I: Integer; FileSize: LongInt; InStream, OutStream: TFileStream; begin OutStream := TFileStream.Create(OutputFile, fmCreate); try for I := 0 to FileList.Count - 1 do if FileExists(FileList[I]) then begin InStream := TFileStream.Create(FileList[I], fmOpenRead); try if I = 0 then OutStream.CopyFrom(InStream, InStream.Size) else if InStream.Size > 44 then begin InStream.Position := 44; OutStream.CopyFrom(InStream, InStream.Size - 44); end; finally InStream.Free; end; end; OutStream.Position := 4; FileSize := OutStream.Size - 8; OutStream.WriteBuffer(FileSize, SizeOf(FileSize)); OutStream.Position := 40; FileSize := OutStream.Size - 44; OutStream.WriteBuffer(FileSize, SizeOf(FileSize)); finally OutStream.Free; end; end; |
