Tracklänge bei TMediaplayer ermitteln?

[Chris P]

Hi Leute,

weiß jemand von euch, wie man mit der Komponente TMediaPlayer
die Tracklänge des aktuellen Tracks anzeigen kann?

Das ganze soll in Minuten und Sekunden angezeigt werden.

[Luckie]

Dieser "Jemand" heißt Suche: [dp]tracklänge mediaplayer[/dp].

[Chris P]

Ich hab jetzt folgendes gemacht:

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin

   with Mp do
       Label1.caption:=Inttostr(mci_hms_hour(TrackLength[1]))+':'+Inttostr(mci_hms_minute(TrackLength[1]))+':'+Inttostr(mci_hms_second(TrackLength[1]));
end;

Wenn ich jetzt ein MP3 abspiele und den Button drücke dann steht im Label: '201:37:3'.
Bei anderen MP3' s kommen genauso verrückte Zahlen.

Woran liegt das?

[Der_Ventilator]

mp.Length liefert die Millisekunden die du dann leicht in Minuten konvertieren kannst.