Progressbar will nicht beim Uploadtool

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von vorsar.

    Progressbar will nicht beim Uploadtool

    Hallo liebe User,

    ich hab da mal eine Frage, undzwar möchte ich ein Uploader tool schreiben, womit ich meine Musikstücke auf meinen Ftp server hochladen kann (vorsar.de).
    Das uploaden Funktioniert alles so wie es auch soll. nur bei der Statusanzeige des Uploads hänge ich fest.

    vllt. könnt ihr mir helfen.

    hier mal mein Code


    VB.NET-Quellcode

    1. Option Strict On
    3. Imports System.Net
    5. Public Class Form2
    7. Public WithEvents wc As New WebClient
    8. Private Sub go_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles upload.Click
    10. End Sub
    12. Private Sub wc_UploadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wc.UploadFileCompleted
    13. MsgBox("Download erfolgreich!", MsgBoxStyle.Information, "Erfolgreich!")
    14. Me.ProgressBar1.Value = 0
    15. Me.Label5.Text = "0 von 0 MB's"
    16. Me.Label4.Text = "0%"
    18. End Sub
    20. Private Sub wc_UploadProgressChanged(ByVal sender As Object, ByVal e As System.Net.UploadProgressChangedEventArgs) Handles wc.UploadProgressChanged
    21. Dim angekommen As Integer = CInt((e.BytesReceived / 1048) / 1048)
    22. Dim ausstehend As Integer = CInt((e.TotalBytesToReceive / 1048) / 1048)
    24. Me.ProgressBar1.Value = e.ProgressPercentage
    26. 'Math.Round(angekommen)
    31. ' Math.Round(ausstehend)
    37. Me.Label5.Text = angekommen & " von " & ausstehend & " Mb's"
    41. Me.Label4.Text = e.ProgressPercentage & "%"
    42. End Sub
    44. Dim url As String = "ftp://vorsar.de/httpdocs/musik/"
    45. Dim passwort As String = "***"
    46. Dim benutzername As String = "***i"
    47. Dim richtextbox As New RichTextBox
    48. Dim Textbox As New TextBox
    50. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    51. wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
    52. Mathixx.Text = wc.DownloadString("FTP://vorsar.de/httpdocs/mathixx.txt")
    53. End Sub
    55. Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    56. wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
    57. wc.UploadString("FTP://vorsar.de/httpdocs/mathixx.txt", Mathixx.Text & vbCrLf)
    58. End Sub
    60. Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    61. wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
    62. Releases.Text = wc.DownloadString("FTP://vorsar.de/httpdocs/releases.txt")
    63. End Sub
    65. Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
    66. wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
    67. wc.UploadString("FTP://vorsar.de/httpdocs/releases.txt", Releases.Text & vbCrLf)
    68. End Sub
    70. Private Sub Laden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Laden.Click
    71. wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
    72. Player.Text = wc.DownloadString("FTP://vorsar.de/httpdocs/player/config_multi.xml")
    73. End Sub
    75. Private Sub Speichern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Speichern.Click
    76. wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
    77. wc.UploadString("FTP://vorsar.de/httpdocs/player/config_multi.xml", Player.Text & vbCrLf)
    78. End Sub
    80. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    81. wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
    82. OpenFileDialog1.ShowDialog()
    83. pfad.Text = OpenFileDialog1.FileName()
    84. End Sub
    86. Private Sub upload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles upload.Click
    87. My.Computer.Network.UploadFile(pfad.Text, "ftp://vorsar.de/httpdocs/musik/" + dateiname.Text + ".mp3", benutzername, passwort)
    88. wc.UploadFileAsync(New Uri("FTP://vorsar.de/httpdocs/musik/"), dateiname.Text)
    89. End Sub
    91. End Class


    ich wäre über eure Hilfe sehr erfreut.

    MfG:
    vorsar

Facebook
Telefonspende