Differenze tra le versioni di "Scaricare una immagine da un sito internet"

Da Gambas-it.org - Wikipedia.
Riga 6: Riga 6:
 
  '''Public''' Sub Form_Open()
 
  '''Public''' Sub Form_Open()
 
    
 
    
   Dim http As New HttpClient
+
   Dim tp As New HttpClient
 
   Dim im As Image
 
   Dim im As Image
 
    
 
    
   s = http.Download("<font color=gray>''http&#058;//www.indirizzo.del.file.immagine.da.scaricare''</font>")
+
   s = tp.Download("<font color=gray>''http&#058;//www.indirizzo.del.file.immagine.da.scaricare''</font>")
 
    
 
    
   http.Close
+
   tp.Close
 
    
 
    
 
   PictureBox1.Picture = im.FromString(s).Picture
 
   PictureBox1.Picture = im.FromString(s).Picture
Riga 17: Riga 17:
 
  '''End'''
 
  '''End'''
 
oppure:
 
oppure:
  Private myhttp As New HttpClient As "myhttp"   
+
  Private ht As New HttpClient As "MyHTTP"   
 
    
 
    
 
   
 
   
 
  '''Public''' Sub Button1_Click()
 
  '''Public''' Sub Button1_Click()
 
   
 
   
  <font color=gray>' <i>Invia_richiesta al server per scaricare il file immagine:</i></font>  [<SUP>[[#Note|nota 1]]</sup>]
+
  With ht
  myhttp.URL = "<font color=gray>''http&#058;//www.indirizzo.del.file.immagine.da.scaricare''</font>"
+
  <font color=gray>' <i>Invia_richiesta al server per scaricare il file immagine:</i></font>  <SUP>&#091;[[#Note|nota 1]]&#093;</sup>
 
+
    .URL = "<font color=gray>''http&#058;//www.indirizzo.del.file.immagine.da.scaricare''</font>"
  myhttp.Timeout = 15
+
    .Timeout = 15
 
 
 
  <FONT Color=gray>' ''Scarica i dati del file immagine in un percorso prescelto, contenente anche il nome del file immagine ricreato:</font>
 
  <FONT Color=gray>' ''Scarica i dati del file immagine in un percorso prescelto, contenente anche il nome del file immagine ricreato:</font>
  myhttp.Get(Null, "<font color=gray>''/percorso/del/file/immagine/scaricato_e_ricreato''</font>")  
+
    .Get(Null, "<font color=gray>''/percorso/del/file/immagine/scaricato_e_ricreato''</font>")  
 +
  End With
 
        
 
        
 
  <b>End</b>   
 
  <b>End</b>   
Riga 35: Riga 35:
 
  <b>Public</b> Sub MyHTTP_Finished()   
 
  <b>Public</b> Sub MyHTTP_Finished()   
 
      
 
      
   MyHTTP.Close   
+
   ht.Close   
 
      
 
      
 
  <font color=gray>' <i>Carichiamo nella "PictureBox" il file immagine ricreato:</i></font>
 
  <font color=gray>' <i>Carichiamo nella "PictureBox" il file immagine ricreato:</i></font>
Riga 44: Riga 44:
  
 
oppure anche utilizzando l'evento ''_Read()'':
 
oppure anche utilizzando l'evento ''_Read()'':
  Private myhttp As New HttpClient As "myhttp"   
+
  Private ht As New HttpClient As "MyHTTP"   
 
  Private stringa As String
 
  Private stringa As String
 
   
 
   
 
   
 
   
 
  '''Public''' Sub Button1_Click()
 
  '''Public''' Sub Button1_Click()
+
 
 +
  With ht
 
  <font color=gray>' <i>Invia_richiesta al server per scaricare il file immagine:</i></font>  [<SUP>[[#Note|nota 1]]</sup>]
 
  <font color=gray>' <i>Invia_richiesta al server per scaricare il file immagine:</i></font>  [<SUP>[[#Note|nota 1]]</sup>]
  myhttp.URL = "<font color=gray>''http&#058;//www.indirizzo.del.file.immagine.da.scaricare''</font>"
+
    .URL = "<font color=gray>''http&#058;//www.indirizzo.del.file.immagine.da.scaricare''</font>"
 
+
    .Timeout = 15   
  myhttp.Timeout = 15   
+
    .Get()
  myhttp.Get()  
+
  End With
 
        
 
        
 
  <b>End</b>   
 
  <b>End</b>   
 
    
 
    
 
   
 
   
  <b>Public</b> Sub myhttp_Read()   
