Sammensætte lyde fra wave-filer.

Måske virker det her bedre:

var
  Start: integer;
begin
  MediaPlayer1.FileName := 'd:\lyd3.WAV';
  MediaPlayer1.Open;
  PlaySound('d:\lyd3.WAV', 0, SND_FILENAME or SND_ASYNC );
  Start := GetTickCount;
  repeat
    Application.ProcessMessages;
  until GetTickCount - Start > MediaPlayer1.Length;
  PlaySound('d:\lyd2.WAV', 0, SND_FILENAME or SND_ASYNC );
  MediaPlayer1.Close;
end;

hejhej > Jeg har været ved at kigge lidt på koden. Desværre forstår jeg den ikke helt, så jeg har derfor heller ikke fundet ud af om den virker helt som den skal.
Kan du forklare hvordan det virker ??
Hvad skal jeg gøre, hvis jeg skal afspille 3 lyde efter hinanden ??

hejhej > Er du der ??
Hvad skal jeg gøre, hvis jeg skal afspille 3 lyde efter hinanden ??
Lægger du ikke også lige et svar ??

Prøv det her:

var
  Start: integer;
begin
  MediaPlayer1.FileName := 'd:\lyd3.WAV';
  MediaPlayer1.Open;
  PlaySound('d:\lyd3.WAV', 0, SND_FILENAME or SND_ASYNC );
  Start := GetTickCount;
  repeat
    Application.ProcessMessages;
  until GetTickCount - Start > MediaPlayer1.Length;
  MediaPlayer1.Close;

  MediaPlayer1.FileName := 'd:\lyd2.WAV';
  MediaPlayer1.Open;
  PlaySound('d:\lyd2.WAV', 0, SND_FILENAME or SND_ASYNC );
  Start := GetTickCount;
  repeat
    Application.ProcessMessages;
  until GetTickCount - Start > MediaPlayer1.Length;
  PlaySound('d:\lyd3.WAV', 0, SND_FILENAME or SND_ASYNC );
  MediaPlayer1.Close;
end;

hejhej > Det ser ikke lige ud til at det virker helt som det skal....
Jeg regner med at der skal stå d:\lyd3.WAV i 3. sidste linie....
Men jeg synes umiddelbart det lyder som om den klipper lidt af enden på lyd 3 og 2 (de to øverste).

Hvis du lægger lidt til MediaPlayer1.Length kan du få den til at afspille lydene med lidt størrer mellemrum, f.eks.:

  Start := GetTickCount;
  repeat
    Application.ProcessMessages;
  until GetTickCount - Start > MediaPlayer1.Length+1000;

Får lyden efter til at blive afspilt 1 sekund senere.

OK, jeg vil prøve at kigge lidt på det.
Hvad betyder/gør GetTickCount ??

GetTickCount returnere antallet af millisekunder siden windows startede.

OK, tak for svaret og tak for hjælpen.....