BackgroundWorker starten & beenden, während Form offen ist

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von singu.

    BackgroundWorker starten & beenden, während Form offen ist

    Ich steh momentan vor folgendem Problem und zwar möchte ich den BackgroundWorker starten, wenn die Main-Form aufgeht und beenden wenn die Main-Form zugeht. Im DoWork ist eine While-Schleife, die auf Webantwort wartet. Nun hängt sich aber das Programm beim Beenden.

    Hier mal der Code

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    2. Imports System.Net
    4. Public Class Form1
    6. Private WithEvents bw As New BackgroundWorker()
    8. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    10. Me.bw.RunWorkerAsync()
    12. End Sub
    14. Private Sub bw_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bw.DoWork
    16. Dim Flag As Boolean = True
    17. Dim wc As New WebClient()
    18. Dim text As String = Nothing
    20. While Flag
    22. Try
    24. text = wc.UploadString("http://www.domain.de/test.php", "")
    26. Catch ex As Exception
    28. End Try
    30. If (String.IsNullOrEmpty(text) = False) Then
    32. Flag = False
    34. MessageBox.Show(text)
    36. End If
    38. If (Me.bw.CancellationPending = True) Then
    40. Exit Sub
    42. End If
    45. End While
    47. End Sub
    49. Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    51. Me.bw.CancelAsync()
    53. End Sub
    55. End Class

    CancelAsync sollte im Closing und nicht im Closed stehen.
    Hilft aber vermutlich auch nix, weil UploadString blockt. Besser UploadStringAsync nehmen

    Nachtrach: Und wenn der BGW gecancelt wird, auch gleich den WC mit CancelAsync rausschmeissen.

    Ich hab es jetzt mal mit UploadStringAsync versucht, aber da kommt die Fehlermeldung "Der Ausdruck ergibt kein Wert".

    VB.NET-Quellcode

    1. Private Sub bw_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bw.DoWork
    3. Dim Flag As Boolean = True
    4. Dim wc As WebClient = Nothing
    5. Dim text As String = Nothing
    6. Dim url As Uri = Nothing
    8. wc = New WebClient()
    9. url = New Uri("http://www.domain.de/test.php")
    11. While Flag
    13. Try
    15. text = wc.UploadStringAsync(url, "")
    17. Catch ex As Exception
    19. End Try
    21. If (String.IsNullOrEmpty(text) = False) Then
    23. Flag = False
    25. MessageBox.Show(text)
    27. End If
    29. If (Me.bw.CancellationPending = True) Then
    31. Exit Sub
    33. End If
    36. End While
    38. End Sub

    Wieso kann ich da UploadString nicht nehmen, weil der WebClient gibt lediglich einen Wert zurück ob eine Lösung vorhanden ist oder nicht, also 1 oder 0. Und wenn eine Lösung gefunden wurde, dann wird ein Event gefeuert.

    Edit: Ich hab vergessen die Eigenschaft "WorkerSupportsCancellation" vom BackgroundWorker auf True zu setzen.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „singu“ ()

Facebook
Telefonspende