Ładny brzuch

Mam moe banalny problem, ale nie mam pojcia jak go rozwiza. Mam jedn procedure i chce aby w tej procedurze odegra dwa pliki *.wav po kolei

procedure TForm1.Label1Click(Sender: TObject);
begin

with MediaPlayer1 do begin
FileName:=(ExtractFilePath(Application.ExeName)+'jakis.wav');
open;
Play;
end;

with MediaPlayer1 do begin
FileName:=(ExtractFilePath(Application.ExeName)+'jakis2.wav');
open;
Play;
end;

end;

Efekt jest taki, e zostaje odegrany tylko ten pierwszy wav. jak sobie z tym poradzi?


Albo czekaj w while, az przestanie sie odtwarzac, albo odtwarzanie nastepnego zrob w timerze, ktory sprawdza czy przestalo sie odtwarzac. A moze mediaplayer ma jakies zdazenia przydatne?


Albo czekaj w while, az przestanie sie odtwarzac, albo odtwarzanie nastepnego zrob w timerze, ktory sprawdza czy przestalo sie odtwarzac. A moze mediaplayer ma jakies zdazenia przydatne?
Zawsze odtwarza sie tylko pierwszy plik. Jak mog sprawdzi czy plik si odtwarza?


Zawsze odtwarza sie tylko pierwszy plik. Jak mog sprawdzi czy plik si odtwarza?
Pewnie wystarczy uzyc mp.Length i mp.Position. A czemu akurat chcesz MP uzywac? Jak nie jest to konieczne to polecam np. bass'a :).


Jeli musisz uy MP to uyj tego:
with MediaPlayer1 do begin FileName:=(ExtractFilePath(Application.ExeName)+'0.mp3'); open; Play; sleep(Dugo utworu); Stop; end; with MediaPlayer1 do begin FileName:=(ExtractFilePath(Application.ExeName)+'1.mp3'); open; Play; end;


A moze mediaplayer ma jakies zdazenia przydatne?
MediaPlayer1.Position -----> Czas aktualnego odtwarzania (w integer)
MediaPlayer1.Length -----> Czas cakowity utworu (w integer)


MediaPlayer1.Position -----> Czas aktualnego odtwarzania (w integer)
MediaPlayer1.Length -----> Czas cakowity utworu (w integer)
Prosze, czytaj cale tamaty, a nie wyrywkowo posty. O tych wlasciwosciach wspomnialem kilka postow wyzej (post #4).
// No i to nie sa zdarzenia, wiec tymbardziej nie na miejscu...
Uytkownik Ali240 edytowa ten post 22 marzec 2007, 20:37
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •