Differenze tra le versioni di "Acquisire il codice HTML di una pagina web"
Da Gambas-it.org - Wikipedia.
(Creata pagina con '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à...') |
|||
Riga 4: | Riga 4: | ||
==Uso del componente ''gb.net.curl''== | ==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: |[[#Note|1]]| | 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: |[[#Note|1]]| | ||
− | '''Public''' | + | '''Public''' mioHttp As NEW HttpClient As "mioHttp" |
− | '''Public''' stringa | + | '''Public''' stringa As String |
'''Public''' Sub Button1_Click() | '''Public''' Sub Button1_Click() | ||
− | + | inviaRichiesta | |
'''End''' | '''End''' | ||
Riga 17: | Riga 17: | ||
'''Public''' Sub inviaRichiesta() | '''Public''' Sub inviaRichiesta() | ||
− | + | With mioHttp | |
− | + | .URL = "www.pagina_web_da_caricare" | |
− | + | .Timeout = 15 | |
+ | .Get() | ||
+ | End With | ||
'''End''' | '''End''' | ||
− | '''Public''' Sub | + | '''Public''' Sub mioHttp_Read() |
Dim sBuf As String | Dim sBuf As String | ||
Riga 30: | Riga 32: | ||
Wait | Wait | ||
− | IF Lof( | + | IF Lof(mioHttp) THEN |
− | Read # | + | Read #mioHttp, sBuf, Lof(mioHttp) |
stringa = stringa & sBuf | stringa = stringa & sBuf | ||
Endif | Endif | ||
Riga 38: | Riga 40: | ||
− | '''Public''' Sub | + | '''Public''' Sub mioHttp_Finished() |
Dim p, s As String | Dim p, s As String | ||
Dim i As Integer | Dim i As Integer | ||
− | Label1.Text = (" | + | Label1.Text = ("Pagina scaricata !") |
Wait | Wait | ||
Riga 50: | Riga 52: | ||
TextArea1.text=stringa | TextArea1.text=stringa | ||
− | + | mioHttp.Close | |
'''End''' | '''End''' |
Versione delle 10:19, 11 mag 2013
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: |1|
Public mioHttp As NEW HttpClient As "mioHttp" Public stringa As String Public Sub Button1_Click() inviaRichiesta End Public Sub inviaRichiesta() With mioHttp .URL = "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.