Длина mp3 трека: как узнать?

[ramzes777]

Добрый день. Как можно узнать сколько идет mp3 трек в делфи?

[ZuBy]

TMediaPlayer -> Length

[ramzes777]

Это я нашел, только как оттуда вывести точное количество секунд?
Там получается кол.-во секунд + 3 цифры в конце.

[ramzes777]

Все, разобрался, это милисекунды))))
Спасибо)))

[ramzes777]

Почему-то происходит погрешность в подсчетах на 0,216.
Вот код:

var a:extended;
begin
a:=MediaPlayer1.TrackLength[1];
a:=(a/1000);
a:=round(a);
a:=a/60;
richedit1.Lines.Add('min:');
richedit1.Lines.Add(floattostr(a));

[ramzes777]

Получается погрешность при определении длины - 36 милисекунд. Почему?

[ramzes777]

тему можно закрывать. Правильный код:

procedure TForm1.Button3Click(Sender: TObject);
var min,sec,mil:integer;
begin
mil:=MediaPlayer1.TrackLength[1];
min:=(mil mod 3600000) div 60000;
sec:=(mil mod 60000) div 1000;
mil:=mil mod 1000;
richedit1.Lines.Add('min right:');
richedit1.Lines.Add(inttostr(min)+':'+inttostr(sec));
end;