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:
Code:
procedure ton(bez:string);
begin
With Form1.MediaPlayer1 do begin
filename:='sounds/'+bez+'.wav';
Open;
wait:=true;
play;
close;
end;
end;
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?