Hace tiempo consegui esta libreria, (la que usaré aqui es una version de hace algun tiempo, la version 2.0, no la ultima version)
lo primero que tenemos que hacer es añadir el Bass.lib a nuestro proyecto mediante la opcion Project->Add to Project del menu
después en el código fuente..... en el constructor de Form1 emplazamos la inicializacion que seria asi:
Unit1.cpp
Código PHP:
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
if (BASS_GetVersion() != MAKELONG(2,0))
throw Exception("No se pudo cargar la versión 2 de BASS");
if (!BASS_Init(1, 44100, 0, Handle, 0))
throw Exception("Error inicializando audio");
}
//---------------------------------------------------------------------------
en el fichero de cabecera, declararemos como HSTREAM una variable que será la que almacene la cancion mp3
Unit1.h
Código PHP:
private:
HSTREAM stream;
bool reproduciendo;
y finalmente, llamaremos desde cualquier lugar del codigo, a la funcion que carga y reproduce el fichero mp3 por ejemplo
aqui la llamamos al crear el Form1
Código PHP:
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
stream=BASS_StreamCreateFile(FALSE,"music1.mp3",0,0,0);
reproduciendo = BASS_StreamPlay(stream, false, BASS_SAMPLE_LOOP);
//BASS_SAMPLE_LOOP repite en modo loop continuamente la cancion
BASS_SetVolume(100); //ajustamos el volumen
// Cambia el volumen del stream al volumen actual
// trkbVolumen es un componente trackbar (min=0 :: Max=100)
trkbVolumen->Position = 0;
trkbVolumenChange(this);
}
//---------------------------------------------------------------------------
y tambien, no olvidemos liberar la memoria al final
Código PHP:
void __fastcall TForm1::StopStream(void)
{
if (stream)
BASS_StreamFree(stream); //si stream tiene cancion, la liberamos
stream = 0;
reproduciendo = false; //variable para controlar la reproduccion
BASS_Free(); // liberamos el interface de audio
}
Aqui tenéis los archivos necesarios: (el DLL debe acompañar al deployment del EXE)
http://www.qualinost.tk/descargas/bass_2_files.rar