Visual Basic Foro
Programación => Visual Basic 6 => Mensaje iniciado por: Bazooka en Julio 21, 2010, 07:55:48 am
-
Hola, necesito el codigo o algo similar a la radio Arroyo seco que ha creado Leandro y que estaba en esta WEB (ahora no la veo) para crear un ejecutable para que lea una determinada FM. No encuentro ningun codigo sobre esto como para comenzar y no quiero utilizar un programa externo como Winamp.
gracias + 1000
-
podes probar hacerlo con esta api: mciSendString (http://msdn.microsoft.com/en-us/library/dd757161%28VS.85%29.aspx) y Multimedia Command Strings (http://msdn.microsoft.com/en-us/library/dd743572%28v=VS.85%29.aspx) (Open)
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
-
podes probar hacerlo con esta api: mciSendString (http://msdn.microsoft.com/en-us/library/dd757161%28VS.85%29.aspx) y Multimedia Command Strings (http://msdn.microsoft.com/en-us/library/dd743572%28v=VS.85%29.aspx) (Open)
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
Con todo respeto eso es demasiado basico y solo para introducir sonidos. Para correr una FM necesito introducir la URL de la misma supongo no creo que sea tan complicado (o me equivoco?)
Gracias igual!
-
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
Const Radio As String = "http://200.49.139.146:80/rockandpop?MSWMExt=.asf"' Rock $ Pop FM 95.9
Private Sub btnplay_Click()
Call mciSendString("OPEN " + Radio, 0&, 0, 0)
Call mciSendString("PLAY " + Radio, 0&, 0, 0)
End Sub
Private Sub BtnStop_Click()
Call mciSendString("STOP " + Radio, 0&, 0, 0)
Call mciSendString("close " + Radio, 0&, 0, 0)
End Sub
con esto basta para reproducir una radio online....
-
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
Const Radio As String = "http://200.49.139.146:80/rockandpop?MSWMExt=.asf"' Rock $ Pop FM 95.9
Private Sub btnplay_Click()
Call mciSendString("OPEN " + Radio, 0&, 0, 0)
Call mciSendString("PLAY " + Radio, 0&, 0, 0)
End Sub
Private Sub BtnStop_Click()
Call mciSendString("STOP " + Radio, 0&, 0, 0)
Call mciSendString("close " + Radio, 0&, 0, 0)
End Sub
con esto basta para reproducir una radio online....
Buenisimo xkiz! muchas gracias ahora mismo lo pruebo !
Abrazote!!
-
Che que bueno xKiz, no sabia que se podia reproducir una radio online con mciSendStringA, no lo mio era un programita que habia hecho para una radio de mi ciudad, es el que vos creaste el instalador, pero bueno yo usaba el ocx del WMP. :P
-
Hola
Si no me equivoco WMP su motor Principal es mciSendString, reproduce TODO según los Codecs que tengas (Incluye imagenes!¡.), tengo entendido!¡.
Sangriento Infierno Lunar!¡.
-
en realidad no pasa por WMP. WMP usa DirectShow, que no es lo mismo que usar las apis de winm.dll. En el supuesto caso, es mejor usar el api, ya que no dependes del control OCX de ninguna forma.
salu2
-
Che que bueno xKiz, no sabia que se podia reproducir una radio online con mciSendStringA, no lo mio era un programita que habia hecho para una radio de mi ciudad, es el que vos creaste el instalador, pero bueno yo usaba el ocx del WMP. :P
Leandro y no te queda bien compartirlo asi me ahorro el lavuro??
Gracias
-
es aglo bien sensillo, yo dira mejor uses esa api que te paso xKiz pero buen igualmente este es el que hize
http://www.mediafire.com/?lcku8gyubkt90gg (http://www.mediafire.com/?lcku8gyubkt90gg)
Saludos.
-
es aglo bien sensillo, yo dira mejor uses esa api que te paso xKiz pero buen igualmente este es el que hize
http://www.mediafire.com/?lcku8gyubkt90gg (http://www.mediafire.com/?lcku8gyubkt90gg)
Saludos.
MUNDIAL!! gracias!! LEANDRO