WebClient Abbrechen nach x sekunden

  • VB.NET

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

    WebClient Abbrechen nach x sekunden

    Hi,

    gibt es eine möglichkeit den webclient abzubrechen nach zb 20s ? Wenn die zu downlodende seite off oder zu lange braucht soll halt der webc abrechen und fehler ausgeben.

    VB.NET-Quellcode

    1. Try
    2. Dim wc As New WebClient
    3. wc.DownloadFile(New Uri("http://.de"), "datei.tmp")
    4. wc.Dispose()
    6. 'Code ....
    8. 'Ausgabe wenn OK
    9. Catch
    10. 'Ausgabe wenn fehler
    11. End Try

    Guck mal, vielleicht könntest du dir was hiermit basteln:

    VB.NET-Quellcode

    1. Public Class MyWebClient
    2. Inherits System.Net.WebClient
    5. Protected Overloads Overrides Function GetWebRequest(ByVal address As Uri) As WebRequest
    6. Dim req As WebRequest = DirectCast(MyBase.GetWebRequest(address), WebRequest)
    8. req.Timeout = 60000 'ms
    11. Return req
    12. End Function
    14. End Class

    Bin mir aber nicht sicher ob das funktioniert ;)
    /nicht getestet

    Gelöschter Benutzer schrieb:

    das ist unnötig, nutz einen httpwebrequest, der hat einen definierbaren timeout


    Also deine antwort hilft mir ja sehr viel weiter... auf dieser scheiß seite is im klar text nur das

    VB.NET-Quellcode

    1. Dim myReq As HttpWebRequest = _
    2. WebRequest.Create("http://www.contoso.com/")


    Und das is nix... Könntest wenn du hilfst wenigsten ein bs geben. Denn ich habe bis jetzt noch nie HttpWebRequest verwenden müssen.

    Lustige Lösung gefällig?

    VB.NET-Quellcode

    1. Private Async Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    3. Dim path = "http://www.artfiles.org/knoppix/ADRIANE-KNOPPIX_V6.7.0CD-2011-08-01-DE.iso"
    5. Dim wc As New Net.WebClient With {.Proxy = Nothing}
    6. Dim result = wc.DownloadFileTaskAsync(path, "dummy")
    7. Dim waiter = (New TaskFactory).StartNew(Sub()
    8. System.Threading.Thread.Sleep(20000)
    9. End Sub)
    11. Dim t = Await Threading.Tasks.Task.WhenAny(New Task() {result, waiter})
    12. If t Is waiter Then
    13. Debug.Print("Cancelling Download")
    14. wc.CancelAsync()
    15. End If
    17. End Sub

Facebook
Telefonspende