Tempo Da Mp3 Em Execução

[Guest Maikel]

Ola....

Estou trabalhando em um player de mp3, e estou usando o componente MediaPlayer, ele executa as musicas corretamente, mas eu queria que fosse exibido em dois Labels, um com a duração total da musica e outro que fosse atualizando segundo a segundo o tempo da musica já percorido...Também uso um ProgressBar, do qual tentei pegar o tempo da musica, mas não deu certo, não consegui transformar no formato mm:ss.

Alguém já fez alguma coisa parecida e que possa me ajudar...

valeu...

Att...

[Guest - Maikel -]

Boa dia Pessoal...

Alguém já desenvolveu algum sistema parecido, um mp3 player...

já tentei de varias maneiras, mas ainda não consegui, tem as propriedades no componente TMediaPlayer, TrackLength, TrackPosition, mas eu não consigo fazer com que isso seja convertido num formato de hh:mm:ss ou somente mm:ss...

Se alguém puder me ajudar....

Agradeço a Atenção

[Kikonanet]

Olá,

Dê uma olhada neste link. Veja se te ajuda!

Link

Abs.

Kiko

[Guest mjnanet@hotmail.com]

Ola....

Estou trabalhando em um player de mp3, e estou usando o componente MediaPlayer, ele executa as musicas corretamente, mas eu queria que fosse exibido em dois Labels, um com a duração total da musica e outro que fosse atualizando segundo a segundo o tempo da musica já percorido...Também uso um ProgressBar, do qual tentei pegar o tempo da musica, mas não deu certo, não consegui transformar no formato mm:ss.

Alguém já fez alguma coisa parecida e que possa me ajudar...

valeu...

Att...

acho que isso ajuda!

olá tudo bem! o componente mediaplayer tem uma propriedade chamda leght..que indica as trilhas do arquivo que se você arredondar vão se transformar no número total de segundos que o arquivo possui depois é só converter os segundos em horas e minutos...

function FormatSecsToHMS(Secs: LongInt): string;

var

Hrs, Min: Word;

begin

Hrs := Secs div 3600;

Secs := Secs mod 3600;

Min := Secs div 60;

Secs := Secs mod 60;

Result := Format('%d:%d:%d', [Hrs, Min, Secs]);

end;

[maikel]

Bom Dia...

Pessoal...valeu pela ajuda..

Agora estou conseguindo....

Att..

Maikel