Frage zu HttpRequest

  • VB.NET
  • .NET (FX) 4.0

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Drahuverar.

    Frage zu HttpRequest

    Hallo Leute,

    zur Veranschaulichung mal folgendes Beispiel, hierfür benötigt ihr eine Windows-Form mit Button1 und Label1:

    VB.NET-Quellcode

    1. ​Imports System.Net
    3. Public Class Form1
    4. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    5. Label1.Text = "Überprüfe..."
    6. Button1.Enabled = False
    7. Dim request = DirectCast(WebRequest.Create("http://download.piriform.com/ccsetup521.exe"), WebRequest)
    9. Try
    10. Dim response As WebResponse = DirectCast(request.GetResponse(), WebResponse)
    11. Label1.Text = "Datei existiert."
    13. Catch ex As WebException
    14. Dim response As WebResponse = DirectCast(ex.Response, WebResponse)
    15. Label1.Text = "Datei existiert nicht."
    16. MessageBox.Show(ex.ToString)
    17. End Try
    19. Button1.Enabled = True
    20. End Sub
    21. End Class


    Folgendes Problem;
    Wenn ich nun den Button 3 Mal drücke friert das Programm ein und liefert ein TimeOut und ich weiß momentan nicht weswegen.
    Sinn und Zweck des ganzen ist, dass ich mit dem Programm überprüfen möchte, ob eine neue Version bei einem Programm vorhanden ist (der CCleaner ist hier lediglich als Beispiel hinterlegt).

    Weiß einer warum ich ein TimeOut (erst beim 3. mal) erhalte ?
    Vielleicht gibt es ja auch eine elegantere Lösung als das Try Catch.. :whistling:

    Grüße,
    Drahuverar
    Option Strict On!

    @Drahuverar WebResponse ist ein IDisposable, das musst Du nach Verwendung disposen:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net
    3. Public Class Form1
    4. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    5. Label1.Text = "Überprüfe..."
    6. Button1.Enabled = False
    8. Dim response As WebResponse = Nothing
    10. Try
    11. Dim request = DirectCast(WebRequest.Create("http://download.piriform.com/ccsetup521.exe"), WebRequest)
    13. response = DirectCast(request.GetResponse(), WebResponse)
    14. Label1.Text = "Datei existiert."
    15. Catch ex As WebException
    16. 'Dim response As WebResponse = DirectCast(ex.Response, WebResponse)
    17. Label1.Text = "Datei existiert nicht."
    18. MessageBox.Show(ex.ToString)
    19. Finally
    20. If response IsNot Nothing Then
    21. response.Dispose()
    22. End If
    23. End Try
    25. Button1.Enabled = True
    26. End Sub
    27. End Class
    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!

    @Drahuverar IDisposable ist das Interface, auf das Using aufsetzt.
    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!

    @RodFromGermany nutze es täglich, aber so ganz genau wusste ich auch nicht wie das geschieht, bzw. was im Hintergrund passiert. Habe bisher auch selten "disposen" müssen. Man lernt nie aus.
    Und hier steht's auch- habe mir das Statement nie angeschaut.. Ups. :whistling:
    Option Strict On!

Facebook
Telefonspende