Cómo escribir un reproductor de música con Delphi

1. Utilice el control MediaPlayer que viene con Delphi.

1. Agregue el control MediaPlayer1 al formulario

2. Agregue el siguiente código al lugar de creación del formulario (TForm1.FormCreate) para reproducir

MediaPlayer1. .FileName:='lt;archivo MP3 que debe reproducirse>';

MediaPlayer1.Open;

2. Utilice la biblioteca de funciones Bass.dll (en www.un4seen. com descargar).

Ejemplo simple:

usa

Bass;

BASS_Init(-1, 44100, 0, 0, nil); Inicializa la biblioteca de Bass

var

chan: HSTREAM; //Declara el identificador de transmisión

chan:=BASS_StreamCreateFile(False, PChar('lt; MP3 que necesita ser reproducido File gt;'), 0, 0, 0); //Cargar el identificador de adquisición del archivo multimedia

if chanlt; p>

Después del uso:

BASS_StreamFree(chan); // Liberar el archivo

BASS_Free(); Cerrar Bass

El código anterior es para tu referencia

p>