View Full Version : [VB .NET] Strano BUG con WebBrowserControl
Diablo-IT
23-06-2009, 16:30
Ciao a tutti, sono ormai un paio d'ore che sto impazzendo con un bug assurdo in una semplicissima applicazione VB .net, che non utilizza altro che alcuni comandi textbox, button, e un WebBrowser.
Poche centinaia di righe di codice di una banalita' assurda, eppure ci sto uscendo pazzo...:muro:
Porzione di codice funzionante:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate(percorso+nomefile)
End Sub
'_______________________________________________________________
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim htmle As HtmlElement
' dichiarazione altre variabili ecc
i = 0
For Each htmle In WebBrowser1.Document.GetElementsByTagName("td")
If i = 0
' codice per parsing html, ad esempio:
strMyString = htmle.InnerText
'MessageBox.Show(strMyString)
TextBox2.Text = TextBox2.Text + "Valore ottenuto: " + strMyString + vbCrLf
i = i + 1
Else
Exit For
End If
Next
In pratica se carico attraverso il "button1" nel "webbrowser1" il file che mi interessa, e in seguito attraverso "button2" eseguo il parsing di cui sopra, tutto funziona.
Se invece unisco il tutto in un unica funzione richiamata da un comando button (evento onclick ovviamente), mi carica si il file nel comando webbrowser, ma poi mi esce dalla funzione saltando tutto il resto, oppure mi genera uno stackoverflow o altri errori a random. Ecco il codice incriminato:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim aFileName As String = ""
Dim Y As Integer = 0
Do
aFileName = ListBox1.Items.Item(Y)
Call EseguiParsing(aFileName)
Y += 1
Loop Until Y = ListBox1.Items.Count (diverse centinaia di items, composti da percorso+nomefile per ogni item della listbox)
End Sub
'______________________________________________________________
Public Function EstraiDati(ByVal aFileName As String) As Boolean
Dim filename As String = aFileName
Dim htmle As HtmlElement
' dichiarazione altre variabili ecc
i = 0
For Each htmle In WebBrowser1.Document.GetElementsByTagName("td")
If i = 0
' codice per parsing html, ad esempio:
strMyString = htmle.InnerText
TextBox2.Text = TextBox2.Text + "Valore ottenuto: " + strMyString + vbCrLf
i = i + 1
Else
Exit For
End If
Next
return true
end function
Dove cavolo sta l'errore? Supero la quantita' di caratteri massima ammissibile dalla textbox o cosa?
Grazie come sempre a tutti per l'aiuto. :)
(immagino sia un errore estremamente banale, ma non ci arrivo proprio! he he)
Diablo-IT
23-06-2009, 17:46
Ecco l'errore:
Managed Debugging Assistant 'DisconnectedContext' has detected a problem in '........... \bin\Debug\xxnomefilexx.vshost.exe'.
Additional Information: Contesto 0x1a19b0' disconnesso. Rilascio delle interfacce dal contesto corrente (0x1a1840) in corso... È possibile che si verifichino danni o la perdita di dati. Per evitare questo problema verificare che tutti i contesti/parametri restino attivi fino a quando l'applicazione avrà completato le operazioni con RuntimeCallableWrappers che rappresentano i componenti COM attivi al loro interno.
Prima però diamo una sistemata a quel codice, ti prego ! :ave: :D
1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Perchè Button1_Click ha l'Handles su Button2 ?
2. Perchè usare un Do Loop + contatore ? Perchè usare Call per le Function ?
Non sarebbe molto più semplice e compatto :
Dim aFileName As String = ""
For Y As Integer = 0 To ListBox1.Items.Count - 1
aFileName = ListBox1.Items(Y)
Dim b As Boolean = EseguiParsing(aFileName)
Next
Poi sfido che c'è gente che va in giro a dire che VB è prolisso ! :D
3. Se EseguiParsing è una Function, significa che ha senso tenere traccia del valore di ritorno, perciò come già scritto :
Dim b As Boolean = EseguiParsing(aFileName)
Se non interessa li valore di ritorno bastava una Sub.
4. EseguiParsing ed EstraiDati sono la stessa Function ?
5. Dim filename As String = aFileName
Superfluo, dato che aFileName è l'argomento non-Optional della Function.
6. For Each htmle In WebBrowser1.Document.GetElementsByTagName("td")
If i = 0 Then
strMyString = htmle.InnerText
TextBox2.Text = TextBox2.Text + "Valore ottenuto: " + strMyString + vbCrLf
i = i + 1
Else
Exit For
End If
Next
Non capisco perchè fai un For Each + contatore i ( incrementandolo ), e poi, se i non è 0 > Exit For... :mbe:
Se volevi estrarre solo il primo elemento trovato dal For Each, bastava :
For Each htmle In WebBrowser1.Document.GetElementsByTagName("td")
strMyString = htmle.InnerText
TextBox2.Text = TextBox2.Text + "Valore ottenuto: " + strMyString + vbCrLf
Exit For
Next
Però poi non mi spiego :
TextBox2.Text = TextBox2.Text + "Valore ottenuto: " + strMyString + vbCrLf
Insomma, vedi di dare una bella chiarita al tutto che poi, la soluzione al problema salta fuori... ;)
Diablo-IT
24-06-2009, 16:18
Mi sa che ho fatto un po di casino con il copia/incolla... si vede che iniziavo ad esser parecchio fuso ieri pomeriggio! :muro:
Andiamo per ordine:
1) Mea culpa, ho riletto tutto prima di postare, e infatti ecco il risultato...
2) Ops... alla faccia del codice leggibile e pulito! Quando inizio a partire per la tangente riesco a complicar le cose piu' banali.
3) Di solito faccio direttamente "if chiamataFunzione then - else - end if" in base al buon esito (true) o no (false) della funzione. Dici che faccio male?
4) Si... scusa.
5) Mi pare di aver letto cosi' su un libro di F.Balena/MS Press dove consigliava di far cosi', e ho preso quest'abitudine.
6) Se non ti da problemi (mandami pure a quel paese quando vuoi he he, non vorrei aprofittarmi troppo della tua disponibilita'), posso contattarti tramite messaggio privato, cosi' ti spiego in maniera piu' chiara? Senno' qua salta fuori un mezzo romanzo (ormai ho detto che e' tutto pronto, e son nella m... per questa stupidaggine che non riesco a risolvere).
EDIT:
Cosi' funziona (ma non ha senso usar na roba cosi'!):
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim aFileName As String = ""
For Y As Integer = 0 To ListBox1.Items.Count - 1
aFileName = ListBox1.Items(Y)
MessageBox.Show(aFileName)
apriHTML(aFileName)
EseguiParsing()
Next
End Sub
Cosi' nada: (eppure e' lo stesso codice, a parte un messagebox in meno):
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim aFileName As String = ""
For Y As Integer = 0 To ListBox1.Items.Count - 1
aFileName = ListBox1.Items(Y)
apriHTML(aFileName)
EseguiParsing()
Next
End Sub
Vado a studiarmi un po di msdn che c'e' qualcosa che non mi quadra!
3) Di solito faccio direttamente "if chiamataFunzione then - else - end if" in base al buon esito (true) o no (false) della funzione. Dici che faccio male?
No, così è ok. Era quella Call su Function senza curarsi del valore di ritorno che non mi convinceva...;)
5) Mi pare di aver letto cosi' su un libro di F.Balena/MS Press dove consigliava di far cosi', e ho preso quest'abitudine.
Se prevedi di eseguire successivi controlli e/o modifiche al parametro della Function, ha senso. Creare una nuova String che non fa altro che copiare il parametro mi pare superfluo.
Per il problema sul WebBrowser credo di aver capito. E' una questione di tempi. In pratica se fai un ciclo che carica N pagine web, devi tenere conto del fatto che, quando entra in gioco la EseguiParsing(), il WebBrowser1 con ogni probabilità non ha avuto il tempo di completare il caricamento, perciò il tentativo di leggere un document non ancora completato causa errori.
Considera che un For è una scheggia, in confronto al quale WebBrowser mentre carica è meno di una lumaca.
Prova questa soluzione, molto simile alla tua, in cui ad ogni ciclo, aspetto il caricamento completo, prima di esaminare il document corrente :
Public Class Form1
Private caricamentoCompletato As Boolean = False
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim aFileName As String = ""
For Y As Integer = 0 To ListBox1.Items.Count - 1
caricamentoCompletato = False
aFileName = ListBox1.Items(Y)
ListBox2.Items.Add("NUOVA PAGINA: " + aFileName)
EseguiParsing(aFileName)
Next
End Sub
Private Sub EseguiParsing(ByVal aFileName As String)
WebBrowser1.Navigate(aFileName)
While True
System.Threading.Thread.Sleep(10)
My.Application.DoEvents()
If caricamentoCompletato = True Then Exit While
End While
Dim strMyString As String = ""
For Each htmle As HtmlElement In WebBrowser1.Document.GetElementsByTagName("td")
strMyString = htmle.InnerText
ListBox2.Items.Add("Valore ottenuto: " + strMyString)
Next
ListBox2.Items.Add("")
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
caricamentoCompletato = True
End Sub
End Class
Nel mio caso uso una ListBox ( ListBox2 ) per l'inserimento degli HtmlElement trovati... ;)
Diablo-IT
25-06-2009, 03:38
Per il problema sul WebBrowser credo di aver capito. E' una questione di tempi.
E hai capito bene!
Nella fretta ho risolto con un codice simile al tuo, ma soltanto con uno sleep piu' lungo (senza controllare l'effettivo caricamento della pagina, almeno sulla macchina di test ha funzionato).
Subito corretto come mi hai suggerito, almeno ora son sicuro della stabilita'. :)
Nel mio caso uso una ListBox ( ListBox2 ) per l'inserimento degli HtmlElement trovati... ;)
Non ti preoccupare, almeno la visualizzazione/esportazione cel'ho fatta a scriverla senza combinar troppi casini. ;)
Che dire, grazie di cuore, mi hai tolto da un bel pasticcio!
Ora che e' tutto risolto capisco di essermi perso per una stupidata, e nel tentativo di risolverla ho sporcato il codice in un modo assurdo, complicando ancora di piu' le cose.
E hai capito bene!
Nella fretta ho risolto con un codice simile al tuo, ma soltanto con uno sleep piu' lungo (senza controllare l'effettivo caricamento della pagina, almeno sulla macchina di test ha funzionato).
Subito corretto come mi hai suggerito, almeno ora son sicuro della stabilita'. :)
Ha funzionato probabilmente perchè quella Sleep era sufficiente a consentire il completo caricamento... Ma meglio sempre controllare esplicitamente l'avvenuto completamento del document.
In ogni caso se WebBrowser non è proprio strettamente necessario potevi risolvere anche solo con un HtmlDocument, senza bisogno di componenti UI... ;)
vBulletin® v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.