Differenze tra le versioni di "Riproduzione dell'audio di radio WEB mediante il Componente gb.media"
Da Gambas-it.org - Wikipedia.
Riga 60: | Riga 60: | ||
While True | While True | ||
<FONT Color=gray>' ''Mostra in console la posizione, espressa in secondi, all'interno dei dati processati:''</font> | <FONT Color=gray>' ''Mostra in console la posizione, espressa in secondi, all'interno dei dati processati:''</font> | ||
− | Write #File.Out, "\rTempo trascorso: " & CStr(Date(0, 0, 0, 0, 0, 0, | + | Write #File.Out, "\rTempo trascorso: " & CStr(Date(0, 0, 0, 0, 0, 0, pl.Position * 1000)) |
Wait 0.01 | Wait 0.01 | ||
Wend | Wend | ||
'''End''' | '''End''' |
Versione delle 11:15, 17 feb 2017
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, pl.Position * 1000)) Wait 0.01 Wend End