Ĺadny brzuch
Jak programowo wykryc, kiedy skonczy grac jakas piosenka puszczona w media playerze? Chodzi mi o to, ze gdy skonczy sie jeden utwor, to programowo, ma sie wgrac kolejny, cos jak playlista. Ma ktos pomysl?
Możesz to sprawdzać Timer'em:
procedure TForm1.Timer1Timer(Sender: TObject); begin if MediaPlayer1.Position = MediaPlayer1.Length then // koniec utworu i robisz co chcesz :) end;
Powinno zadziałać :!
cytat:LewB ar napisał:
Możesz to sprawdzać Timer'em:
procedure TForm1.Timer1Timer(Sender: TObject); begin if MediaPlayer1.Position = MediaPlayer1.Length then // koniec utworu i robisz co chcesz :) end;
Powinno zadziałać :!
Aby odpowiedzieć na tego posta prubowałem coś takiego zrobić wcześniej, ale mi tak nie idzie.
//NEURON
//mariuszlorenc@wp.pl
//P4 3Ghz; 512Mb; GF FX 5200; 120Gb HDD
Postanowiłem przetestować to co napisałem i zauważyłem straszną wadę tego kodu. Tak będzie lepiej:
procedure TForm1.Timer1Timer(Sender: TObject); begin try if MediaPlayer1.Position = MediaPlayer1.Length then begin Timer1.Enabled := false // koniec utworu i robisz co chcesz end; except on EMCIDeviceError do exit; end; end;
www.lewbar.prv.pl
z tego co pamietam o ile dobrze pamietam znacznie wygodniej sprawdzac w Onnotify zamiast ciagle timerze.
prosciej, wygodniej, bardziej elegancko :)
pozdrawiam
wesoledi.prv.pl
+1 post
W MediaPlayer'ze nie ma zbyt wielu zdarzeń, a sam na nic lepszego na razie nie wpadłem ;)
www.lewbar.prv.pl
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Możesz to sprawdzać Timer'em:
procedure TForm1.Timer1Timer(Sender: TObject); begin if MediaPlayer1.Position = MediaPlayer1.Length then // koniec utworu i robisz co chcesz :) end;
Powinno zadziałać :!
cytat:LewB ar napisał:
Możesz to sprawdzać Timer'em:
procedure TForm1.Timer1Timer(Sender: TObject); begin if MediaPlayer1.Position = MediaPlayer1.Length then // koniec utworu i robisz co chcesz :) end;
Powinno zadziałać :!
Aby odpowiedzieć na tego posta prubowałem coś takiego zrobić wcześniej, ale mi tak nie idzie.
//NEURON
//mariuszlorenc@wp.pl
//P4 3Ghz; 512Mb; GF FX 5200; 120Gb HDD
Postanowiłem przetestować to co napisałem i zauważyłem straszną wadę tego kodu. Tak będzie lepiej:
procedure TForm1.Timer1Timer(Sender: TObject); begin try if MediaPlayer1.Position = MediaPlayer1.Length then begin Timer1.Enabled := false // koniec utworu i robisz co chcesz end; except on EMCIDeviceError do exit; end; end;
www.lewbar.prv.pl
z tego co pamietam o ile dobrze pamietam znacznie wygodniej sprawdzac w Onnotify zamiast ciagle timerze.
prosciej, wygodniej, bardziej elegancko :)
pozdrawiam
wesoledi.prv.pl
+1 post
W MediaPlayer'ze nie ma zbyt wielu zdarzeń, a sam na nic lepszego na razie nie wpadłem ;)
www.lewbar.prv.pl