Czesc!!!
jak zrobic zeby odtwarzany plik w mediaplayer miał w label1 podany czas ... chodzi mi o to [00:00:00]
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 :)
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
robiłem mniejwiecej jak pisales ale cos mi nie wyszło :(
czy moge prosic o gotowa procedurke bo nie bardzo zaczaiłem [hurra]
mie tesh podeslej...
Albo dodaj do 4p
CZY KTOŚ POMOŻE MI I KUMPLOWI ??? [???]
ZA POMOC DZIEKI [soczek]
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-(minuta60);
minuta:=minuta+1;
end
else begin
if sekAkt