Aplicaciones/Fragmentos de Código :: Antena Un Programa Para Escuchar Radios Por Internet

Portal

Foro

Buscar

FAQ

Registrarse

Conectarse

Fecha y hora actual: Sabado, 04 May 2024, 22:04 • Todas las horas son UTC + 1 Hora

Antena Un Programa Para Escuchar Radios Por Internet

Página 1 de 1

Antena Un Programa Para Escuchar Radios Por Internet

Autor

Mensaje

tincho

Analista Programador

Registrado: Noviembre 2014
Mensajes: 2565
Edad: 48
Ubicación:

Antena Un Programa Para Escuchar Radios Por Internet

Hola a todos, estoy desarrollando un pequeño programa para escuchar radios por internet, mas o menos funciona pero me gustaria depurar algunas cosas.
Resulta que uso mplayer para reproducir el flujo de la radio online, pero me gustaria poder poner en una variable si la direccion url proporcionada funciona o no, para así poner en el treeview un icono de que esa radio funciona o no.
Bueno dejo el código por si a alguien le interesa echar un ojo.

Otro tema, si alguien desea proporcionar una lista de radios de sus respectvos paises, lo agregare con gusto al programa.
Para probar si funciona el url usen la siguiente orden

Código: [Descargar] [Ocultar] [Seleccionar]

mplayer rtmp://urldelaradio

Saludos.

Antena-0.0.1.tar.gz
Descripción:		Descargar
Nombre del archivo:	Antena-0.0.1.tar.gz
Tamaño:	32.62 KB
Descargado:	44 veces

Antena-0.0.1.tar.gz
Descripción:		Descargar
Nombre del archivo:	Antena-0.0.1.tar.gz
Tamaño:	32.62 KB
Descargado:	44 veces

Antena-0.0.1.tar.gz
Descripción:		Descargar
Nombre del archivo:	Antena-0.0.1.tar.gz
Tamaño:	32.62 KB
Descargado:	44 veces

#1 Miercoles, 18 Octobre 2017, 18:41

tincho

Analista Programador

Registrado: Noviembre 2014
Mensajes: 2565
Edad: 48
Ubicación:

Re: Antena Un Programa Para Escuchar Radios Por Internet

Alguien sabe como hacer para "leer la salida" del comando para escuchar radios por internet.
mplayer rtmp://urldelaradio

Para luego usar los datos.
Saludos.

#2 Jueves, 19 Octobre 2017, 15:13

jsbsan

Analista Programador

Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51
Ubicación:

dos hermanas, sevilla

Re: Antena Un Programa Para Escuchar Radios Por Internet

Tincho:
Del libro "gambas" de Daniel Campos-Jose Luis Redrejo, en las siguientes paginas 139,140, 141, hay un ejemplo de uso de Process_read()

http://gambaswiki.org/wiki/comp/gb/process?l=es

Ejemplo:

Código: [Descargar] [Ocultar] [Seleccionar]

EXEC "ls -la /tmp" FOR READ
...
PUBLIC SUB Process_Read()
  DIM sLine AS String
  READ #LAST, sLine, -256
  Content = Content & sLine
  PRINT sLine;
END

===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!

última edición por jsbsan el Jueves, 19 Octobre 2017, 21:27; editado 1 vez

#3 Jueves, 19 Octobre 2017, 21:25

tincho

Analista Programador

Registrado: Noviembre 2014
Mensajes: 2565
Edad: 48
Ubicación:

Re: Antena Un Programa Para Escuchar Radios Por Internet

jsbsan escribió: [Ver mensaje]
...uso de Process_read()...

He usado esa forma pero no funciona, el audio no es reproducido

Código: [Descargar] [Ocultar] [Seleccionar]

Public Sub OnAir(strRPlay As String)
  Dim strComm As String
  Dim prsRP As Process ' Radio play
  Dim strOut As String
  strComm = "mplayer -af lavcresample=44100 -cache 32 " & strRPlay
  File.Save(User.Home &/ "radio.sh", strComm)
  Wait 0.01
  prsRP = Shell strComm For Read As "RPlay"
  While prsRP.State = prsRP.Running
    Wait 0.1
  Wend
