Progress Bar bei Ftp Download

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von Messiahs.

    Progress Bar bei Ftp Download

    Hallo liebe Community !

    Ich möchte von einen Ftp Server Daten aus einen Ordner laden und den Fortschritt in einer Progressbar anzeigen lassen.
    Das mit dem Download aus aus dem Ordner funktioniert soweit.
    Leider finde ich keine Möglichkeit die Progressbar anzusprechen.

    Methode eins:
    Hier benutze ich:

    VB.NET-Quellcode

    1. Private WithEvents webclient As New Net.WebClient

    und kann somit die Progressbar ansprechen.
    Das Problem ist jedoch:

    VB.NET-Quellcode

    1. webclient.DownloadFileAsync(New Uri("ftp://85.114.133.120:3021/test/test.rar"), "e:\test\test.rar"))


    Ich kann hier nur eine Datei runterladen, finde keine möglichkeit alle Datein aus einen Verzeichnis zu laden.

    Der ganze Code aus Beispiel 1

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.IO
    4. Public Class Form1
    5. Private WithEvents webclient As New Net.WebClient
    9. Private Sub webclient_DownloadProgressChanged(sender As Object, e As Net.DownloadProgressChangedEventArgs) Handles webclient.DownloadProgressChanged
    10. ProgressBar1.Value = e.ProgressPercentage
    11. Label1.Text = e.ProgressPercentage & " % fertig - " & e.BytesReceived & "/" & e.TotalBytesToReceive
    12. End Sub
    13. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    14. 'Dim add As String = "ftp://***.114.***.120:***/test/test.rar"
    15. webclient.Credentials = New Net.NetworkCredential("test", "")
    16. webclient.DownloadFileAsync(New Uri("ftp://85.114.133.120:3021/test/test.rar"), "e:\test\test.rar")
    17. End Sub
    18. End Class


    Beispiel 2

    Hier habe ich die möglichkeit geschaffen, das ich alles aus einen Ordner downloaden kann, jedoch weis ich nicht wie ich die progressbar ansprechen kann:

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.IO
    3. Public Class Form1
    4. Private WithEvents webclient As New Net.WebClient
    5. Private WithEvents ftp As New call
    9. Private Sub webclient_DownloadProgressChanged(sender As Object, e As Net.DownloadProgressChangedEventArgs) Handles webclient.DownloadProgressChanged
    11. ProgressBar1.Value = e.ProgressPercentage
    12. Label1.Text = e.ProgressPercentage & " % fertig - " & e.BytesReceived & "/" & e.TotalBytesToReceive
    13. End Sub
    16. Private Sub listFTP(URL As String)
    18. Dim requ As FtpWebRequest = Nothing
    19. Dim resp As FtpWebResponse = Nothing
    20. Dim reader As StreamReader = Nothing
    22. Try
    23. requ = CType(WebRequest.Create(URL), FtpWebRequest)
    24. requ.Credentials = New NetworkCredential("wurst", "")
    25. 'Auszuführende Aktion festlegen:
    26. requ.Method = WebRequestMethods.Ftp.ListDirectory
    27. resp = CType(requ.GetResponse(), FtpWebResponse)
    28. reader = New StreamReader(resp.GetResponseStream())
    29. While (reader.Peek + 1)
    30. My.Computer.Network.DownloadFile("ftp://85.***.***.1***:***/test/" & Path.GetFileName(reader.ReadLine), "e:\test\" & Path.GetFileName(reader.ReadLine), "wurst", "")
    32. End While
    34. Finally
    35. If reader IsNot Nothing Then reader.Close()
    36. End Try
    37. End Sub
    41. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
    42. System.EventArgs) Handles Button1.Click
    45. listFTP("ftp://85.114.133.120:3021/test")
    48. End Sub
    51. End Class

    Danke sehr !

    Was ist Dein eigentliches Problem?
    Was funktioniert nicht?
    Gibt es Fehlermeldungen (welche Meldung, welche Zeile)?
    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!

    Messiahs schrieb:

    in einer progressbar
    Pro file eine Progressbar oder pro alle Files eine Progressbar?
    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!

    muss man da nich zuerst die kb vom anfang bereichen "0" und dan die kb wiegross die datweie ist? "3500kb"

    und dan die procressbar danach ausrichten? das rechts dan 3500kb ist? und sich dan immer aktuallisiert sobald mehr kb geladen sind?
    sorry hab noch nie mit progressbar gearbeitet daher keine wirkliche idee

    HorrorClown schrieb:

    Eine für den aktuellen Download und die andere für den Gesamtfortschritt
    @Messiahs: Da brauchst Du die Summe der Länge aller downzuloadenden Dateien.
    Nimm zur Ermittlung der Einzellängen diese Funktion:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Function FileSize(ByVal fileUri As Uri) As Long
    2. Dim result As Long = 0
    3. Dim FtpReq As WebRequest = Nothing
    5. Select Case fileUri.Scheme
    6. Case Uri.UriSchemeFtp
    7. Try
    8. FtpReq = FtpWebRequest.Create(fileUri)
    9. FtpReq.Method = WebRequestMethods.Ftp.GetFileSize
    10. Dim FtpResponse As WebResponse = FtpReq.GetResponse()
    11. result = FtpResponse.ContentLength
    12. Catch ex As Exception
    13. result = 0
    14. 'MessageBox.Show("Dateigröße konnte nicht gelesen werden !")
    15. End Try
    17. Case Uri.UriSchemeHttp
    18. Try
    19. FtpReq = HttpWebRequest.Create(fileUri)
    20. FtpReq.Method = WebRequestMethods.Http.Head
    21. Dim FtpResponse As WebResponse = FtpReq.GetResponse()
    22. result = FtpResponse.ContentLength
    23. Catch ex As Exception
    24. result = 0
    25. 'MessageBox.Show("Dateigröße konnte nicht gelesen werden !")
    26. End Try
    27. End Select
    28. Return result
    29. End Function
    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!

Facebook
Telefonspende