|
|
| (21 versioni intermedie di uno stesso utente non sono mostrate) |
| Riga 1: |
Riga 1: |
| − | Di seguito vedremo due esempi per scaricare dal WEB file immagini. Il primo esempio utilizza le <SPAN style="text-decoration:underline">sole</span> funzioni e risorse di Gambas; il secondo utilizza il comando ''Shell'' ed il programma ''wget''.
| + | #redirect[[Scaricare_una_immagine_da_un_sito_internet]] |
| − | | |
| − | | |
| − | | |
| − | ==Usando le sole risorse e funzioni di Gambas==
| |
| − | L'esempio |[[#Note|1]]| prevede il posizionamento sul Form di una ''PictureBox'', nonché impostazione anche dei componenti: ''gb.net'' e ''gb.net.curl'' :
| |
| − | Private myhttp As New HttpClient As "myhttp"
| |
| − | Private stringa As String
| |
| − |
| |
| − |
| |
| − | '''Public''' Sub Form_Open()
| |
| − |
| |
| − | invia_richiesta()
| |
| − |
| |
| − | '''End'''
| |
| − |
| |
| − |
| |
| − | '''Public''' Sub invia_richiesta()
| |
| − |
| |
| − | <FONT color=#006400>' ''Andiamo a scaricare il file immagine:''</font>
| |
| − | myhttp.URL = "www.indirizzo.del.file.immagine.da.scaricare"
| |
| − |
| |
| − | myhttp.Timeout = 15
| |
| − | myhttp.Get()
| |
| − |
| |
| − | '''End'''
| |
| − |
| |
| − |
| |
| − | '''Public''' Sub myhttp_Read()
| |
| − |
| |
| − | Dim sBuf As String
| |
| − |
| |
| − | <FONT color=#006400>' ''Andiamo a leggere il flusso di dati del file immagine:''</font>
| |
| − | If Lof(MyHTTP) Then
| |
| − | Read #MyHTTP, sBuf, Lof(MyHTTP)
| |
| − | stringa = stringa & sBuf
| |
| − | End If
| |
| − |
| |
| − | '''End'''
| |
| − |
| |
| − |
| |
| − | '''Public''' Sub MyHTTP_Finished()
| |
| − |
| |
| − | Label1.Text = ("Immagine scaricata !")
| |
| − |
| |
| − | Wait
| |
| − |
| |
| − |
| |
| − | MyHTTP.Close
| |
| − |
| |
| − |
| |
| − | <FONT color=#006400>' ''Ricreiamo il file:''</font>
| |
| − | File.Save("percorso_del_file_ricreato", stringa)
| |
| − |
| |
| − |
| |
| − | <FONT color=#006400>' ''Carichiamo nella "PictureBox" il file immagine ricreato:''</font>
| |
| − | PictureBox1.Picture = Picture["/tmp/berlino.jpg"]
| |
| − |
| |
| − | '''End'''
| |
| − | | |
| − | | |
| − | | |
| − | ==Usando ''Shell'' ed il comando ''wget''==
| |
| − | | |
| − | Nell'esempio che segue sul Form del programma saranno posti semplicemente una ''PictureBox'' ed un ''Button''. Scaricheremo un'immagine da un sito internet mediante ''<FONT color=#B22222>wget</font>'' (che sarà lanciato nel nostro programma mediante il comando ''Shell''), e successivamente la caricheremo nella ''PictureBox'':
| |
| − | '''Public''' Sub Button1_Click()
| |
| − |
| |
| − | <FONT color=#006400>' ''Scarichiamo l'immagine dal sito web:''</font>
| |
| − | Shell "wget http://indirizzo_web_dell'_immagine_da_scaricare --directory-prefix percorso_ove_sarà_scaricata" Wait |[[#Note|2]]|
| |
| − |
| |
| − | <FONT color=#006400>' ''Carichiamo l'immagine nella PictureBox:''</font>
| |
| − | PictureBox1.Picture = Picture["percorso_ove_l'immagine_è_stata_scaricata"]
| |
| − |
| |
| − | '''End'''
| |
| − | | |
| − | | |
| − | | |
| − | ==Note==
| |
| − | [1] L'esempio è tratto con alcune modifiche da altro esempio realizzato dall'utente ''fsurfing'' del Forum ''Gambas-it.org''.
| |
| − | | |
| − | [2]Se si vuole inserire l'immagine in una nuova cartella da creare, questa deve essere aggiunta alla fine del pecorso ove si intende scaricare il file:
| |
| − | --directory-prefix /percorso/nuova_cartella
| |