End
Public Sub RPlay_read()
  Dim strLine As String
  Read #Last, strLine, -80
  Print strLine
End

Pero si en vez de usar For Read uso For Output el código si reproduce el audio.

Código: [Descargar] [Ocultar] [Seleccionar]

Public Sub OnAir(strRPlay As String)

  Dim strComm As String
  Dim prsRP As Process ' Radio play
  Dim strOut As String

  strComm = "mplayer -af lavcresample=44100 -cache 32 " & strRPlay
  File.Save(User.Home &/ "radio.sh", strComm)
  Wait 0.01

  prsRP = Shell strComm For Output

  While prsRP.State = prsRP.Running
    Wait 0.1
  Wend

End

Pero como "leo" la salida de For Output ?

Saludos.

#4 Viernes, 20 Octobre 2017, 10:06

jsbsan

Analista Programador

Registrado: Septiembre 2009
Mensajes: 4175
Edad: 51
Ubicación:

dos hermanas, sevilla

Re: Antena Un Programa Para Escuchar Radios Por Internet

Tincho:

Prueba con Exec que es "ligeramente" diferente a Shell.

===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!

#5 Viernes, 20 Octobre 2017, 12:20

tincho

Analista Programador

Registrado: Noviembre 2014
Mensajes: 2565
Edad: 48
Ubicación:

Re: Antena Un Programa Para Escuchar Radios Por Internet

jsbsan escribió: [Ver mensaje]
...Prueba con Exec...

Tampoco funciona con Read, solo con Output

Código: [Descargar] [Ocultar] [Seleccionar]

Public Sub OnAir(strRPlay As String)

  Dim strComm As String
  Dim prsRP As Process ' Radio play
  Dim strOut As String

  prsRP = Exec ["mplayer", strPlay] For Output

End

Public Sub RPlay_Read()

  Dim strLine As String

  Read #Last, strLine, -80
  Print "######################################## " & strLine

End

Saludos.

#6 Viernes, 20 Octobre 2017, 13:44

tincho

Analista Programador

Registrado: Noviembre 2014
Mensajes: 2565
Edad: 48
Ubicación:

Re: Antena Un Programa Para Escuchar Radios Por Internet

Alguien sabe si gambas tiene un componente que reproduzca flujos de sonido desde internet. Algo que pasandole un URL haga la función como mplayer o mpg123.

Saludos.

#7 Viernes, 20 Octobre 2017, 14:05

razaAztk

aztk crux

Analista Programador

Registrado: Enero 2010
Mensajes: 340
Edad: 35
Ubicación:

Tenochtitlan

Re: Antena Un Programa Para Escuchar Radios Por Internet

tincho escribió: [Ver mensaje]
Alguien sabe si gambas tiene un componente que reproduzca flujos de sonido desde internet. Algo que pasandole un URL haga la función como mplayer o mpg123.

Saludos.

http://gambaswiki.org/wiki/comp/gb.media

Y sobre todo su clase MediaPlayer

Saludos.

#8 Viernes, 20 Octobre 2017, 14:44

Temas parecidos

	Autor	Foro	Respuestas	último mensaje
Programa Para Conectarse A Internet Vía ...	kauna	Aplicaciones/Fragmentos de Código	6	Viernes, 08 Octobre 2010, 00:46 jsbsan
Gbmedia: Para Escuchar File Audio Y Midi (...	vuott	Aplicaciones/Fragmentos de Código	5	Martes, 25 Febrero 2014, 20:41 shordi
Comunicacion De Dispositivo Movil + Progra...	tincho	General	3	Viernes, 06 May 2016, 09:48 tincho
Que Se Necesita Para Desarrollar Un Progra...	jousseph	General	3	Jueves, 03 Agosto 2017, 22:28 razaAztk

Página 1 de 1

Fecha y hora actual: Sabado, 04 May 2024, 22:04 • Todas las horas son UTC + 1 Hora

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno

Lista de permisos

No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

Versión reducida del foro - (Lo-Fi)
Página generada en:: 0.6268s (PHP: -85% SQL: 185%)
Consultas SQL: 48 - Debug off - GZIP Activado

Design by Mighty Gorgon