Mehrere Audiodateien hintereinander ohne Pause abspielen?

**jdm**

Ich habe verschiedene Audiodateien (.wav) gemacht, die jeweils etwa eine halbe Sekunde lang sind und verschiedene Töne enthalten. Nun will ich damit in einem Programm verschiedene Melodien abspielen können.
Mein bisheriger Ansatz war:

markieren

Code:

			procedure ton(bez:string);

begin

     With Form1.MediaPlayer1 do begin

          filename:='sounds/'+bez+'.wav';

          Open;

          wait:=true;

          play;

          close;

     end;

end;

markieren

Code:

			ton('h0'); ton('h1'); ton('h2'); ton('h3');

ton('h1'); ton('h2'); ton('h3'); ton('h4');

Das Problem ist, dass jeder Ton erstmal geladen werden muss, bevor er abgespielt wird. So entstehen lange Pausen zwischen den Tönen. Wie bekomme ich diese Pausen weg?

Mehrere Audiodateien hintereinander ohne Pause abspielen?

Mehrere Audiodateien hintereinander ohne Pause abspielen?

Forumregeln