+
  <b>Public</b> Sub MyHTTP_Read()   
 
        
 
        
 
   Dim sBuf As String   
 
   Dim sBuf As String   
 
      
 
      
 
  <font color=gray>' <i>Andiamo a leggere il flusso di dati del file immagine:</i></font>
 
  <font color=gray>' <i>Andiamo a leggere il flusso di dati del file immagine:</i></font>
     If Lof(MyHTTP) Then   
+
     If Lof(ht) Then   
       Read #MyHTTP, sBuf, Lof(MyHTTP)
+
       Read #ht, sBuf, Lof(ht)
 
       stringa = stringa &amp; sBuf
 
       stringa = stringa &amp; sBuf
 
     End If
 
     End If
Riga 79: Riga 80:
 
          
 
          
 
   
 
   
   MyHTTP.Close   
+
   ht.Close   
 
                
 
                
 
   
 
   
Riga 89: Riga 90:
 
   PictureBox1.Picture = Picture["''/percorso/del/file/ricreato''"]
 
   PictureBox1.Picture = Picture["''/percorso/del/file/ricreato''"]
 
   
 
   
  <b>End</b>
+
  '''End'''
  
  

Versione delle 21:20, 16 mar 2018

Vedremo di seguito alcune modalità per scaricare dal WEB i dati di file immagini, di cui si conoscono gli indirizzi web.


Usando le sole risorse e funzioni di Gambas

L'esempio prevede il posizionamento sul Form di una PictureBox e di un Button, nonché l'attivazione dei componenti: gb.net e gb.net.curl:

Public Sub Form_Open()
 
 Dim tp As New HttpClient
 Dim im As Image
 
  s = tp.Download("http://www.indirizzo.del.file.immagine.da.scaricare")
  
  tp.Close
  
  PictureBox1.Picture = im.FromString(s).Picture
  
End

oppure:

Private ht As New HttpClient As "MyHTTP"  
  

Public Sub Button1_Click()

 With ht
' Invia_richiesta al server per scaricare il file immagine:   [nota 1]
   .URL = "http://www.indirizzo.del.file.immagine.da.scaricare"
   .Timeout = 15
' Scarica i dati del file immagine in un percorso prescelto, contenente anche il nome del file immagine ricreato:
   .Get(Null, "/percorso/del/file/immagine/scaricato_e_ricreato") 
 End With
     
End  
 

Public Sub MyHTTP_Finished()  
    
  ht.Close  
   
' Carichiamo nella "PictureBox" il file immagine ricreato:
  PictureBox1.Picture = Picture["/percorso/del/file/immagine/scaricato_e_ricreato"]

End


oppure anche utilizzando l'evento _Read():

Private ht As New HttpClient As "MyHTTP"  
Private stringa As String


Public Sub Button1_Click()
 
 With ht
' Invia_richiesta al server per scaricare il file immagine:   [nota 1]
   .URL = "http://www.indirizzo.del.file.immagine.da.scaricare"
   .Timeout = 15  
   .Get()
 End With
     
End  
  

Public Sub MyHTTP_Read()  
     
 Dim sBuf As String  
    
' Andiamo a leggere il flusso di dati del file immagine:
   If Lof(ht) Then   
     Read #ht, sBuf, Lof(ht)
     stringa = stringa & sBuf
   End If

End


Public Sub MyHTTP_Finished()  
    
  Label1.Text = ("Immagine scaricata !")  
       
  Wait   
        

  ht.Close  
             

' Ricreiamo il file: [nota 2]
  File.Save("/percorso/del/file/ricreato", stringa)


' Carichiamo nella "PictureBox" il file immagine ricreato:
  PictureBox1.Picture = Picture["/percorso/del/file/ricreato"]

End


Usando le funzioni esterne della libreria Libcurl

Libcurl è una libreria gratuita lato-client di trasferimento dati con la sintassi URL, capace di supportare diversi protocolli.

Per poter fruire in Gambas delle risorse della libreria Libcurl, è necessario avere installata nel sistema e richiamare la libreria dinamica condivisa: "libcurl.so"


Mostriamo un esempio pratico, nel quale immaginiamo di dover scaricare un file immagine di formato .png:

Library "libcurl"

Private Const CURLOPT_WRITEDATA As Integer = 10001
Private Const CURLOPT_URL As Integer = 10002
   
' CURL *curl_easy_init(void)
' Start a libcurl easy session.
Private Extern curl_easy_init() As Pointer

' CURLcode curl_easy_setopt(CURL *curl, CURLoption option, ...)
' Set options for a curl easy handle
Private Extern curl_easy_setopt(curl As Pointer, optionI As Integer, optionP As Pointer) As Integer
 
' CURLcode curl_easy_perform(CURL *curl)
' Perform a blocking file transfer.
Private Extern curl_easy_perform(curl As Pointer) As Pointer

' const char *curl_easy_strerror(CURLcode)
' Turn a CURLcode value into the equivalent human readable error string.
Private Extern curl_easy_strerror(CURLcode As Integer) As String

