Utilizar el componente Windows Media Player en Delphi

Lo que vamos a hacer es incorporar el objeto tWindowsMediaPlayer en Delphi 2009 . Al final de este proceso aparecerá en la "Tool Palette" dentro de la pestaña "ActiveX".

Desde el menú Component->Import Component
- Seleccionar “Import ActiveX Control” y pulsamos “Next”
- Marcamos “Windows Media Player” y pulsamos “Next”
- En la casilla “Palette page” marcamos “ActiveX” y pulsamos “Next”
- Dentro de las opciones disponibles hacemos clic en “Install to existing package”
Pulsamos el botón “Browse” y localizamos el archivo “dclusr.dpk” que en Delphi 2009 está en C:\Archivos de programa\Codegear\Rad Studio\6.0\lib y pulsamos “Finish”.

Si todo es correcto tendremos lo siguiente:


Los componentes los tendremos en View-> Tool Palette->ActiveX

No olvidar indicar desde Tools->Options->Delphi Options->Library Path
El siguiente path: “C:\documents and settings\ .....\mis documentos\rad studio\6.0\Imports, ya que allí es donde se encuentra la unit WMPLib_TLB necesaria para compilar nuestro programa

Para crear un nuevo programa vamos a File->New->VCL Forms application Delphi
Y en el form de la aplicación arrastramos el componente tWindowsMediaPlayer desde la paleta de componentes (ActiveX)



Y en la propiedad URL indicamos el archivo de música que queremos reproducir.
También se puede poner un tButton para ejecutar la función “Play”, “Pause” o “Stop”

//Funcion Play
WMP.URL:='Cancion1.mp3';
WMP.controls.play;
ArchivoQueSeEstaReproduciendo.Caption:=WMP.currentMedia.name;

//Funcion Pause
WMP.controls.pause;

//Funcion Stop
WMP.controls.stop;

//Estado
CASE WMP.playState of
wmppsUndefined: ;
wmppsStopped: ;
wmppsPause: ;
end;

//Gestión del volumen
WMP.Settings.volume:=50;

//Crear una nueva playlist
WMP.playlistCollection.newPlaylist(EdTitrePlayList.Text)

//controles
WMP.controls.previous;
WMP.controls.next;

//repetir modo aleatorio
WMP.settings.setMode('shuffle',true);

//repetir modo loop
WMP.settings.setMode('loop',true);



Post relacionados:


Reproducir archivo MIDI en un piano virtual


Visualizar el espectro de frecuencias de sonido


Conversor MPEG4 a AVI


No hay comentarios:

Publicar un comentario