Differenze tra le versioni di "Riproduzione dell'audio di radio WEB mediante il Componente gb.media"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "Le stazioni radio via WEB possono essere ascoltate in ''streaming'' anche utilizzando le risorse del Componente ''gb.media'' di Gambas. Esempio pratico: '''Public''' Sub Ma...") |
|||
Riga 1: | Riga 1: | ||
Le stazioni radio via WEB possono essere ascoltate in ''streaming'' anche utilizzando le risorse del Componente ''gb.media'' di Gambas. | 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: | Esempio pratico: | ||
+ | '''Public''' Sub Main() | ||
+ | |||
+ | Dim mp As MediaPlayer | ||
+ | |||
+ | With mp = New MediaPlayer | ||
+ | .URL = "<FONT Color=gray>''http://indirizzo/web/del/flusso/radio/live''</font>" | ||
+ | .Play | ||
+ | End With | ||
+ | |||
+ | While True | ||
+ | <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, 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"] = "<FONT Color=gray>''http://indirizzo/web/del/flusso/radio/live''</font>" | ||
+ | |||
+ | pl.Play() | ||
+ | |||
+ | While True | ||
+ | <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, 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() | '''Public''' Sub Main() | ||
Riga 14: | Riga 59: | ||
While True | While True | ||
− | + | <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, mp.Position * 1000)) | ||
+ | Wait 0.01 | ||
Wend | Wend | ||
'''End''' | '''End''' |
Versione delle 11:14, 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, mp.Position * 1000)) Wait 0.01 Wend End