Differenze tra le versioni di "Registrare in tempo reale il flusso di dati audio di una radio WEB con le risorse della Classe HttpClient di Gambas"
Da Gambas-it.org - Wikipedia.
(Creata pagina con "E' possibile registrare in tempo reale il flusso di dati audio di una radio WEB con le risorse della Classe "HttpClient" di Gambas. <BR>Sarà necessario attivare i Componenti...") |
|||
| Riga 8: | Riga 8: | ||
| − | + | Public Sub Button1_Click() <FONT Color=gray>' ''Avvia la lettura del flusso di dati audio''</font> | |
With ht | With ht | ||
| Riga 17: | Riga 17: | ||
End With | End With | ||
| − | + | End | |
| − | + | ||
| + | Public Sub HTTP_Read() | ||
Dim sBuf As String | Dim sBuf As String | ||
| Riga 29: | Riga 30: | ||
Me.Text = Len(stringa) | Me.Text = Len(stringa) | ||
| − | + | End | |
| + | |||
| − | + | Public Sub Button2_Click() <FONT Color=gray>' ''Arresta la lettura del flusso di dati audio''</font> | |
ht.Stop | ht.Stop | ||
| Riga 39: | Riga 41: | ||
File.Save("/tmp/file.mp3", stringa) | File.Save("/tmp/file.mp3", stringa) | ||
| − | + | End | |
Versione attuale delle 05:29, 18 giu 2024
E' possibile registrare in tempo reale il flusso di dati audio di una radio WEB con le risorse della Classe "HttpClient" di Gambas.
Sarà necessario attivare i Componenti gb.net e gb.net.curl.
Mostriamo un esempio pratico, nel quale si registrerà il flusso di dati audio di formato MP3 di una radio web.
Il risultato sarà salvato in apposito file audio mp3.
Private ht As New HttpClient As "HTTP"
Private stringa As String
Public Sub Button1_Click() ' Avvia la lettura del flusso di dati audio
With ht
' Invia la richiesta al server della radio web per scaricare il flusso di dati audio:
.URL = "https:/giosa.radioca.st/stream"
.Timeout = 15
.Get()
End With
End
Public Sub HTTP_Read()
Dim sBuf As String
' Legge il flusso di una radio web che trasmette dati audio in formato MP3:
Read #ht, sBuf, -100000
stringa &= sBuf
Me.Text = Len(stringa)
End
Public Sub Button2_Click() ' Arresta la lettura del flusso di dati audio
ht.Stop
ht.Close
' Salva i dati audio letti in un file:
File.Save("/tmp/file.mp3", stringa)
End
