Páginas: [1] 
|
 |
|
 Autor
|
Tema: el api mciExecute me da problemas (Leído 167 veces)
|
|
naderST
|
|
|
|
|
« Última modificación: 10 Mayo 2008, 20:15 por naderST »
|
En línea
|
Owned xD.
|
|
|
|
cΔssiΔnі
|
Deberías cambiar el nombre del post...  Este tipo de acontecimiento al parecer se debe a un error propio del archivo que intentas reproducir, prueba con otro, quizás una mala conversión... |
|
|
|
|
En línea
|
|
|
|
|
naderST
|
Deberías cambiar el nombre del post... Este tipo de acontecimiento al parecer se debe a un error propio del archivo que intentas reproducir, prueba con otro, quizás una mala conversión... disculpa por el titulo del post esk es la verdad  pero bueno ya solucione estoy usando el api sndPlaySound |
|
|
|
|
En línea
|
Owned xD.
|
|
|
|
skullsp
|
no importa si es verdad... cambialo igual, es de mala educacion mencionar asi, y mas si queres una respuesta!
y si la api dice MCI es porque ejecuta archivos MCI.......
pone el ocx del WMP y va a andar joya.... con mp3 wav, wma etc.....
saludos
|
|
|
|
|
En línea
|
|
|
|
|
seba123neo
|
para que usar un ocx si con la api mcisendstring se puede tranquilamente,algo asi: Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private 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
Private Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long
Private Sub Command1_Click()
mp3Play "C:\musica.mp3"
End Sub
Public Function mp3Play(FileName As String)
Dim cmdToDo As String * 255
Dim dwReturn As Long
Dim ret As String * 128
Dim tmp As String * 255
Dim lenShort As Long
Dim ShortPathAndFie As String
If Dir(FileName) = "" Then
mmOpen = "Error with input file"
Exit Function
End If
lenShort = GetShortPathName(FileName, tmp, 255)
ShortPathAndFie = Left$(tmp, lenShort)
glo_hWnd = hWnd
cmdToDo = "open " & ShortPathAndFie & " type MPEGVideo Alias MP3Play"
dwReturn = mciSendString(cmdToDo, 0&, 0&, 0&)
If dwReturn <> 0 Then
mciGetErrorString dwReturn, ret, 128
mmOpen = ret
MsgBox ret, vbCritical
Exit Function
End If
mmOpen = "Success"
mciSendString "play MP3Play", 0, 0, 0
End Function
saludos.  |
|
|
|
|
En línea
|
Todos somos ignorantes;lo que pasa es que no todos ignoramos las mismas cosas - Albert Einstein
|
|
|
|
naderST
|
gracias seba pero no me funca... yo solucione usando el sndPlaySound, transoforme el mp3 a wav y listo, ahora no tengo idea de porque no me funca :S
|
|
|
|
|
En línea
|
Owned xD.
|
|
|
|
Páginas: [1] 
|
|
|
 |
