player em delphi - tempo da musica
01/11/2010
0
e saber como fazer para uma trackbar andar conforme for tocando a musica e quando eu avançar ou regredir com a trackbar a música tbm avançar ou regredir.....
Jorge Quaresma
Posts
01/11/2010
Ricardo Araujo
na devmedia tem um artigo falando sobre mediaplayer
a revista é : edição 119.
da uma olhada.
01/11/2010
Jorge Quaresma
Eu dei uma olhada na revista e mesmo assim naum encontrei o q desejo... o que estou tentando fazer é um player avançado e estou precisando desses códigos e naum encontro em lugar nenhum....
mesmo assim muito obrigado... vou continuar tentando...
27/10/2011
Alexandre
adiciona a seguinte function:
function MSecToTime (const intTime: integer):string ;
Depois aperte Shift + Ctrl+C para criar a função.
Agora vá lá na função que foi criada e ponha o código abaixo:
var intmsec :real;
begin
//o equivalente a 1 ms
intMSec := 1 / 24 / 60 / 60 / 1000;
begin
//define o retorno com o formato Time
result := FormatDateTime(nn:ss, intTime * intMSec);
end;
agora no botão que você tiver carregando a faixa coloca o seguinte codigo:
Label1.Caption := MSecToTime (MediaPlayer1.Length); //Mostra o tempo total da Música
se quizer mostrar o tempo correndo coloca esse codigo no timer
Label2.Caption := MSecToTime (MediaPlayer1.Position);//Mostra o tempo correndo
espero ter ajudado
24/03/2023
Wellington Telles
procedure TFrmPrincipal.Timer1Timer(Sender: TObject);
var
CurMin, CurSec: Integer;
begin
if (MediaPlayer1.State = TMediaState.Playing) then
begin
CurMin := MediaPlayer1.CurrentTime div MediaTimeScale div 60;
CurSec := MediaPlayer1.CurrentTime div MediaTimeScale mod 60;
Label1.Text := Format('Current: %.2d:%.2d',[CurMin, CurSec]);
end;
end;
Se ainda estiver afim de desenvolver o MP3 player eu tenho vários detalhes para passar.
Clique aqui para fazer login e interagir na Comunidade :)
