| Usuario |
Como reproducir mp3 en windows XP ... |
Desconocido
|
| Enviado - 23/10/2004 |
| |
Por favor necesito saber como puedo reproducir mp3 con visual basic ya que he provado haciendo esto y no me funciona:
Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
cadena=mciExecute("play c:\micancion.mp3")
he provado con esta api que me he visto en otro foro que decian que funcionaba pero a mi no me funciona y no se si es por el S.O, si supierais otra forma os agradeceria que me lo dijerais, muchas gracias ;) |
| |
|
Bassillo
12 Mensaje(s)
|
| Enviado - 24/10/2004 |
| |
mira la api para reproducir mp3 n es esa sino:
Public 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
con esta si se puede reproducir mp3 y se utiliza de la siguiente forma:
estas son funciones que yo desarrolle copialas tal y como estan la api anterior debe de ir en un modulo uy debe de ser publica.
Option Explicit
Public lpszReturnString As String * 128
Public StatusRet As String * 128
Public Function Playsound(Cual As String, Ruta As String, Library As String) As String
'Procedimiento para la reproduccion de un Sonido
Dim Rt As String
Rt = "Open " & Chr(34) & Ruta & Chr(34) & " type " & Library & " alias " & Cual
Call mciSendString(Rt, lpszReturnString, Len(lpszReturnString), 0&)
Call mciSendString("Play " & Cual, lpszReturnString, Len(lpszReturnString), 0&)
Call mciSendString("Status " & Cual & " Mode", StatusRet, Len(StatusRet), 0&)
Playsound = StatusRet
End Function
Public Function PararCancion(Cual As String)
'Cierra un sonido
Call mciSendString("close " & Cual, lpszReturnString, Len(lpszReturnString), 0&)
End Function
Public Function Pausacancion(Cual As String)
'Para un sonido
Call mciSendString("Pause " & Cual, lpszReturnString, Len(lpszReturnString), 0&)
End Function
!!!ATENCION!!! Copia todo esto en un modulo
y para uitlizarlas ejemplo:
'pausa
Pausacancion "MPEGSound"
'para parar (cerrar cancion)
PararCancion "MPEGsound"
'para reproducir (rep devuelve el estado de la cancion)
Dim Rep As String
Rep = Playsound("MPEGSound", Arc1, "MPEGvideo")
asi de sencillo si tienes dudas mandamelas a:
[email protected]
bass/bassillo |
| |
|
Bassillo
12 Mensaje(s)
|
| Enviado - 24/10/2004 |
| |
se me olvida en reproducir arc1 quiere decir la ruta....
perdon espero que te ayude |
| |
|
Desconocido
|
| Enviado - 3/11/2004 |
| |
| como se puede saber la duracion de la cancion usando lo que has puesto ahi?.Un Saludo |
| |
|
|
|
