Differenze tra le versioni di "Riproduzione dell'audio di radio WEB mediante il Componente gb.media"
Da Gambas-it.org - Wikipedia.
| Riga 5: | Riga 5: | ||
L'utilizzo della Classe ''MediaPlayer'' prevede l'uso del plug-in ''playbin''. | L'utilizzo della Classe ''MediaPlayer'' prevede l'uso del plug-in ''playbin''. | ||
| − | + | Mostriamo un esempio pratico, nel quale basterà premere il tasto "Invio" per chiudere il programma. | |
| + | Private bo As Boolean | ||
| + | |||
| + | |||
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
Dim mp As MediaPlayer | Dim mp As MediaPlayer | ||
| − | + | With mp = New MediaPlayer | |
| − | + | .URL = "<FONT Color=gray>''http://indirizzo/web/del/flusso/radio/live''</font>" | |
| − | + | .Play | |
| − | + | End With | |
| − | + | ||
| − | + | Repeat | |
<FONT Color=gray>' ''Mostra in console il tempo trascorso dall'avvio del processo dei dati audio ricevuti:''</font> | <FONT Color=gray>' ''Mostra in console il tempo trascorso dall'avvio del processo dei dati audio ricevuti:''</font> | ||
| − | + | Write "\rTempo trascorso: " & CStr(Date(0, 0, 0, 0, 0, 0, mp.Position * 1000)) | |
| − | + | Wait 0.001 | |
| − | + | Until bo = True | |
| − | + | ||
| + | mp.Stop | ||
| + | mp.Close | ||
| + | Quit | ||
| + | |||
| + | '''End''' | ||
| + | |||
| + | |||
| + | '''Public''' Sub Application_Read() | ||
| + | |||
| + | Dim s As String | ||
| + | |||
| + | Input s | ||
| + | |||
| + | bo = True | ||
| + | |||
'''End''' | '''End''' | ||
| Riga 27: | Riga 45: | ||
L'utilizzo della Classe ''MediaPipeline'' prevede l'uso del plug-in ''playbin''. | L'utilizzo della Classe ''MediaPipeline'' prevede l'uso del plug-in ''playbin''. | ||
| − | + | Mostriamo un esempio pratico, nel quale basterà premere il tasto "Invio" per chiudere il programma. | |
| + | Private bo As Boolean | ||
| + | |||
| + | |||
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
Dim pl As MediaPipeline | Dim pl As MediaPipeline | ||
| − | + | pl = New MediaPipeline(Null, "playbin") | |
| − | + | pl["uri"] = "<FONT Color=gray>''http://indirizzo/web/del/flusso/radio/live''</font>" | |
| + | |||
| + | pl.Play() | ||
| − | + | Repeat | |
| − | |||
| − | |||
<FONT Color=gray>' ''Mostra in console il tempo trascorso dall'avvio del processo dei dati audio ricevuti:''</font> | <FONT Color=gray>' ''Mostra in console il tempo trascorso dall'avvio del processo dei dati audio ricevuti:''</font> | ||
| − | + | Write "\rTempo trascorso: " & CStr(Date(0, 0, 0, 0, 0, 0, pl.Position * 1000)) | |
| − | + | Wait 0.001 | |
| − | + | Until bo = True | |
| + | |||
| + | pl.Stop | ||
| + | pl.Close | ||
| + | Quit | ||
| + | |||
| + | '''End''' | ||
| + | |||
| + | |||
| + | '''Public''' Sub Application_Read() | ||
| + | |||
| + | Dim s As String | ||
| + | |||
| + | Input s | ||
| + | |||
| + | bo = True | ||
'''End''' | '''End''' | ||
| Riga 48: | Riga 84: | ||
==Uso delle Classi ''MediaPipeline'' e ''MediaControl''== | ==Uso delle Classi ''MediaPipeline'' e ''MediaControl''== | ||
Anche l'uso delle Classi ''MediaPipeline'' e ''MediaControl'' prevede l'uso del plug-in ''playbin''. | Anche l'uso delle Classi ''MediaPipeline'' e ''MediaControl'' prevede l'uso del plug-in ''playbin''. | ||
| + | |||
| + | Mostriamo un esempio pratico, nel quale basterà premere il tasto "Invio" per chiudere il programma. | ||
| + | Private bo As Boolean | ||
| + | |||
| + | |||
'''Public''' Sub Main() | '''Public''' Sub Main() | ||
| Riga 53: | Riga 94: | ||
Dim src As MediaControl | Dim src As MediaControl | ||
| − | + | pl = New MediaPipeline | |
| − | + | src = New MediaControl(pl, "playbin") | |
| − | + | src["uri"] = "<FONT Color=gray>''http://indirizzo/web/del/flusso/radio/live''</font>" | |
| − | + | pl.Play() | |
| − | + | Repeat | |
<FONT Color=gray>' ''Mostra in console il tempo trascorso dall'avvio del processo dei dati audio ricevuti:''</font> | <FONT Color=gray>' ''Mostra in console il tempo trascorso dall'avvio del processo dei dati audio ricevuti:''</font> | ||
| − | + | Write "\rTempo trascorso: " & CStr(Date(0, 0, 0, 0, 0, 0, pl.Position * 1000)) | |
| − | + | Wait 0.001 | |
| − | + | Until bo = True | |
| − | + | ||
| + | pl.Stop | ||
| + | pl.Close | ||
| + | Quit | ||
| + | |||
| + | '''End''' | ||
| + | |||
| + | |||
| + | '''Public''' Sub Application_Read() | ||
| + | |||
| + | Dim s As String | ||
| + | |||
| + | Input s | ||
| + | |||
| + | bo = True | ||
| + | |||
'''End''' | '''End''' | ||
| Riga 99: | Riga 155: | ||
mp.Stop | mp.Stop | ||
| − | + | mp.Close | |
Me.Close | Me.Close | ||
| Riga 105: | Riga 161: | ||
| − | '''Public''' Sub Button1_Click() | + | '''Public''' Sub Button1_Click() <FONT Color=gray>' ''Premendo sul "Button" si chiuderà il programma''</font> |
bo = True | bo = True | ||
'''End''' | '''End''' | ||
Versione delle 17:54, 3 ago 2019
Le stazioni radio via WEB possono essere ascoltate in streaming anche utilizzando le risorse del Componente gb.media di Gambas.
Indice
Uso della Classe MediaPlayer
L'utilizzo della Classe MediaPlayer prevede l'uso del plug-in playbin.
Mostriamo un esempio pratico, nel quale basterà premere il tasto "Invio" per chiudere il programma.
Private bo As Boolean Public Sub Main() Dim mp As MediaPlayer With mp = New MediaPlayer .URL = "http://indirizzo/web/del/flusso/radio/live" .Play End With Repeat ' Mostra in console il tempo trascorso dall'avvio del processo dei dati audio ricevuti: Write "\rTempo trascorso: " & CStr(Date(0, 0, 0, 0, 0, 0, mp.Position * 1000)) Wait 0.001 Until bo = True mp.Stop mp.Close Quit End Public Sub Application_Read() Dim s As String Input s bo = True End
Uso della Classe MediaPipeline
L'utilizzo della Classe MediaPipeline prevede l'uso del plug-in playbin.
Mostriamo un esempio pratico, nel quale basterà premere il tasto "Invio" per chiudere il programma.
Private bo As Boolean Public Sub Main() Dim pl As MediaPipeline pl = New MediaPipeline(Null, "playbin") pl["uri"] = "http://indirizzo/web/del/flusso/radio/live" pl.Play() Repeat ' Mostra in console il tempo trascorso dall'avvio del processo dei dati audio ricevuti: Write "\rTempo trascorso: " & CStr(Date(0, 0, 0, 0, 0, 0, pl.Position * 1000)) Wait 0.001 Until bo = True pl.Stop pl.Close Quit End Public Sub Application_Read() Dim s As String Input s bo = True End
Uso delle Classi MediaPipeline e MediaControl
Anche l'uso delle Classi MediaPipeline e MediaControl prevede l'uso del plug-in playbin.
Mostriamo un esempio pratico, nel quale basterà premere il tasto "Invio" per chiudere il programma.
Private bo As Boolean Public Sub Main() Dim pl As MediaPipeline Dim src As MediaControl pl = New MediaPipeline src = New MediaControl(pl, "playbin") src["uri"] = "http://indirizzo/web/del/flusso/radio/live" pl.Play() Repeat ' Mostra in console il tempo trascorso dall'avvio del processo dei dati audio ricevuti: Write "\rTempo trascorso: " & CStr(Date(0, 0, 0, 0, 0, 0, pl.Position * 1000)) Wait 0.001 Until bo = True pl.Stop pl.Close Quit End Public Sub Application_Read() Dim s As String Input s bo = True End
Uso delle Classi MediaPlayer e MediaControl e del plug-in jackaudiosink
L'uso delle Classi MediaPlayer e MediaControl e del plug-in jackaudiosink richiede che sia preliminarmente avviato il programma server Jack.
Mostriamo un esempio questa volta in ambiente grafico:
Private bo As Boolean
Public Sub Form_Open()
Dim mp As MediaPlayer
Dim usc As MediaControl
Me.Show
With mp = New MediaPlayer
.URL = "http://indirizzo/web/del/flusso/radio/live"
End With
usc = New MediaControl(mp, "jackaudiosink")
mp.Audio.Output = usc
mp.Play()
While bo = False
' Mostra in un "TextBox" il tempo trascorso dall'avvio del processo dei dati audio ricevuti:
TextBox1.Text = CStr(Date(0, 0, 0, 0, 0, 0, mp.Position * 1000))
Wait 0.01
Wend
mp.Stop
mp.Close
Me.Close
End
Public Sub Button1_Click() ' Premendo sul "Button" si chiuderà il programma
bo = True
End
