Ver Mensaje Individual
  #1 (permalink)  
Antiguo 19/01/2010, 08:47
Avatar de A.H.H
A.H.H
 
Fecha de Ingreso: mayo-2007
Ubicación: IRUN,(GUIPUZCOA) España
Mensajes: 178
Antigüedad: 17 años, 10 meses
Puntos: 4
mciSendString

Hola tengo este codigo para visualizar video en una ventana de windows, pero solo consigo visualizar el video, si el codec es .mpg
con los .avi solo los escucho pero no los visualizo.
Tengo todos los codecs en el pc instalados.
mis preguntas son ¿que codigo hace falta insertar para que mciSendString me reconozca los .avi?
¿hay que hacer referencia al paquete de codecs o algo asi y como?

Código:
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()
CmdStr$ = "play C:\bb.avi"
ReturnVal& = mciSendString(CmdStr$, 0&, 0, 0&)
End Sub

Private Sub Form_Unload(Cancel As Integer)
CmdStr$ = "close all"
ReturnVal& = mciSendString(CmdStr$, 0&, 0, 0&)
Unload Me

End Sub