WebClient Download Progressbar

  • VB.NET

Es gibt 15 Antworten in diesem Thema. Der letzte Beitrag () ist von mbfan.

    WebClient Download Progressbar

    Huhu,

    ja ich weiß, das Thema hatten wir schon einige Male. Leider hat bis jetzt noch nichts funktioniert.

    VB.NET-Quellcode

    1. Private WithEvents HttpClient As WebClient
    3. #Region " Prozedur "
    4. Private Function DownloadFile(ByVal DownloadLink As String, ByVal DstFilename As String)
    5. Dim HttpClient = New WebClient
    6. Dim Src As String = DownloadLink
    7. Dim Dst As String = My.Settings.Spf_Mp3 & DstFilename & ".flv"
    9. My.Settings.DownloadDstFile = DstFilename
    11. HttpClient.DownloadFileAsync(New Uri(Src), Dst)
    13. Return Nothing
    14. End Function
    16. Sub HttpClient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles HttpClient.DownloadProgressChanged
    17. Me.ProgressBar1.Value += e.ProgressPercentage
    18. lbl_ProgressChange.Text = e.ProgressPercentage & "%"
    19. End Sub
    20. #End Region


    Die Datei wird heruntergeladen, es wird aber der ProgressChanged nicht angezeigt. habt ihr eine Idee?

    Danke!

    electr0

    Ich hab folgenden Code in einem Projekt für einen Kunden verwendet und es müsste funktionieren. Hab es mal angepasst für dich.

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.Net
    4. Public Class Form1
    6. Private Shared Sub DownloadFile(ByVal sURL As String, ByVal sFile As String)
    8. Dim locWebReq As HttpWebRequest
    9. Dim locWebRes As HttpWebResponse
    10. Dim locBinaryReader As BinaryReader
    11. Dim locBinaryWriter As BinaryWriter
    12. Dim locFileStream As FileStream
    13. Dim locByteBuffer() As Byte = New Byte(1024) {}
    14. Dim locBytesRead As Integer = 0
    15. Dim locBytesTemp As Integer = 0
    16. Dim locSingleSize As Integer = 0
    18. Try
    20. locWebReq = CType(HttpWebRequest.Create(sURL), HttpWebRequest)
    21. locWebRes = CType(locWebReq.GetResponse(), HttpWebResponse)
    23. locSingleSize = CInt(locWebRes.ContentLength)
    25. locFileStream = New FileStream(sFile, FileMode.Create)
    26. locBinaryReader = New BinaryReader(locWebRes.GetResponseStream)
    27. locBinaryWriter = New BinaryWriter(locFileStream)
    29. locBytesTemp = 0
    31. Do
    33. locBytesRead = locBinaryReader.Read(locByteBuffer, 0, 1024)
    34. locBinaryWriter.Write(locByteBuffer, 0, locBytesRead)
    35. locBytesTemp += locBytesRead
    37. Form1.ProgressBar1.Value = CInt(((locBytesTemp / locSingleSize) * 100))
    38. Form1.lbl_ProgressChange.Text = Math.Round(((locBytesTemp / locSingleSize) * 100)) & " %"
    40. Application.DoEvents()
    42. Loop Until locBytesRead = 0
    44. Catch ex As Exception
    46. End Try
    48. End Sub
    49. End Class

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „singu“ ()

    @elekt0:
    Falls es dich noch interessiert: (getestet)
    In Zeile 17 gehört das "+" weg. Ist 'ne einfache Wertzuweisung wie in der Zeile darauf
    In Zeile 5, wie 4typen vermutet hat, ist eine doppelte Deklaration. Wenn du hier das "Dim"
    wieder wegnimmst, bezieht sich HTTPClient auf das Objekt, das du in Zeile 1 erstellt hast (und bearbeitet das Event)
    Ansonsten erstellt VB ein neues Element HTTPClient in der Funktion (und bearbeitet das Event nicht)

    LG, der_Kurt

    PS: @singu: Ist nicht bös gemeint:
    Diesmal hat es ja funktioniert, aber wenn Du ein Problem mit deinem Quellcode hast, willst du dann
    1. Hilfe bei deinem Quellcode, oder
    2. einen komplett anderen Quellcode? (auch wenn er genausogut, oder vielleicht besser funktioniert?)

    Ich habe folgenden:

    Zeigt auch die Bytes an - Wieviel er runtergeladen hat und wieviel gesamt.

    VB.NET-Quellcode

    1. Imports System.Net
    3. Public Class Form13
    4. Dim WithEvents w As New WebClient
    6. Private Sub Form13_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    7. w.DownloadFileAsync(New Uri( _
    8. "http://downloade.at/datei.zip"), Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\" & "Datei.zip")
    9. MessageBox.Show("Download abgeschlossen!")
    10. End Sub
    12. Private Sub w_DownloadProgressChanged(ByVal sender As Object, ByVal e As _
    13. System.Net.DownloadProgressChangedEventArgs) Handles _
    14. w.DownloadProgressChanged
    15. ProgressBar1.Value = e.ProgressPercentage
    16. Label3.Text = e.BytesReceived
    17. Label5.Text = e.TotalBytesToReceive
    18. End Sub
    19. End Class
    Meine neue Homepage: pkern.at
    Wetter bei mir zu Haus:

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Patschi“ ()

    VB.NET-Quellcode

    1. w.DownloadFileAsync(New Uri( _
    2. "http://webspace.at/datei.zip"), Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\" & "Blubb.zip")
    4. MessageBox.Show("Download abgeschlossen!")




    Meiner Meinung nach ist das Falsch! Die MessageBox.Show gehört in das w_DownloadFileCompleted Event, da er Asynchron herunterlädt und somit die MessageBox zeigt, während er herunterlädt und nicht danach.

    Oder täusch ich mich?

    Och sorry, du hast Recht. Die MsgBox kommt schon beim Start ...

    VB.NET-Quellcode

    1. Private Sub w_DownloadProgressChanged(ByVal sender As Object, ByVal e As _
    2. System.Net.DownloadProgressChangedEventArgs) Handles _
    3. w.DownloadProgressChanged
    4. ProgressBar1.Value = e.ProgressPercentage
    5. Label3.Text = e.BytesReceived
    6. Label5.Text = e.TotalBytesToReceive
    7. If ProgressBar1.Value = ProgressBar1.Maximum Then
    8. MessageBox.Show("Download abgeschlossen!")
    9. End If
    10. End Sub


    So funktioniert es - Getestet - Nur zeigt er die MessageBox zweimal an :S
    Meine neue Homepage: pkern.at
    Wetter bei mir zu Haus:

    VB.NET-Quellcode

    1. Private Sub w_DownloadFileCompleted( ByVal sender As System.Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles w.DownloadFileCompleted
    2. MessageBox.Show("Der Download ist fertig .. blalblalbla")
    3. End Sub



    Glaube so lautet die Lösung ;)

    Fehler beim "w"

    hallo,
    Die Handles-Klausel erfordert eine WithEvents-Variable, die im enthaltenden Typ oder einem seiner Basistypen definiert wird.

    Dieser Fehler kommt bei mir in folgendem Code (Fehler beim "w" in der dritten zeile markiert):

    VB.NET-Quellcode

    1. Private Sub w_DownloadProgressChanged(ByVal sender As Object, ByVal e As _
    2. System.Net.DownloadProgressChangedEventArgs) Handles _
    3. w.DownloadProgressChanged
    4. ProgressBar1.Value = e.ProgressPercentage
    5. lbl_bytesd.Text = e.BytesReceived
    6. lbl_bytesi.Text = e.TotalBytesToReceive
    7. End Sub

    Was mache ich da falsch? Und wie geht es richtig?
    mbfan
    You should live for that what you belive. - Drag-Drop Beschreibung

Facebook