|
|
| (14 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==
| |
| − | | |
| − | <FONT color=#B22222><B>1° Esempio</b></font>
| |
| − | - l'esempio |[[#Note|1]]| prevede il posizionamento sul Form di una ''PictureBox'', di un ''Button'' e di una ''Label'', nonché l'impostazione anche dei componenti: ''gb.net'' e ''gb.net.curl'' :
| |
| − | Private myhttp As New HttpClient As "myhttp"
| |
| − | Private stringa As String
| |
| − |
| |
| − |
| |
| − | '''Public''' Sub Button1_Click()
| |
| − |
| |
| − | <FONT color=#006400>' ''invia_richiesta al server per scaricare il file immagine:''</font> |[[#Note|'''2''']]|
| |
| − | 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> |[[#Note|3]]|
| |
| − | File.Save("percorso_del_file_ricreato", stringa)
| |
| − |
| |
| − |
| |
| − | <FONT color=#006400>' ''Carichiamo nella "PictureBox" il file immagine ricreato:''</font>
| |
| − | PictureBox1.Picture = Picture["percorso_del_file_ricreato"]
| |
| − |
| |
| − | '''End'''
| |
| − | | |
| − | | |
| − | <FONT color=#B22222><B>2° Esempio</b></font>
| |
| − | - il secondo esempio prevede il collegamento ad un file immagine richiamato da un'oggetto che permette l'utilizzo del [[Controlli_e_finestre_che_supportano_il_codice_HTML|codice html]]:
| |
| − | '''Public''' Sub Button1_Click()
| |
| − |
| |
| − | Message.Info("<A HREF=\"http://indirizzo_web_dell'_immagine_da_mostrare\">Clicca qui per vedere l'immagine</a>")
| |
| − |
| |
| − | '''End'''
| |
| − | In questo caso, però, l'immagine sarà aperta e mostrata nel proprio webbrowser.
| |
| − | | |
| − | | |
| − | | |
| − | ==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|4]]|
| |
| − |
| |
| − | <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] In vero, con questa metodo è possibile scaricare qualsiasi tipo di file.
| |
| − | | |
| − | [3] E' possibile ricreare ''utilmente'' con questo metodo qualsiasi tipo di file.
| |
| − | | |
| − | [4] 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
| |
