czas mp3 w label [00:00:00]

0

Czesc!!!
jak zrobic zeby odtwarzany plik w mediaplayer miał w label1 podany czas ... chodzi mi o to [0000]
tyle to robiłem dzieliłem div tfmilisecond (czy cos takiego) i nic z tego nie było albo za duzo czy zamało
mialem czas podany w sek np 245s i to tez było jakies niedokładne

Dzieki za odpowiedzi !!!

aha mogą to byc nawet 3 labele :)

0

po prostu robisz coś takiego

Jeżeli chodzi o czas aktualny, to po prostu ustawiasz komponent Timer i co sekundę przyrównujesz do jakiejś zmiennej aktualny czas(z właściwości komponentu mediaPlayer --> mediaPlayer1.Position) i stawiasz warunki, że jeżeli powiedzmy zmienna: sekundy>60 to zerujesz i dodajesz do minuty 1.

(jak chcesz, to napisz, to prześlę Ci gotowy kod)

A jeżeli chodzi o czas całkowity, to jest coś takiego jak: mediaPlayer1.Length

I robisz pętlę np:

while mediaPlayer1.length>60 do begin

i tu zamieniasz na minuty i.t.d.

Zresztą jeżeli chcesz, to napisz na priv, to prześlę Ci obydwa gotowe kody

0

robiłem mniejwiecej jak pisales ale cos mi nie wyszło :(
czy moge prosic o gotowa procedurke bo nie bardzo zaczaiłem [hurra]

0

mie tesh podeslej...
Albo dodaj do 4p

0

CZY KTOŚ POMOŻE MI I KUMPLOWI ??? [???]
ZA POMOC DZIEKI [soczek]

0

OK, masz to źródło, o które prosiłeś:
Teraz krótki opis:

tutaj label, na którym wyświetla się czas całkowity to: czasCalkowity ;).

Ponadto, myślę, że kod jest zrozumiały. Może nie jest za bardzo profesjonalny(bo to jest wycinek z mojego programu), ale działa :)

procedure TForm1.CalkowityCzas(nazwaPliku: String);
var
sekunda, minuta: integer;
sek: string;

begin
player.TimeFormat:=tfMilliseconds;
player.FileName:=nazwaPliku;

try
player.Open;
otwarty:=true;
except begin
otwarty:=false;
end;
end;

if otwarty=true then begin
sekunda:=player.length div 1000;

while sekunda>=60 do begin
sekunda:=sekunda-60;
minuta:=minuta+1;
end;

if sekunda =minuta60 then begin
sek:=sekAkt-(minuta
60);
minuta:=minuta+1;
end
else begin
if sekAkt

1 użytkowników online, w tym zalogowanych: 0, gości: 1