Zanima me kako da procitam duzinu fajla koji ucitam u Mediaplayer (Zanima me za MP3 fajlove, ali moze da mi zatreba i za druge)?
Potpis
Avram,
http://www.eyesburn.co.sr/
http://www.eyesburn.co.sr/
Mediaplayer duzina fajla
Zaključano
Zakačeno
Mislim da ce ovo da ti pomogne preuzeto iz mog mp3playera :)
gde je DTNTMMPlayer1 media player
gde je DTNTMMPlayer1 media player
Code:
procedure TMainForm.ShowTime;
var
str : string;
min,sec,time : integer;
begin
time := round(DTNTMMPlayer1.Position/1000);
min := time div 60;
sec := time mod 60;
str := Format('%.2d:%.2d',[min,sec]);
timelbl.Caption := str;
end;
procedure TMainForm.timelblClick(Sender: TObject);
var
min,sec,time : integer;
begin
time := round(DTNTMMPlayer1.tracklength[songindex]/1000);
min := time div 60;
sec := time mod 60;
timelbl.Caption := format('%.2d:%.2d',[min,sec]);
end;
procedure TMainForm.ShowTime;
var
str : string;
min,sec,time : integer;
begin
time := round(DTNTMMPlayer1.Position/1000);
min := time div 60;
sec := time mod 60;
str := Format('%.2d:%.2d',[min,sec]);
timelbl.Caption := str;
end;
procedure TMainForm.timelblClick(Sender: TObject);
var
min,sec,time : integer;
begin
time := round(DTNTMMPlayer1.tracklength[songindex]/1000);
min := time div 60;
sec := time mod 60;
timelbl.Caption := format('%.2d:%.2d',[min,sec]);
end;
Potpis
by samadhi
Let there be Pascal and God made Lazarus and blessed Linux
Let there be Pascal and God made Lazarus and blessed Linux