Fórum Mp3 #152607
07/04/2003
0
T_rossini
Curtir tópico
+ 0Posts
11/01/2004
Bisao
ai eu faço o seguinte:
No evento onTimer do componente Timer digite;
Label1.caption := FormatDateTime(´nn:ss´,(BASS_ChannelBytes2Seconds(Canal,BASS_ChannelGetPosition(Canal)))/86400);
Label2.caption :=´/ ´ + FormatDateTime(´nn:ss´,(BASS_ChannelBytes2Seconds(Canal,BASS_StreamGetLength(Canal)))/86400);
Captura o tempo total e atual da música.
Epero ter ajudado.
Gostei + 0
31/03/2004
Kurama
obrigado
Gostei + 0
04/04/2004
Bisao
mas é que eu estava ocupado e precisei ´sumir´ por um tempo.
Mas em relação a pergunta você precisa me passar o q ta acontecendo ai,
o pq naum deu certo. Fala se da algum erro e tal.
Obrigado.
Gostei + 0
04/04/2004
Bisao
mas é que eu estava ocupado e precisei ´sumir´ por um tempo.
Mas em relação a pergunta você precisa me passar o q ta acontecendo ai,
o pq naum deu certo. Fala se da algum erro e tal.
Obrigado.
Gostei + 0
05/04/2004
Kurama
Eu naum sei fazer ela funcionae, como eu faço pra saber o tempo que tem uma música que tá no ´C:\Musicas\Musica.mp3´ ???
Gostei + 0
05/04/2004
Sremulador
Gostei + 0
05/04/2004
Cebikyn
O uso é bem simples:
uses
MPEGAudio;
var
MPEGAu: TMPEGAudio;
procedure ....;
var
TempoDoMP3: Double;
begin
MPEGAu := TMPEGAudio.Create;
with MPEGAu do
if ReadFromFile(´C:\Musicas\Musica.mp3´) and Valid then
TempoDoMP3 := Duration;
MPEGAu.Free;
end;Ao término desta rotina, a variável TempoDoMP3 conterá a duração do MP3 em segundos. Se quiser que o valor seja inteiro, basta passa-lo para a função Trunc(TempoDoMP3); Esta mesma classe pode te retornar o bit rate, sample rate, se é mono, estéreo ou joint estéreo, entre outras informações. No mesmo arquivo, vc tb encontra units para manipulação de outros formatos de arquivos, incluindo mais classes para MP3 (ID3v1 e ID3v2, se bem que eu não recomendo o uso da unit para ID3v2, eu uso uma outra que é muito mais completa).
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)