Download Async geht nicht?

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Kevin Hombre.

    Download Async geht nicht?

    Hi,

    Also ich will mir so meine Datei vom Server Async herunterladen, und den fortschritt in meiner progressbar anzeigen.

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.ComponentModel
    4. Public Class Form1
    5. Sub DownloadFile(datei As String, ziel As String)
    6. Dim wb As New System.Net.WebClient()
    7. AddHandler wb.DownloadProgressChanged, AddressOf ProgressChanged
    8. AddHandler wb.DownloadFileCompleted, AddressOf Completed
    9. wb.Credentials = New Net.NetworkCredential("USER", "PW")
    10. wb.DownloadFileAsync(New Uri(datei), ziel)
    11. End Sub
    12. Sub Completed(sender As Object, e As AsyncCompletedEventArgs)
    13. MsgBox("Download fertig")
    14. End Sub
    16. Sub ProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs)
    17. ProgressBar1.Value = e.ProgressPercentage
    18. End Sub
    20. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    21. DownloadFile("ftp://server.net/Mic.wav", Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\test.wav")
    22. End Sub
    23. End Class



    Ich krieg zwar die Meldung wenn die Datei heruntergeladen wurde, das funzt problemlos, allerdings wird mir der fortschritt nicht angezeigt? :o
    C# Developer
    Learning C++

    Guck dir den Link mal an, den ich dir geschrieben habe.

    EDIT: Komisch, bei mir funzt der Code super:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Sub DownloadFile(datei As String, ziel As String)
    2. Dim wb As New System.Net.WebClient()
    3. AddHandler wb.DownloadProgressChanged, AddressOf ProgressChanged
    4. AddHandler wb.DownloadFileCompleted, AddressOf Completed
    5. wb.DownloadFileAsync(New Uri(datei), ziel)
    6. End Sub
    8. Sub Completed(sender As Object, e As AsyncCompletedEventArgs)
    9. MsgBox("Download fertig")
    10. End Sub
    12. Sub ProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs)
    13. ProgressBar1.Value = e.ProgressPercentage
    14. End Sub
    16. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    17. DownloadFile("http://www.bilder-hochladen.net/files/big/kcub-7-8f14.png", Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\test.png")
    18. End Sub
    Mfg
    Vincent

Facebook
Telefonspende