Bass – DBGrid – Selecionar musica
:?: Olá a todos. Estou fazendo um programa para tocar MP3 usando Bass.
Todos os exemplos que tenho selecionam as músicas
usando OpenDialog (dessa forma tudo bem conseguimos).
Em minha aplicação quero selecionar a música a partir do DBGrid, onde
tenho o path e o nome da música juntos num só campo.
Exemplo:
1- BASS_MusicPlay(Table1.FieldValues[‘NomeCampo’]);
- - - - - - - - -
2- Channel := BASS_StreamCreateFile(FALSE, Table1.FieldValues[‘NomeCampo’], 0, 0, 0);
BASS_StreamPlay(Channel, False, 0);
Muito obrigado pela ajuda
Abraços
Neto
Todos os exemplos que tenho selecionam as músicas
usando OpenDialog (dessa forma tudo bem conseguimos).
Em minha aplicação quero selecionar a música a partir do DBGrid, onde
tenho o path e o nome da música juntos num só campo.
Exemplo:
1- BASS_MusicPlay(Table1.FieldValues[‘NomeCampo’]);
- - - - - - - - -
2- Channel := BASS_StreamCreateFile(FALSE, Table1.FieldValues[‘NomeCampo’], 0, 0, 0);
BASS_StreamPlay(Channel, False, 0);
Muito obrigado pela ajuda
Abraços
Neto
Neto
Curtidas 0
Respostas
Neto
07/05/2004
No site da Bass (http://www.un4seen.com/) não achei nada.
GOSTEI 0
Lucas Silva
07/05/2004
Acho que este site será bem util pra vc..
http://pbb-player.sourceforge.net/pbbforum/index.php
http://pbb-player.sourceforge.net/pbbforum/index.php
GOSTEI 0
Cebikyn
07/05/2004
Channel := BASS_StreamCreateFile(FALSE, [b:2833d132a5]PCHAR([/b:2833d132a5]String com o nome e endereço do arquivo[b:2833d132a5])[/b:2833d132a5], 0, 0, 0);
BASS_StreamPlay(Channel, False, 0);
E antes dos códigos a cima (no OnCreate do form principal), vc deve inicializar a BASS com a função BASS_Init.
BASS_StreamPlay(Channel, False, 0);
E antes dos códigos a cima (no OnCreate do form principal), vc deve inicializar a BASS com a função BASS_Init.
GOSTEI 0
Neto
07/05/2004
var
M_Arquivo : string;
M_Caminho : DWord;
M_Channel : Integer;
begin
M_Arquivo := Musicas.FieldValues[´Som_NomeMusica´];
M_Arquivo := musicas.fieldvalues[´som_enderecoPathnome´];
Channel := Bass_StreamCreateFile(FALSE , pchar(M_arquivo) , 0 , 0 , 0);
Bass_StreamPlay(Channel , False , 0);
Edit2.Text := IntToStr(Channel);
Channel retorna 0, portanto não funciona.
Como posso fazer.
Neto
M_Arquivo : string;
M_Caminho : DWord;
M_Channel : Integer;
begin
M_Arquivo := Musicas.FieldValues[´Som_NomeMusica´];
M_Arquivo := musicas.fieldvalues[´som_enderecoPathnome´];
Channel := Bass_StreamCreateFile(FALSE , pchar(M_arquivo) , 0 , 0 , 0);
Bass_StreamPlay(Channel , False , 0);
Edit2.Text := IntToStr(Channel);
Channel retorna 0, portanto não funciona.
Como posso fazer.
Neto
GOSTEI 0
Cebikyn
07/05/2004
Coloque uma chamada à função BASS_ErrorGetCode logo antes depois de chamar BASS_StreamCreateFile e me diga qual código (inteiro) ela retorna, para que eu possa ajudar. Podem ser diversos motivos (BASS não inicializada corretamente, problema com o arquivo, problema do dispositivo, etc..)
GOSTEI 0