Время воспроизведения песни

[Волк]

Народ скажите как получить время которое длятся песня??

[Vladya]

Ну не знаю кто как, а я получаю это время так:

function MusicToStr(n: longint): string;
var
s: string;
sec: longint;
min: longint;
begin
sec:=trunc(n/1000);
min:=trunc(sec/60);
sec:=sec-min*60;
s:=inttostr(min);
if sec<10 then s:=s+':0'+inttostr(sec)
else s:=s+':'+ inttostr(sec);
MusicToStr:=s;
end;

А что бы отобразить это время (скажем в лейбле), пиши вот так:

label1.Caption:=MusicToStr(mediaplayer1.Length);

[Волк]

Выскочила ошибка:

E2003 Undeclared identifier:'MusicToStr'

В этой строке:

edit2.Text:=MusicToStr(mediaplayer1.Length);

[Пепел Феникса]

а вы функцию ту описали выше по коду?

[Волк]

Пепел Феникса Где ее описывать?Я знаю что ее где-то описать надо но где?

[Пепел Феникса]

implementation

{$R *.dfm}

function MusicToStr(n: longint): string;
var
s: string;
sec: longint;
min: longint;
begin
sec:=trunc(n/1000);
min:=trunc(sec/60);
sec:=sec-min*60;
s:=inttostr(min);
if sec<10 then s:=s+':0'+inttostr(sec)
else s:=s+':'+ inttostr(sec);
MusicToStr:=s;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 edit2.Text:=MusicToStr(mediaplayer1.Length);
end;

вот я описал её перед вызовом

[Волк]

Всем большое спасибо!!!

[Волк]

Народ а как сделать чтобы показывалось сколько времени уже проиграла песня???
Я думаю тему можно закрывать. А для тех кто делает MediaPlayer и использует в нем TrackBar то можно проигранное время делать так:

edit1.Text:=MusicToStr(Trackbar1.Position);

Код можно прописывать прям в Timer1Timer

[Vladya]

Попробуй вот так:

procedure TForm1.Timer1Timer(Sender: TObject);
begin

if mpcanplay in MediaPlayer1.Capabilities then
  Begin
   ProgressBar1.Position:=trunc(MediaPlayer1.Position/ratio);
   Label2.Caption:=MusicToStr(MediaPlayer1.Position);
     if mediaplayer1.Position = mediaplayer1.Length then NextTrack;
end;
End;

переменная ratio используется для возможности отображения текущей позиции песни, тип - double, получаем ее так:

ratio:=mediaplayer1.Length/progressbar1.Max;