Differenze tra le versioni di "Acquisire il codice HTML di una pagina web"
Da Gambas-it.org - Wikipedia.
Riga 2: | Riga 2: | ||
− | ==Uso | + | ==Uso dei Componenti ''gb.net'' e ''gb.net.curl''== |
Si potrà innanzitutto acquisire l'intero codice HTML di una pagina web, utilizzando i Componenti <FONT color=#B22222>''gb.net''</font> e <FONT color=#B22222>''gb.net.curl''</font> nel modo che segue: <SUP>[ [[#Note|Nota 1]] ]</sup> | Si potrà innanzitutto acquisire l'intero codice HTML di una pagina web, utilizzando i Componenti <FONT color=#B22222>''gb.net''</font> e <FONT color=#B22222>''gb.net.curl''</font> nel modo che segue: <SUP>[ [[#Note|Nota 1]] ]</sup> | ||
'''Public''' mioHttp As NEW HttpClient As "mioHttp" | '''Public''' mioHttp As NEW HttpClient As "mioHttp" |
Versione delle 16:45, 24 lug 2016
L'acquisizione del codice HTML di una pagina web può essere effettuata mediante almeno le due modalità appresso descritte.
Uso dei Componenti gb.net e 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.