WebRequest aus Klasse funktioniert nicht, aus Windows-Form aber schon

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von 100Volt.

    WebRequest aus Klasse funktioniert nicht, aus Windows-Form aber schon

    Hallo,

    ich möchte folgenden Code ausführen:

    VB.NET-Quellcode

    1. Friend Sub Test()
    2. System.Net.ServicePointManager.ServerCertificateValidationCallback = New System.Net.Security.RemoteCertificateValidationCallback(AddressOf AcceptCert)
    4. Dim req As System.Net.WebRequest = CType(System.Net.WebRequest.Create("https://machine1/api/geraetedaten"), System.Net.WebRequest)
    5. req.Credentials = New System.Net.NetworkCredential("webserver", "12345678")
    6. req.Method = "POST"
    7. req.ContentType = "application/x-www-form-urlencoded"
    9. Dim enc As System.Text.UTF8Encoding
    10. enc = New System.Text.UTF8Encoding()
    11. Dim postdata As String
    12. Dim postdatabytes As Byte()
    13. postdata = "complete=true"
    14. postdatabytes = enc.GetBytes(postdata)
    15. req.ContentLength = postdatabytes.Length
    17. Dim dataStream As System.IO.Stream = req.GetRequestStream()
    18. dataStream.Write(postdatabytes, 0, postdatabytes.Length)
    20. Dim response As System.Net.WebResponse
    21. response = req.GetResponse()
    23. Dim strStatus As String = CType(response, System.Net.HttpWebResponse).StatusDescription
    24. Dim strResponse As String = response.Headers.ToString
    26. ' Clean up the streams and the response.
    27. response.Close()
    28. dataStream.Close()
    30. End Sub
    32. Private Function AcceptCert(ByVal sender As Object, ByVal cert As System.Security.Cryptography.X509Certificates.X509Certificate,
    33. ByVal chain As System.Security.Cryptography.X509Certificates.X509Chain,
    34. ByVal errors As System.Net.Security.SslPolicyErrors) As Boolean
    35. Return True
    36. End Function


    Wenn sich die Prozedur Test und die Funktion AcceptCert in der Klasse einer Windows-Form befinden, geht es problemlos. Stehe hingegen beides in einer "normalen" Klasse, hängt es ca. 100 Sekunden hier:

    VB.NET-Quellcode

    1. Dim dataStream As System.IO.Stream = req.GetRequestStream()

    und bringt dann den Fehler: System.Net.WebException: "Timeout für Vorgang überschritten"

    Es handelt sich um dasselbe VB-Projekt.

    Woran kann das liegen?


    Carsten
    --------
    Lieber inkompetent als inkontinent

    Ich habe es mit noch einer weiteren Klasse probiert. Dann irgendwann gab es an dieser Stelle:

    VB.NET-Quellcode

    1. response = req.GetResponse()

    den Fehler:
    System.Net.ProtocolViolationException: "Sie müssen ContentLength-Byte für den Anforderungsstream schreiben, bevor Sie [Begin]GetResponse aufrufen."

    Ich habe dann die Zeile:

    VB.NET-Quellcode

    1. dataStream.Close()

    vom Ende weiter nach oben gesetzt. Hierhin:

    VB.NET-Quellcode

    1. Dim dataStream As System.IO.Stream = request.GetRequestStream()
    2. dataStream.Write(postdatabytes, 0, postdatabytes.Length)
    3. dataStream.Close()


    Irgendwann kam mir die Idee nach einem Update von VS 2017 zu suchen. Gab es tatsächlich. Nun läuft es auch in der Klasse, in der es ganz zu Beginn die Probleme gab.

    ..ganz vergessen:
    reg habe ich irgendwann in request umbenannt.
    --------
    Lieber inkompetent als inkontinent

Facebook
Telefonspende