player em delphi - tempo da musica
querai saber se alguem tem alguma função para saber o tempo da musica para colocar num player que estou fazendo, por exemplo: musica.mp3 04:30
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.....
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
Curtidas 0
Respostas
Ricardo Araujo
01/11/2010
boa noite,
na devmedia tem um artigo falando sobre mediaplayer
a revista é : edição 119.
da uma olhada.
na devmedia tem um artigo falando sobre mediaplayer
a revista é : edição 119.
da uma olhada.
GOSTEI 0
Jorge Quaresma
01/11/2010
Olá Ricardo,
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...
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...
GOSTEI 0
Alexandre
01/11/2010
OLA veja o seguinte codigo :
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
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
GOSTEI 0
Wellington Telles
01/11/2010
eu uso o Firemonkey e para colocar o tempo da música.....eu usei um timer e dentro do timer eu uso para atualizar o tempo da música:
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.
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.
GOSTEI 0