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
ich wäre über eure Hilfe sehr erfreut.
MfG:
vorsar
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
- Option Strict On
- Imports System.Net
- Public Class Form2
- Public WithEvents wc As New WebClient
- Private Sub go_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles upload.Click
- End Sub
- Private Sub wc_UploadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wc.UploadFileCompleted
- MsgBox("Download erfolgreich!", MsgBoxStyle.Information, "Erfolgreich!")
- Me.ProgressBar1.Value = 0
- Me.Label5.Text = "0 von 0 MB's"
- Me.Label4.Text = "0%"
- End Sub
- Private Sub wc_UploadProgressChanged(ByVal sender As Object, ByVal e As System.Net.UploadProgressChangedEventArgs) Handles wc.UploadProgressChanged
- Dim angekommen As Integer = CInt((e.BytesReceived / 1048) / 1048)
- Dim ausstehend As Integer = CInt((e.TotalBytesToReceive / 1048) / 1048)
- Me.ProgressBar1.Value = e.ProgressPercentage
- 'Math.Round(angekommen)
- ' Math.Round(ausstehend)
- Me.Label5.Text = angekommen & " von " & ausstehend & " Mb's"
- Me.Label4.Text = e.ProgressPercentage & "%"
- End Sub
- Dim url As String = "ftp://vorsar.de/httpdocs/musik/"
- Dim passwort As String = "***"
- Dim benutzername As String = "***i"
- Dim richtextbox As New RichTextBox
- Dim Textbox As New TextBox
- Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
- wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
- Mathixx.Text = wc.DownloadString("FTP://vorsar.de/httpdocs/mathixx.txt")
- End Sub
- Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
- wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
- wc.UploadString("FTP://vorsar.de/httpdocs/mathixx.txt", Mathixx.Text & vbCrLf)
- End Sub
- Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
- wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
- Releases.Text = wc.DownloadString("FTP://vorsar.de/httpdocs/releases.txt")
- End Sub
- Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
- wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
- wc.UploadString("FTP://vorsar.de/httpdocs/releases.txt", Releases.Text & vbCrLf)
- End Sub
- Private Sub Laden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Laden.Click
- wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
- Player.Text = wc.DownloadString("FTP://vorsar.de/httpdocs/player/config_multi.xml")
- End Sub
- Private Sub Speichern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Speichern.Click
- wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
- wc.UploadString("FTP://vorsar.de/httpdocs/player/config_multi.xml", Player.Text & vbCrLf)
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
- OpenFileDialog1.ShowDialog()
- pfad.Text = OpenFileDialog1.FileName()
- End Sub
- Private Sub upload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles upload.Click
- My.Computer.Network.UploadFile(pfad.Text, "ftp://vorsar.de/httpdocs/musik/" + dateiname.Text + ".mp3", benutzername, passwort)
- wc.UploadFileAsync(New Uri("FTP://vorsar.de/httpdocs/musik/"), dateiname.Text)
- End Sub
- End Class
ich wäre über eure Hilfe sehr erfreut.
MfG:
vorsar