Sætte 2 wave - filer sammen til en lyd.

Prøv med MP3/WAV Joiner

http://www.winmp3tools.com/mp3cutter/joiner.htm

Solhanne

Hej Solhanne
Jeg ønsker at mit program selv skal kunne det, så jeg har brug for nogen delphi-koder.

Fandt selv ud af det.

procedure MergeWaveFiles(const TargetFile: String;
  const SourceFiles: array of String; SilenceGap: DWORD);
var
  Target: TWaveFile;
  Source: TWaveFile;
  i: Integer;
begin
  Target := TWaveFile.Create(TargetFile, fmCreate);
  try
    for i := Low(SourceFiles) to High(SourceFiles) do
    begin
      Source := TWaveFile.Create(SourceFiles[I], fmOpenRead or fmShareDenyWrite);
      try
        if i = Low(SourceFiles) then
          Target.Assign(Source)
        else
        begin
          Target.InsertSilence(INFINITE, SilenceGap);
          Target.Insert(INFINITE, Source);
        end;
      finally
        Source.Free;
      end;
    end;
  finally
    Target.Free;
  end;
end;