INFORMATICA Y OCIO

firefenix · Forero Registrado: 06 Nov 2007 Mensajes: 164

Hola a todos. Bueno, pues la pregunta es la siguiente: ¿Cómo puedo reproducir un MP3 en un proyecto de Visual Basic sin tener instalado el Windows Media Player 9?

He leído bastantes artículos de internet sobre esto, pero para todos necesitaba tener instalado el WMP 9, cosa que no quiero hacer.

Saben algún método?
_________________

DploiD · Publicado: Dom Feb 10, 2008 4:22 pm **Título del mensaje**:

Usando la API mciExecute, podés reproducir WAV o MP3, tambien dicen MIDI pero no estoy seguro ya que no lo he probado con midi...

Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

y en el form pones:

Private Sub Command1_Click()
iResult = mciExecute("Play c:\mp3.mp3")
End Sub

No tengo el VB instalado en este momento así que no lo pude probar, pero creo que funciona.

Un saludo.
_________________
Avisame del spam

firefenix · Forero Registrado: 06 Nov 2007 Mensajes: 164

OK. Gracias. Luego te confirmo si funciona o no Wink

_________________

DploiD · Publicado: Dom Feb 10, 2008 6:12 pm **Título del mensaje**:

Si, supongo que está bien el codigo, pero no tengo el VB instalado, yo lo había usado en algún programa, asi que funcionar funciona.

Despues me decis si anduvo o no de todas formas xD
Hay que tener la libreria winmm.dll, pero casi todas las PC la tienen xD

Se puede saber para que es?

Un saludo.
_________________
Avisame del spam

firefenix · Forero Registrado: 06 Nov 2007 Mensajes: 164

Pues mira, es que me estoy haciendo un despertador y quiero poder elegir el sonido que se me va a despertar. La cosa es que sé reproducir WAV (my.computer.audio.play ()), pero no sé reproducir mp3 (no tengo canciones en ese formato). Tendría la opción de convertirlo, pero es más que nada por aprender a hacerlo.

Ahora bien, sobre el código que has escrito: qué es iResult? declaré una variable tipo Long para ver si funcionaba, pero no da resultado. Me aparece el siguiente error:
"El archivo especificado no está abierto o MCI no lo reconoce"

Alguna idea?
_________________

DploiD · Publicado: Lun Feb 11, 2008 4:29 pm **Título del mensaje**:

No necesitas declarar nada, si te tira error saca el Option Explicit de las declaraciones.

Una vez que logres reproducir, usas estos codigos para detener y para pausar:

iResult = mciExecute("Stop c:\mp3.mp3")

iResult = mciExecute("Pause c:\mp3.mp3")

Un saludo.
PD: No puedo probar nada porque no puedo instalar el VB Confused

_________________
Avisame del spam

	Índice del Foro Foroz comunity :: Programación	Todas las horas están en GMT + 1 Hora
Página 1 de 1