Riproduzione dell'audio di radio WEB mediante il Componente gb.media
Da Gambas-it.org - Wikipedia.
Versione del 17 feb 2017 alle 11:14 di Vuott (Discussione | contributi)
Le stazioni radio via WEB possono essere ascoltate in streaming anche utilizzando le risorse del Componente gb.media di Gambas.
Uso della Classe MediaPlayer
L'utilizzo della Classe MediaPlayer prevede l'uso del plug-in playbin.
Esempio pratico:
Public Sub Main() Dim mp As MediaPlayer With mp = New MediaPlayer .URL = "http://indirizzo/web/del/flusso/radio/live" .Play End With While True ' Mostra in console la posizione, espressa in secondi, all'interno dei dati processati: Write #File.Out, "\rTempo trascorso: " & CStr(Date(0, 0, 0, 0, 0, 0, mp.Position * 1000)) Wait 0.01 Wend End
Uso della Classe MediaPipeline
L'utilizzo della Classe MediaPipeline prevede l'uso del plug-in playbin.
Esempio pratico:
Public Sub Main() Dim pl As MediaPipeline pl = New MediaPipeline(Null, "playbin") pl["uri"] = "http://indirizzo/web/del/flusso/radio/live" pl.Play() While True ' Mostra in console la posizione, espressa in secondi, all'interno dei dati processati: Write #File.Out, "\rTempo trascorso: " & CStr(Date(0, 0, 0, 0, 0, 0, pl.Position * 1000)) Wait 0.01 Wend End
Uso delle Classi MediaPipeline e MediaControl
Anche l'uso delle Classi MediaPipeline e MediaControl prevede l'uso del plug-in playbin.
Public Sub Main() Dim pl As MediaPipeline Dim src As MediaControl src = New MediaControl(pl, "playbin") src["uri"] = "http://indirizzo/web/del/flusso/radio/live" pl.Play() While True ' Mostra in console la posizione, espressa in secondi, all'interno dei dati processati: Write #File.Out, "\rTempo trascorso: " & CStr(Date(0, 0, 0, 0, 0, 0, mp.Position * 1000)) Wait 0.01 Wend End