Foros del Web » Programación » Programación General » Visual Basic clásico »

Reproducir musica ruta en variable

Estas en el tema de Reproducir musica ruta en variable en el foro de Visual Basic clásico en Foros del Web. Buenas reproduzco un archivo de musica .mp3 con el siguiente codigo en un modulo: Cita: Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As ...
  #1 (permalink)  
Antiguo 17/11/2007, 13:46
Avatar de A.H.H  
Fecha de Ingreso: mayo-2007
Ubicación: IRUN,(GUIPUZCOA) España
Mensajes: 176
Antigüedad: 7 años, 5 meses
Puntos: 4
Reproducir musica ruta en variable

Buenas reproduzco un archivo de musica .mp3 con el siguiente codigo en un modulo:
Cita:
Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
en el form lo siguiente:
Cita:
Private Sub Command1_Click()
iRESULT = mciExecute("Play C:\lola.mp3")
End Sub

ESTO FUNCIONA PERFECTO PERO:

mi duda es que he puesto en el proyecto un commondialog para examinar y elegir otro archivo de musica distinto y la ruta meterla en una variable, pero me da un error de
Cita:
EL DISPOSITIVO ESPECIFICADO NO ESTA ABIERTO O MCI NO LO RECONOCE
ALGO ASI:

Cita:
Public music As String
Private Sub menuexaminaraudio_Click()
CommonDialog1.Flags = cdlOFNFileMustExist
CommonDialog1.InitDir = "%userprofile%\Mis documentos"
CommonDialog1.ShowOpen
music = CommonDialog1.FileName
aqui la variable music recoge la ruta elegida del archivo musica, pero me sale el error antes mencionado ALGUIEN SABE COMO HACERLO FUNCIONAR DESDE UNA VARIABLE??
Private Sub Command1_Click()

iRESULT = mciExecute("Play " & music) '---->he probado esto pero da error.

End Sub


gracias.salu2
  #2 (permalink)  
Antiguo 06/12/2007, 11:18
Avatar de A.H.H  
Fecha de Ingreso: mayo-2007
Ubicación: IRUN,(GUIPUZCOA) España
Mensajes: 176
Antigüedad: 7 años, 5 meses
Puntos: 4
Re: Reproducir musica ruta en variable

ya lo he resuelto yo mismo: uno de los problemas eran las comillas

para abrir el dispositivo MCI con una variable despues de elegir el archivo con un commondialog:

music = Chr$(34) + CommonDialog1.FileName + Chr$(34)

mciExecute ("open " & music)


mciExecute ("play " & music)


para cerrar el dispositivo MCI:


mciExecute "Close All"
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 21:14.
SEO by vBSEO 3.3.2