Problem bei gleichzeitigen HttpWebRequest(?)-Verbindungen

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Chaosprogrammierer.

    Problem bei gleichzeitigen HttpWebRequest(?)-Verbindungen

    Hallo liebe VBler,

    ich habe gerade ein Problem und komme absolut nicht weiter. Hoffe von euch hatte schon mal jemand das Problem und kann meinem Abhilfe schaffen :)

    Ich bastel gerade an einem Tool und habe eine Menge Web-Abfragen. Die Prozesse laufen in max. 5 Backgroundworkern plus dem Application Thread. Dabei kommt es anscheinend nicht selten vor das sich die Aufrufe der HTTP-Funktion "überschneiden". Also gleichzeitig von mehreren Threads die HTTP-Funktion aufgerufen wird (ich habe eine zentrale Function für die http-requests).

    Im Grunde sind es zwei fehlermeldungen die ich bekomme.

    1) Die Anfrage wurde abgebrochen: Die Verbindung wurde unerwartet getrennt..

    2) Von der Übertragungsverbindung können keine Daten gelesen werden: Die Verbindung wurde geschlossen.

    Es passiert nur sporadisch (schätze mal alle 10-30 aufrufe...) und durch die Backgroundworker nicht wirklich nachzuvollziehen wo genau er den Fehler verursacht.

    Hier mein aktueller Code der Function

    VB.NET-Quellcode

    1. Public postresponse(100) As HttpWebResponse
    2. Public postreqreader(100) As StreamReader
    4. Public Function SendHTTP(ByVal method As String, ByVal PostString As String, ByVal SendURL As String, ByVal FromURL As String) As String
    5. Dim postData As String = PostString
    6. Dim tempCookies As New CookieContainer
    7. Dim encoding As New UTF8Encoding
    8. Dim byteData As Byte() = encoding.GetBytes(postData)
    9. Dim ProxyIP As String = ""
    10. Dim ProxyPort As Integer = 0
    12. Try
    13. 'Debug.Print(SendURL)
    15. 'search the next free connection
    16. Dim Iw As Integer = 0
    17. Do
    18. If postresponse(Iw) Is Nothing Then
    19. Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create(SendURL), HttpWebRequest)
    20. postReq.KeepAlive = True
    21. postReq.CookieContainer = logincookie
    22. postReq.ContentType = "application/x-www-form-urlencoded"
    23. postReq.Referer = FromURL
    24. postReq.UserAgent = UserAgent
    26. 'proxy
    27. If Not ProxyIP = "" And Not ProxyPort = 0 Then
    28. Dim proxy = New WebProxy(ProxyIP, ProxyPort)
    29. postReq.Proxy = proxy
    30. End If
    32. ' only if post
    33. If LCase(method) = "post" Then
    34. postReq.Method = "POST"
    35. postReq.ContentLength = byteData.Length
    36. Dim postreqstream As Stream = postReq.GetRequestStream()
    37. postreqstream.Write(byteData, 0, byteData.Length)
    38. postreqstream.Close()
    39. Else
    40. postReq.Method = "GET"
    41. End If
    42. postresponse(Iw) = DirectCast(postReq.GetResponse(), HttpWebResponse)
    43. Exit Do
    44. End If
    45. Iw += 1
    46. Loop Until Iw > 100
    49. 'Wait a bit
    50. Threading.Thread.Sleep(0)
    52. 'cookie handling
    53. If Not logincookie Is Nothing Then
    54. If postresponse(Iw).Cookies.Count > 0 Then
    55. logincookie.Add(postresponse(Iw).Cookies)
    56. End If
    57. End If
    59. 'logincookie = tempCookies
    60. postreqreader(Iw) = New StreamReader(postresponse(Iw).GetResponseStream())
    61. Threading.Thread.Sleep(0)
    63. Dim thepage As String = postreqreader(Iw).ReadToEnd
    64. If thepage = "" Then
    65. Debug.Print(thepage)
    66. End If
    67. 'give it free again
    68. postreqreader(Iw).Close()
    69. postreqreader(Iw) = Nothing
    70. postresponse(Iw).Close()
    71. postresponse(Iw) = Nothing
    73. Return thepage
    74. Catch e As WebException
    75. 'give it free again
    76. Debug.Print(ControlChars.Lf + ControlChars.NewLine + "Exception Raised. The following error occured : {0}", e.Status)
    77. If e.Status = WebExceptionStatus.ConnectFailure Then
    78. Return ""
    79. End If
    80. UserAgent = ""
    81. logincookie = New Net.CookieContainer
    82. 'Dim HTML2 As String = SendHTTP(method, PostString, SendURL, FromURL)
    83. Return ""
    84. Catch e As Exception
    85. 'give it free again
    86. Console.WriteLine(ControlChars.NewLine + "The following exception was raised : {0}", e.Message)
    87. Return ""
    88. End Try
    89. End Function


    Habe den code gerade noch einmal geändert und im moment kommt mehr der 2. fehler.
    Habe schon versucht mehrere webrequests (Public postReq(100) As HttpWebRequest) zu erstellen, aber das geht nicht. :( WebResponse und StreamReder macht er, webrequest nicht.

    Hat jemand eine Ahnung wie man das Problem lösen kann? Oder was das Problem überhaupt ist? (Meine Vermutung sind 2 gleichzeitige Zugriffe auf das eine "postReq As HttpWebRequest". Aber wie umgehen?

    Danke schon mal und viele Grüße
    Chaosprogrammierer

Facebook
Telefonspende