Długość utworu (Delphi)

Interesuje mnie jak zrobić żeby na Labelu był wyświetlany aktualny czas utworu (tak jak w Winampie) załadowanego do komponentu MediaPlayer (żeby czas leciał rosnąco od 00:00)

Z góry dzięki

============================================
---------------------------------------------------------
Piję by paść, padam by wstać, wstaję by pić, piję by żyć...
---------------------------------------------------------
================= BLooD S@m =================

---

Na 4programmers jest o tym troche możesz użyć biblioteki Bass ale na 4p pisze jak zrobić to w Media playerzze

-----------------------
Beldzio
Delphi Rules:)
gg: 3183960
mail: beldzio@sciaga.net

Ja bym to zrobił tak:
1.Zadeklarowałbym instrukcję warunkową if(czy muzyka jest odtwarzana)
a.)Jeśli tak Timer1.Enabled := true; (interval = 1000)
b.)w przeciwnym wypadku nie rób nic;
2.W zdarzeniu OnTimer napisał bym
a.)var sekundy, minuty : integer;
b.)if sekundy >= 60 then
begin
minuty++;
sekundy := 0;
end;
c.)sekundy++;
Label1.Caption := IntToStr(minuty) + ':' + IntToStr(sekundy);
3.W wypadku naciśnięcia przycisku Stop:
a.)Timer1.Enabled := false;
b.)sekundy := 0;
c.)minuty := 0;
d.)Label1.Caption := '00:00';
4.W wypadku naciśnięcia Pause:
Timer1.Enabled := false;

To ci wprawdzie nie pozwoli odliczać czasu w trakcie przewijania utworu, ale w tej chwili nie przychodzi mi nic innego do głowy.

Pozdro for ALL

gg: 4826295

Thx!
Opisałbym moją procedurę lecz jej nie pamiętam. Jeżeli ktoś ma podobny problem do mojego to dajcie znać a poszukam programiku w którym ją umieściłem.

============================================
---------------------------------------------------------
Piję by paść, padam by wstać, wstaję by pić, piję by żyć...
---------------------------------------------------------
================= BLooD S@m =================

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl