Differenze tra le versioni di "Acquisire il codice HTML di una pagina web"
Da Gambas-it.org - Wikipedia.
Riga 18: | Riga 18: | ||
With mioHttp | With mioHttp | ||
− | .URL = "www.pagina_web_da_caricare" | + | .URL = "<FONT color=gray>''http://www.pagina_web_da_caricare''</font>" |
.Timeout = 15 | .Timeout = 15 | ||
.Get() | .Get() | ||
Riga 58: | Riga 58: | ||
==Uso dell'oggetto ''WebView''== | ==Uso dell'oggetto ''WebView''== | ||
− | Per poter utilizzare l'oggetto ''WebView'', bisognerà attivare anche il | + | Per poter utilizzare l'oggetto ''WebView'', bisognerà attivare anche il Componente <FONT color=#B22222>''gb.qt4.webkit''</font>. |
<BR>Verrà innanzitutto caricata la pagina web con la proprietà ''.Url'' dell'oggetto ''WebView''. Successvamente si acquisirà il codice html di detta pagina mediante la proprietà ''.HTM'': | <BR>Verrà innanzitutto caricata la pagina web con la proprietà ''.Url'' dell'oggetto ''WebView''. Successvamente si acquisirà il codice html di detta pagina mediante la proprietà ''.HTM'': | ||
'''Public''' Sub Form_Open() | '''Public''' Sub Form_Open() | ||
− | WebView1.<FONT color=#B22222>Url</font> = "http://www.pagina_web_da_caricare" | + | WebView1.<FONT color=#B22222>Url</font> = "<FONT color=gray>''http://www.pagina_web_da_caricare''</font>" |
'''End''' | '''End''' |
Versione delle 16:44, 24 lug 2016
L'acquisizione del codice HTML di una pagina web può essere effettuata mediante almeno le due modalità appresso descritte.
Uso del componente gb.net.curl
Si potrà innanzitutto acquisire l'intero codice HTML di una pagina web, utilizzando i Componenti gb.net e gb.net.curl nel modo che segue: [ Nota 1 ]
Public mioHttp As NEW HttpClient As "mioHttp" Public stringa As String Public Sub Button1_Click() inviaRichiesta End Public Sub inviaRichiesta() With mioHttp .URL = "http://www.pagina_web_da_caricare" .Timeout = 15 .Get() End With End Public Sub mioHttp_Read() Dim sBuf As String Wait IF Lof(mioHttp) THEN Read #mioHttp, sBuf, Lof(mioHttp) stringa = stringa & sBuf Endif End Public Sub mioHttp_Finished() Dim p, s As String Dim i As Integer Label1.Text = ("Pagina scaricata !") Wait ' la variabile stringa contiene la pagina html e viene visualizzata in una textarea: TextArea1.Text=stringa mioHttp.Close End
Uso dell'oggetto WebView
Per poter utilizzare l'oggetto WebView, bisognerà attivare anche il Componente gb.qt4.webkit.
Verrà innanzitutto caricata la pagina web con la proprietà .Url dell'oggetto WebView. Successvamente si acquisirà il codice html di detta pagina mediante la proprietà .HTM:
Public Sub Form_Open() WebView1.Url = "http://www.pagina_web_da_caricare" End ' Quando la pagina web è stata completamente caricata dalla "WebView", ' viene sollevato questo evento: Public Sub WebView1_Load() Dim s As String ' Carichiamo nella variabile di tipo stringa il codice HTML della pagina web: s = WebView1.HTML Print s End
Note
[1] Il codice è stato proposto dall'utente fsurfing del forum del sito www.gambas-it.org.