Backgroundwoker funktionert nicht mit HttpWebRequest

  • VB.NET
  • .NET (FX) 4.0

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Backgroundwoker funktionert nicht mit HttpWebRequest

    Hallo zusammen,

    ich benutze aktuell zum ersten mal den Backgroundworker. Dieser soll eine Listview zeile für zeile durchgehen und pro Zeile ein WebRequest durchführen. Nach jeder Zeile möchte ich ein reportprogress aufrufen. Hier mal der Code der NICHT funktioniert:

    VB.NET-Quellcode

    1. ​'Backgroundworker arbeitet
    3. Sub BgwDoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs)
    5. 'Listview Item für Item durchgehen
    6. For x = 0 To lv.Items.Count - 1
    8. 'Deklaration Web Request
    9. Dim oh_request As HttpWebRequest
    10. Dim oh_response As HttpWebResponse = Nothing
    11. Dim oh_reader As StreamReader
    13. Dim server_string As String = "http://" & server_name & ":" & server_port & "/item/" & lv.Items(x).Text
    15. 'Response auf Request empfangen
    16. oh_request = DirectCast(WebRequest.Create(server_string), HttpWebRequest)
    17. oh_response = DirectCast(oh_request.GetResponse(), HttpWebResponse)
    18. oh_reader = New StreamReader(oh_response.GetResponseStream())
    19. oh_request.timeout = 5000
    21. 'Response in String schreiben
    22. Dim raw_oh_response As String
    23. raw_oh_response = oh_reader.ReadToEnd()
    25. bgw.ReportProgress(x)
    27. Threading.Thread.Sleep(1000)
    29. Next
    31. End Sub
    35. 'Backgroundworker Prozess geändert
    37. Sub BgwProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs)
    39. Dim wert As Integer = e.ProgressPercentage
    40. messagebox.Show(wert.ToString)
    42. End Sub
    45. 'Backgroundworker ist fertig
    47. Sub BgwRunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs)
    49. MessageBox.Show("Fertig")
    51. End Sub


    Dieser Code funktioniert dagegen:

    VB.NET-Quellcode

    1. ​'Backgroundworker arbeitet
    3. Sub BgwDoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs)
    5. 'Listview Item für Item durchgehen
    7. For x = 0 To lv.Items.Count - 1
    11. bgw.ReportProgress(x)
    13. Threading.Thread.Sleep(1000)
    15. Next
    17. End Sub
    21. 'Backgroundworker Prozess geändert
    23. Sub BgwProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs)
    25. Dim wert As Integer = e.ProgressPercentage
    27. messagebox.Show(wert.ToString)
    29. End Sub
    35. 'Backgroundworker ist fertig
    37. Sub BgwRunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs)
    39. MessageBox.Show("Fertig")
    41. End Sub


    Beim ersten Code erhalte ich nur die "Fertig" Messagebox wenn der Bgw completed ist. Beim zweiten Code erhalte ich für jede Zeile meiner Listview eine Messagebox und dann die bgw completed Messagebox. Der Unterschied besteht ja nur im fehlenden WebRequest.

    Ich stehe mal wieder auf dem Schlauch und hoffe mich kann jemand auf meinen Fehler hinweisen.

    Gruß Kay

    @kayle WebRequest kannst Du asynchron machen, da brauchst Du keinen BGW.
    Gugst Du z.B. hier.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    kayle schrieb:

    Backgroundworker
    ist ein lebendes Fossil, heutzutage gibt es da bessere Parallel-Abarbeitungs-Methoden (Async / Await).
    WWW-Zugriffe bieten von sich aus asynchrone Methoden an, da ist es sehr sinnvoll, Frau Google und die MSDN nach zu befragen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo @RodFromGermany und @ErfinderDesRades

    ich habe den Download des Strings nun mittels Webclient und Download Async String gemacht. Das funktioniert schon prima. Danke für den Tip. Jetzt habe ich aber ein weiteres Problem. Der Json String wird nun mittels Newtonsoft json geparst und in eine Listview geschrieben. Dabei friert die GUI für 2 Sekunden ein. Was wäre jetzt die bessere Methode das zu umgehen ? Backgroundworker, wenn auch alt oder separaten Thread ?

    Gruß Kay

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „kayle“ ()

    Ist das noch nicht deutlich geworden?
    Streich mal das Wort "BackgroundWorker" aus deinem Wortschatz. Danke.

    Und statt was mit Threads zu basteln arbeite dich in den Async-Pattern ein - das ist zum Schreien einfach, und ist eh ein "Must-Know" - lange bevor du iwas mit Threads anfasst.
    Hier ein englisches Tut, womit auch ein Anfänger klarkommen sollte - dein Thema ist da im ersten Abschnitt abgehandelt.

    Oder Zeige Code, wie du die Json-Parse-Methode aufrufst, dann schreib ichs dir mit Async.

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

    ErfinderDesRades schrieb:

    Streich mal das Wort "BackgroundWorker" aus deinem Wortschatz. Danke.


    Ok, ist geschehen :thumbup:

    ErfinderDesRades schrieb:

    Oder Zeige Code, wie du die Json-Parse-Methode aufrufst, dann schreib ichs dir mit Async.


    VB.NET-Quellcode

    1. 'WebClient Async Downloadstring
    3. 'Test Async
    4. 'Kay P.
    5. '01.04.2017
    7. 'Imports
    8. Imports System.Net
    9. Imports Newtonsoft.Json
    10. Imports Newtonsoft.Json.Linq
    12. Public Partial Class MainForm
    14. Public Sub New()
    17. Me.InitializeComponent()
    20. End Sub
    24. 'Mit Button Click wird der Webclient erstellt und der Download String Async angestoßen
    25. Sub Button1Click(sender As Object, e As EventArgs)
    27. Dim webclient As New WebClient
    28. AddHandler webClient.DownloadStringCompleted, AddressOf webClient_DownloadStringCompleted
    29. webclient.DownloadStringAsync(New Uri("http://10.23.59.70:8080/rest/items/"))
    30. End Sub
    32. 'Webclient ist fertig und Json Daten werden in das ListView geschrieben
    33. Private Sub webClient_DownloadStringCompleted(ByVal sender as Object,ByVal e as DownloadStringCompletedEventArgs)
    35. 'JSON Daten von OH REST API 2.x auslesen
    36. Dim rest_api_result = JsonConvert.DeserializeObject(Of ArrayList)(e.Result)
    37. Dim token As JToken
    39. 'Für jede Node ein Item in der ListView erstellen
    40. For Each value As Object In rest_api_result
    41. token = JObject.Parse(value.ToString())
    43. Dim subitem As ListViewItem
    44. With oh_item_list.Items
    45. subitem = .Add(token.SelectToken("name").ToString)
    46. subitem.SubItems.Add(token.SelectToken("type").ToString)
    47. End With
    48. Next
    50. End Sub
    52. End Class


    Gruß Kay

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „kayle“ () aus folgendem Grund: Formatierung Quellcode bearbeitet

    VB.NET-Quellcode

    1. 'Webclient ist fertig und Json Daten werden in das ListView geschrieben
    2. Private Sub webClient_DownloadStringCompleted(ByVal sender as Object,ByVal e as DownloadStringCompletedEventArgs)
    4. 'JSON Daten von OH REST API 2.x auslesen
    6. Dim rest_api_result = parse_json(e.Result)
    7. Dim token As JToken
    9. 'Für jede Node ein Item in der ListView erstellen
    11. For Each value As Object In rest_api_result
    12. token = JObject.Parse(value.ToString()
    13. Dim subitem As ListViewItem
    15. With oh_item_list.Items
    16. subitem = .Add(token.SelectToken("name").ToString)
    17. subitem.SubItems.Add(token.SelectToken("type").ToString)
    18. End With
    19. Next
    20. End Sub
    24. 'Json Parse Function
    26. Public Function parse_json(ByVal raw_string As String) As ArrayList
    28. Dim api_result = JsonConvert.DeserializeObject(Of ArrayList)(raw_string)
    29. Return api_result
    31. End Function


    Habe den Json Parse Teil nun in eine Function ausgelagert. Und diese Function kann ich jetzt asynchron aufrufen ?

    kayle schrieb:

    Habe den Json Parse Teil nun in eine Function ausgelagert.
    Hast du nicht (oder nur halb).

    Nachwievor findet sich

    VB.NET-Quellcode

    1. token = JObject.Parse(value.ToString()
    beim Aufrufer.
    Ich sagte doch, deine methode solle eine List(Of JObject) zurückgeben, warum gibt sie nu eine dumme ArrayList zurück, wo noch weiter dran herumgeparst werden muss?
    Das Weiter-Rum-parsen gehört auch in parse_Json() hinein, und erfolgt im nächsten Schritt dann nebenläufig.

Facebook
Telefonspende