Como reproducir un MP3 en Visual Basic?

Iniciado por jdc, 28 Noviembre 2008, 02:07 AM

0 Miembros y 1 Visitante están viendo este tema.

jdc

Pues eso hoy en clases nos mostraron como reproducir wav con mmcontrol y me gustaría saber como sería para reproducir un mp3 :)

Gracias de antemano, por cierto he visto varios reproductores pero no es la idea aprender a copiar sino a hacer :)
Gracias

WestOn

#1
Wenas, yo los reproduzco con el componente Windows Media Player.

un saludo

PD:con mmcontrol no se :xD
En mi cabeza existe una barrera espacio-tiempo de 4cm³. ¿Alguien sabe como eliminarla?.
                                                                                                                                                                                                                            

jdc

aja pero como se usaria el comtrol de WMP? lo malo es que al usarlo dependeria de que estuviera instalado en el PC el Windows Media no?

aaronduran2

Utiliza la API mciSendString

Código (vb) [Seleccionar]
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Saludos  ;)

WestOn

#4
Si, lo del Media Player seria eso, si no esta instalado el reproductor no sirve, de todas formas con lo q ha dicho aaronduran2  ya puedes hacerlo  :D

un saludo

PD:No hace falta q este instalada el Windows Media, solo coje el .ocx de un ordenador q si lo tenga :P (creo q es wmp.ocx/wmp.dll, una de las dos)
En mi cabeza existe una barrera espacio-tiempo de 4cm³. ¿Alguien sabe como eliminarla?.
                                                                                                                                                                                                                            

jdc

Lo siento pero no se usar APIs llevó recién un mes haciendo experimentos y me quedó pegado en términos :(

Esto iría en un módulo? O similar... Gracias

Banker25

seria bueno elabora alguno o colocar algunas de las herramientas que hay que utiliza para realizar un reproducir un MP3 en Visual Basic

guajolote_vengador

Cita de: WestOn en 28 Noviembre 2008, 21:15 PM
Si, lo del Media Player seria eso, si no esta instalado el reproductor no sirve, de todas formas con lo q ha dicho aaronduran2  ya puedes hacerlo  :D

un saludo

PD:No hace falta q este instalada el Windows Media, solo coje el .ocx de un ordenador q si lo tenga :P (creo q es wmp.ocx/wmp.dll, una de las dos)

Exactamente como dice el amigo WestOn, hasta con un scrip un ejemplo seria:

Set Wmp = CreateObject("WMPlayer.OCX.7")
Wmp.URL = "mi sonido.mp3" ;---------Puede ser mp3,wav,wma
Wmp.Controls.Play
wscript.sleep 5000 ;--------------Tiempo de reproduccion en ms.

Este ejemplo por aqui lo vi en un post.

Ó talvez estoy entendiendo mal lo que quieres hacer.

jdc

La idea principal más que usar un reproductor es usar el mismo visual basic para reproducir, osea abrir el media player (o embedarlo) no es la idea.

No hay ninguna forma de reproducir con visual basic un mp3?

WestOn

Wenas, vi un ejemplo de estos q hacen lo de micro$oft:
Añade un CommonDialog, y dos botones
Código (vb) [Seleccionar]
Private Declare Function mciSendString Lib "winmm.dll" Alias _
       "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
       lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
       hwndCallback As Long) As Long

      Private Sub Command1_Click()
        CommonDialog1.ShowOpen
        Debug.Print CommonDialog1.filename
        Debug.Print mciSendString( _
          "open " & CommonDialog1.filename & " alias testfile", 0&, 0, 0)
        ' To work around the long file name limitation use the next line
        ' instead of the previous line, which adds quotes around the path
        ' and file name.
        'Debug.Print mciSendString( _
          "open " & """" & CommonDialog1.filename & """" _
         & " alias testfile", 0&, 0, 0)

        Debug.Print mciSendString("play testfile wait", 0&, 0, 0)
      End Sub

      Private Sub Command2_Click()
        Debug.Print mciSendString("close testfile", 0&, 0, 0)
      End Sub

      Private Sub Form_Load()
        Command1.Caption = "Open and Run"
        Command2.Caption = "Close MDI file"
      End Sub

El CommonDialog es el control "Microsoft Common Dialog Control 6.0".
De todas formas si quieres echale un vistazo: http://support.microsoft.com/kb/191089/es

un saludo ;)
En mi cabeza existe una barrera espacio-tiempo de 4cm³. ¿Alguien sabe como eliminarla?.