INTRODUCCION.

Este es un proyecto en Visual BASIC, que pretende re utilizar la tecnología Windows Media Player, para nuestro gusto particular, sin la necesidad de re inventar la rueda y aprovechando sus virtudes.

Una de las grandes virtudes que tiene el control wmp.dll, es la cantidad de eventos que tiene incorporados desde las versiones 9 en adelante, con lo cual yo aprovecho, para este ejemplo, los eventos CURRENTITEMCHANGE Y PLAYSTATECHANGE. El primero me informa cuando una canción ha terminado de ejecutarse para seguir con la siguiente en la lista, el Segundo Evento me indica es que estado está el Tema seleccionado, si detenido, en ejecución o pausa.

Otro tema de gran peso son los OBJETOS, que acompaña a este reproductor: IWMPMedia Y IWMPPlaylist. El primero se encarga de dar toda la información sobre una canción en particular desde el Nombre, álbum, autor, duración, discografía, archivo físico, etc. El segundo objeto se refiere a la lista de REPRODUCCION con la que se va a trabajar, indicando la cantidad de canciones que tiene, posee métodos para quitar, agregar canciones a la lista

 

A LA PRACTICA.

Para los que nunca experimentaron con el control wmp.dll, aquí dejo ver como hacer una lista de reproducción, en base de una carpeta que contenga archivos MP3 o WMA:

wmp1 ' Representa el objeto WINDOWS MEDIA PLAYER en nuestro formulario VB

 

Private Sub Command1_Click()

 

    Dim oFSO As New Scripting.FileSystemObject
    Dim oFile As Scripting.File
    Dim oCarpeta As Scripting.Folder
   

    wmp1.currentPlaylist.Clear ' ESTE METODO BORRA DE LA LISTA TODAS LAS CANCIONES

    set oCarpeta = oFSO.GetFolder("C:\mismp3")

    FOR EACH oFile in oCarpeta.Files

        wmp1.currentPlaylist.appendItem wmp1.mediaCollection.add(oFile.Path)

    Next

 

End Sub
 

Para entender esta linea de código...

wmp1.currentPlaylist.appendItem wmp1.mediaCollection.add(oFile.Path)

...lo primero que hace Windows Media Player es agregar el archivo a la LIBRERIA INTERNA que maneja: " wmp1.mediaCollection.add(oFile.Path) ", después de haberlo agregado a la librería se agrega a nuestra lista de reproducción " wmp1.currentPlaylist.appendItem "

 

MI APORTE.

Siempre es bueno darle un valor agregado a todo lo que hagamos, en mi caso particular agregue en la cabecera de este proyecto, el control DHTML, para mostrar el tema SELECCIONADO, el tiempo de reproducción y la imagen del ALBUM. El hecho que haya utilizado el DHTML es para dar un impacto VISUAL, ya que podemos hacer distintas plantillas y cambiar el aspecto, o sea SKIN.

Ustedes, pueden editar la plantilla con un editor de HTML, como por ejemplo FRONTPAGE (para que quede en familia, digo), que se encuentra en la carpeta "HTML\plantilla.htm", y así cambiar el aspecto, como por ejemplo colocar otro fondo, correr la imagen, colocar el TITULO del Album mas abajo o con otro color, etc.

 

REQUISITOS.

Para que este ejemplo funcione, se necesita lo siguiente:

• Referencia : MICROSOFT SCRIPTING RUNTIME
• Control - DHTML EDIT Control for IE 5.0
• Control - Windows Common Controls 6.0
• Control - Windows Media Player

El proyecto ha sido probado en un PC, con WinXPsp2, VB6, Windows Media Player 10 y IE 6.0

CÓDIGO FUENTE del ejemplo: rodrigo77_mp3WMP.zip - 46 KB