|
Título: reproducir Musica Publicado por: Meg en 7 Julio 2006, 14:54 pm Mi duda es la siguiente como reproducco un archivo mp3 en un form sin utilizar la api Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
ya k aciedo esto me da un error: iresult = mciExecute("Play " & App.Path & "\cancion.mp3") gracias Título: Re: reproducir Musica Publicado por: yeikos en 7 Julio 2006, 15:15 pm Código: Public Const SND_APPLICATION = &H80 ' look for application specific association Public Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry Public Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds] entry identifier Public Const SND_ASYNC = &H1 ' play asynchronously Public Const SND_FILENAME = &H20000 ' name is a file name Public Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound Public Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file Public Const SND_NODEFAULT = &H2 ' silence not default, if sound not found Public Const SND_NOSTOP = &H10 ' don't stop any currently playing sound Public Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy Public Const SND_PURGE = &H40 ' purge non-static events for task Public Const SND_RESOURCE = &H40004 ' name is a resource name or atom Public Const SND_SYNC = &H0 ' play synchronously (default) Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long PlaySound "C:\carpeta 1\ding.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC Título: Re: reproducir Musica Publicado por: Meg en 7 Julio 2006, 15:23 pm Gracias pero me sige sin ir al hacer esto:PlaySound (App.Path & "\cancion.mp3"), ByVal 0&, SND_FILENAME Or SND_ASYNC
Suena un beep y no se escucha la cancion :-( Título: Re: reproducir Musica Publicado por: -POLACO- en 18 Julio 2006, 00:48 am Aca te dejo una posible solucion a tu problema , se trata de agregar el control WindowsMwdiaPlayer y ponerlo visible=false.
Para encontrarlo te vas a "Proyecto" de ahi a "Componentes" ahi casi abajo de todo lo encontraras ,lo agregas al form1 y lo pones en Visible=False despues agregas un boton Command1 y el codigo sera asi Código: Private Sub Command1_Click() WindowsMediaPlayer1.Close WindowsMediaPlayer1.URL = "C:/Tu-Archivo.mp3" End Sub Podes reproducir cualquier cosa que reproduzca el windows media player ,mp3,mpeg,wmv,etc, en fin todo lo que WindowsMediareproduzca ,y NO hay que distribuirlo con la aplicacion ya que todos los windows lo traen por defecto. Espero te sirva Saludos .-. |