WAV-Dateien verschmelzen

[LDericher]

Das ist mein Rohbau:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  Source1, Source2,
  start, length,
  Mixer : Cardinal;
begin
Source1 := BASS_StreamCreateFile(false, PChar('chord.wav'), 0, 0, BASS_STREAM_DECODE);
Source2:=  BASS_StreamCreateFile(false, PChar('chimes.wav'), 0, 0, BASS_STREAM_DECODE);
Mixer:= BASS_Mixer_StreamCreate(44100, 2, 0);
start:=BASS_ChannelGetLength(Source1, BASS_POS_BYTE);
length:=BASS_ChannelGetLength(Source1, BASS_POS_BYTE);
BASS_Mixer_StreamAddChannel(Mixer, Source1, 0);
BASS_Mixer_StreamAddChannelEx(mixer, Source2, 0, start, length);
BASS_ChannelPlay(Mixer, false);
end;

So, der macht vollautomatisch genau das was ich brauche

Frage ist GELÖST. Wer daraus noch eine allgemeine Funktion/Prozedur schreiben will, kann das Ergebnis gerne hier posten, ich baue mir daraus heimlich still und leise genau das was ich brauche

Bis zum nächsten Mal!

Gruß: Euer LDer.