Mediaplayer duzina fajla

[ Crazy Mix @ 22.05.2003. 21:55 ] @

Zanima me kako da procitam duzinu fajla koji ucitam u Mediaplayer (Zanima me za MP3 fajlove, ali moze da mi zatreba i za druge)?

[ mikap @ 25.05.2003. 02:47 ] @

Mislim da ce ovo da ti pomogne preuzeto iz mog mp3playera :)
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;