Dura��o da faixa do MediaPlayer

Question

Caras, como eu posso fazer para exibir num label a dura��o da faixa atual do MediaPlayerValeu!...

Khundalini · Answer

Assuma que voc� tem um formul�rio de nome Form1 e um MediaPLayer de nome MediaPlayer1. Coloque nesse nesse mesmo Form1 dois TLabels, Label1 e Label2. Coloque um TTimer no seu formul�rio que tem o MediaPlayer e no evento OnTimer desse TTimer, coloque o seguinte c�digo:

procedure TForm1.Timer1Timer(Sender: TObject);
var
Trk, Min, Sec: Word;
begin
with MediaPlayer1 do
begin
Trk := MCI_TMSF_TRACK(Position);
Min := MCI_TMSF_MINUTE(Position);
Sec := MCI_TMSF_SECOND(Position);
Label1.Caption := Format(��.2d�, [Trk]);
Label2.Caption := Format(��.2d:�.2d�, [Min, Sec]);
end;
end;

[]s
Rubem Rocha
Manaus, AM

Diorgenes175 · Answer

colega, descule eu estar respondendo somente agora, mas n�o funcionou direito. o que acontece � que fica alternando de tres em tres ou quatro em quatro. deve haver alguma configura��o a mais para resolver esse detalhe.

conto com sua ajuda...

valeu!!!

Di�rgenes Tavares
Gravata� - RS

Khundalini · Answer

Explique melhor, colega. N�o entendi o que vc quis dizer com esa varia��o de 3 em 3/4 em 4. Explique melhor.[]sRubem RochaManaus, AM...

Diorgenes175 · Answer

cara, em vez de ser 1,2,3,4, ou seja de forma ordinal, a contagem se d� de forma alternada, ou seja, comeca em 1 e pula pra 4, pra 8, pra 12, pra 16. al�m disso, na minha aplica��o tenho uma TrackBar que mostra o progresso da faixa e quando eu arrasto o ponteiro pra frente o mediaplayer eh atualizado tb. quando fa�o isso a contagem NAO eh atualizada. Por que?

Valeu!!!

Di�rgenes Tavares
Gravata� - RS

Khundalini · Answer

Eu acho que eu tenho um exemplo de tocador de MP3 com TMediaPlayer. Vou modific�-lo com a dica que eu mandei e tentar simular o teu problema. Te dou um retorno.[]sRubem RochaManaus, AM...

Cristianopintado · Answer

Eu tb preciso fazer uma fun��o assim..e estou tento o mesmo problema com o dica que foi passada acima......

F�rum Dura��o da faixa do MediaPlayer #237067