BackgroundWorker Fehler

[c2x]

Der BackgroundWorker ist ausgelastet und kann nicht mehrere Aufgaben gleichzeitig ausführen. Diese Fehlermeldung erscheint bei mir.

Code:


Imports System.Net
Imports System.IO
Imports System.Text.RegularExpressions

Public Class frmMain

'[...] Unwichtiger code ;)
'Timer wird durch Button gestartet

Private Sub tmrCheck_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrCheck.Tick
bgWorker.RunWorkerAsync() 'BG Worker wird gestartet
End Sub

Private Sub bgWorker_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgWorker.DoWork
Try
Dim httpRequest As HttpWebRequest = HttpWebRequest.Create(txtURL.Text)
Dim httpResponse As HttpWebResponse = httpRequest.GetResponse()
Dim reader As StreamReader = New StreamReader(httpResponse.GetResponseStream)
Dim httpContent As String = reader.ReadToEnd
txtContent.Text = httpContent
If txtContent.Text.Contains(txtString.Text) = True Then
notifyCheck.ShowBalloonTip(10000, "Anwendung", "Neues Ergebnis bei: " & txtURL.Text, ToolTipIcon.Info)
txtString.Clear()
End If
Catch ex As Exception
MsgBox("Es ist ein Fehler während der Verbindung zu: " & txtURL.Text & " aufgetreten." & vbCrLf & _
"Überprüfen Sie Ihre Internetverbindung.", MsgBoxStyle.Information, "Anwendung")
End Try
Try
bgWorker.CancelAsync()
Catch ex As Exception
MsgBox("Der Hintergrundprozess konnte nicht geschlossen werden. Die Anwendung wird sich schließen.", MsgBoxStyle.Information, _
"Anwendung")
Application.Exit()
End Try
End Sub
End Class

Woran liegt der Fehler. Schließlich lasse ich nach jedem Timer Intervall den BG-Worker neu starten.

[hackerking]

Schließlich lasse ich nach jedem Timer Intervall den BG-Worker neu starten.

Völlig falsch.
Du müsstest jedes mal einen neuen BG Worker deklarieren, da der andere ja immer noch arbeitet. .NET stoppt den Thread nicht, auch nicht, wenn du den Thread neu startest, oder mit CancelAsynch unterbrichts.

PS: Es müsste .Abort und nicht CancelAsynch heißen oder?

[krusty]

Mach es anders.
also du startest den backgroundworker im form1 load event.
im backgroudworker mach ne while true (eine endlosschleife) rein und lässt nach jedem schleifen durchlauf mit sys.threading.thread.sleep(1000) sein programm eine bestimmte zeit warten.



Private Sub bgWorker_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgWorker.DoWork
while true
Try
Dim httpRequest As HttpWebRequest = HttpWebRequest.Create(txtURL.Text)
Dim httpResponse As HttpWebResponse = httpRequest.GetResponse()
Dim reader As StreamReader = New StreamReader(httpResponse.GetResponseStream)
Dim httpContent As String = reader.ReadToEnd
txtContent.Text = httpContent
If txtContent.Text.Contains(txtString.Text) = True Then
notifyCheck.ShowBalloonTip(10000, "Anwendung", "Neues Ergebnis bei: " & txtURL.Text, ToolTipIcon.Info)
txtString.Clear()
End If
Catch ex As Exception
MsgBox("Es ist ein Fehler während der Verbindung zu: " & txtURL.Text & " aufgetreten." & vbCrLf & _
"Überprüfen Sie Ihre Internetverbindung.", MsgBoxStyle.Information, "Anwendung")
End Try
sys.threading.thread.sleep(1000)'eine sekunde warten
end while
End Sub

@hackerking, nein abort ist bei einem thread objekt.

[c2x]

@hackerking Abort geht nicht (achso, Krusty hatte es schon geschrieben... ;) )

@Krusty: Danke, dass war nun das erste mal, dass ich einen Background Worker verwendet habe. Zuerst hatte ich den Webrequest per Timer immer wieder ausgeführt, allerdings hat das Programm dann einige Sekunden (nach dem Intervall) nicht mehr reagiert.

Edit:

Folgendes gemacht. Timer beide entfernt, BGW wird nun über einen Button gestartet:

Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
bgWorker.RunWorkerAsync()
notifyCheck.ShowBalloonTip(1000, "anwendungsname", "Verbindung zu: " & txtURL.Text & " wird hergestellt.", ToolTipIcon.Info)
End Sub

Die BGW Klasse sieht nun folgendermaßen aus:

Private Sub bgWorker_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bgWorker.DoWork
While True
Try
Dim httpRequest As HttpWebRequest = HttpWebRequest.Create(txtURL.Text)
Dim httpResponse As HttpWebResponse = httpRequest.GetResponse()
Dim reader As StreamReader = New StreamReader(httpResponse.GetResponseStream)
Dim httpContent As String = reader.ReadToEnd()
txtContent.Text = httpContent
If txtContent.Text.Contains(txtString.Text) = True Then
notifyCheck.ShowBalloonTip(10000, "c2x postchecker", "Neues Ergebnis bei: " & txtURL.Text, ToolTipIcon.Info)
txtString.Clear()
End If
Catch ex As Exception
MsgBox("Es ist ein Fehler während der Verbindung zu: " & txtURL.Text & " aufgetreten." & vbCrLf & _
"Überprüfen Sie Ihre Internetverbindung.", MsgBoxStyle.Information, "irgendein name")
End Try
Application.Exit()
Thread.Sleep(2000)
End While
End Sub

Allerdings scheint die Routine fehlerhaft abzulaufen, denn die Exception wird nun nach jedem mal Starten (des BGW) mit etwas Zeitverzögerung angezeigt.

Anscheinend liegt es am Webrequest, wobei ich an sich keinen Fehler feststellen kann.