Foros Club Delphi - Usando BASS Library para el sonido Mp3 en nuestros programas

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