1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
| ' Gambas class file
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:
.Close
.URL = "https://icy.unitedradio.it/VirginRock70.mp3"
.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 'provoque l'erreur suivante : Flux déjà fermé
' Salva i dati audio letti in un file:
File.Save("~/file.mp3", stringa)
END
|