' void curl_easy_cleanup(CURL *curl)
' End a libcurl easy handle.
Private Extern curl_easy_cleanup(curl As Pointer)


Library "libc:6"

' FILE *fopen (const char *__restrict __filename, const char *__restrict __modes)
' Open a file and create a new stream for it.
Private Extern fopen(__filename As String, __modes As String) As Pointer

' int fclose (FILE *__stream)
' Close STREAM.
Private Extern fclose(__stream As Pointer) As Integer


Public Sub Main()

 Dim cu, url, fl As Pointer
 Dim file_finale As String
 Dim ris As Integer
 
' Imposta l'indirizzo web del file immagine .png da scaricare:
  url = Alloc("http://indirizzo/web/del/file.png")
  
' Imposta il percorso del nuovo file immagine generato con i dati del file immagine scaricato:
  file_finale = "/percorso/del/nuovo/file.png"
    
' Inizilizza la libreria Libcurl':
  cu = curl_easy_init()
  If cu = 0 Then Error.Raise("Impossibile inizializzare la libreria 'curl' !")
  
  curl_easy_setopt(cu, CURLOPT_URL, url)
   
' Apre in scrittura il percorso del nuovo file immagine .png da salvare:
  fl = fopen(file_finale, "wb")
   
' Scrive i dati scaricati del file nella variabile handle per la gestione del nuovo file immagine .png da salvare:
  curl_easy_setopt(cu, CURLOPT_WRITEDATA, fl)
  
' Scrive il nuovo file immagine .png :
  ris = curl_easy_perform(cu)
  If ris <> 0 Then Error.Raise("Errore nella scrittura del file: " & curl_easy_strerror(i))
   
   
' Va in chiusura e libera tutta la memoria precedentemente allocata:
  fclose(pagina)
  Free(url)
  curl_easy_cleanup(cu)
  
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 wget (che sarà lanciato nel nostro programma mediante il comando Shell), e successivamente la caricheremo nella PictureBox:

Public Sub Button1_Click()

' Scarichiamo l'immagine dal sito web:
  Shell "wget http://indirizzo_web_dell'_immagine_da_scaricare --directory-prefix /percorso/ove/l'immagine/sarà/scaricata" Wait [nota 4]

' Carichiamo l'immagine nella PictureBox:
  PictureBox1.Picture = Picture["/percorso/ove/l'immagine/è/stata/scaricata"]

End


Mostrare un file presente in una pagina internet

In questo caso non sarà possibile gestire direttamente i dati del file immagine, ma si provvedere più semplicemente a mostrare il file immagine presente in una pagina web.

Uso del Metodo Desktop.Open( )

Questa procedura (è necessario attivare il componente gb.desktop) prevede l'utilizzo del solo codice Gambas, ma prevede che il file immagine sia aperto dal programma preimpostato nel nostro sistema per l'apertura, appunto, dei file immagine:

Public Sub Button1_Click()

  Desktop.Open("www.indirizzo.del.file.immagine.da.scaricare")

End


Utilizzo del codice HTML

Si potrà effettuare il collegamento ad un file immagine richiamandolo:

a) da un'oggetto che permette l'utilizzo del 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 web-browser, e pertanto la procedura anche qui sarà indiretta. [nota 3]

b) da un oggetto specifico, che supporta il codice html, come la WebView. In tal caso è necessario attivare, come si sa, anche il componente gb.qt4.webkit:

Public Sub Form_Open()  

  WebView1.Html = "<HTML><A HREF='http://www.indirizzo_web_immagine'>Collegamento ipertestuale con l'immagine da mostrare.</a></html>"  

End

Nella WebView verrà mostrato il testo, sul quale si dovrà cliccare per far apparire l'immagine.


Se si vuole far apparire l'immagine direttamente, senza dover cliccare su un ipertesto, allora il codice sarà il seguente:

Public Sub Form_Open()  

  WebView1.Html = "<HTML><IMG SRC='http://www.indirizzo_web_immagine'>Eventuale testo</img></html>"  

End


Usando la la proprietà ".Url" dell'oggetto WebView

Si potrà usare anche la proprietà ".Url" dell'oggetto WebView:

WebView1.Url = "http://www.indirizzo_web_immagine"



Note

[1] In vero, con questa metodo è possibile scaricare qualsiasi tipo di file.

[2] E' possibile ricreare utilmente con questo metodo qualsiasi tipo di file.

[3] In questo caso sarà possibile soltanto utilizzare il file (dunque trattandosi di file immagine, visualizzarla), al quale ci si è collegati via internet, e non sarà possibile direttamente ottenerne una copia indipendente da salvare.

[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


Riferimenti