Rep.MP3 ActiveX
Publicado por Krator (71 intervenciones) el 05/04/2005 20:38:53
Tengo conocimientos en cuanto a gestión, pero de otras aplicaciones...
Así que pido toda la ayuda posible para crear un ActiveX que introduciré en una Web que sea capaz de reproducir MP3.
El primer problema que me encuentro es que solo hago que reproduzca WAV, pero el MP3 no lo traga.
Intentos.
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub cmdPlay_Click(Index As Integer)
prueba = "Play " & App.Path & "\campainmusic03.mp3"
Result = mciExecute(prueba)
End Sub
Para WAV lo ponía así:
Private Sub cmdPlay_Click(Index As Integer)
PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub.
Please Help!!
Así que pido toda la ayuda posible para crear un ActiveX que introduciré en una Web que sea capaz de reproducir MP3.
El primer problema que me encuentro es que solo hago que reproduzca WAV, pero el MP3 no lo traga.
Intentos.
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub cmdPlay_Click(Index As Integer)
prueba = "Play " & App.Path & "\campainmusic03.mp3"
Result = mciExecute(prueba)
End Sub
Para WAV lo ponía así:
Private Sub cmdPlay_Click(Index As Integer)
PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub.
Please Help!!
Valora esta pregunta
0