WebDAV-Server Upload/Download

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von Mono.

    WebDAV-Server Upload/Download

    Hallo erstmal...

    Ich habe ein Problem, oder eher ein Frage.

    Ich habe ein kleines Programm geschrieben, mit dem Man auf einen WebDAV-Server zugreifen soll
    und von dort Dateien herunter laden bzw, Dateien auf diesen hochladensoll.

    Ich habe schon im Windows SkyDrive-Forum gefragt aber dort scheinen Sie meine Frage nicht zu vertsehen.

    Weiß vielleicht jemand von euch einen Rat?

    Hier der Link zu meinem Programm:

    WebDAVFile Transfer

    Vielen Dank schonmal im Vorraus :)
    Joel

    Und was genau ist das Problem ?
    Was hast du denn schon , abgesehen von einer GUI.
    (Wobei ich mich ehrlich Frage, wieso man dieses Tool benutzen soll, ich würde ja zumindest einen Filebrowser für die WebDav Ordner/Datein oder ähnliches erwarten).
    Das ist meine Signatur und sie wird wunderbar sein!

    Hei Mono,

    Generel habe ich den ganzen code dahinter schon.
    Mein Problem ist es jetzt, dass ich nicht weiß, wie ich den genauen pfad auf den Server bekomme.

    Und das Tool soll nachher in ein Programm implementiert werden, das dann auf diesen Datein hochladen und herunterladen kann.
    Zum testen, habe ich mir aber erstmal ein extra Projekt dafür erstellt.

    Hier folgen noch Codes für Upload und Download.

    Upload:

    VB.NET-Quellcode

    1. Private Sub btnUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUpload.Click
    2. If txtFileToUpload.Text = "" Or txtServerPathUpload.Text = "" Then
    3. MessageBox.Show("Es wurde kein Dateipfad bzw. Serverpfad angegeben!", "Kein Pfad angegeben", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    4. Exit Sub
    5. End If
    7. Dim strFileToUpload As String = txtFileToUpload.Text
    8. Dim lngFileLength As Long = My.Computer.FileSystem.GetFileInfo(strFileToUpload).Length
    10. Dim strURL As String = txtServerPathUpload.Text
    11. Dim strPort As String = txtPortUpload.Text
    13. Dim strUsername As String = txtUsernameUpload.Text
    14. Dim strPassword As String = txtPasswordUpload.Text
    17. If strPort <> "" Then
    18. Dim u As New Uri(strURL)
    19. Dim strHost As String = u.Host
    21. strURL = strURL.Replace(strHost, strHost & ":" & strPort)
    22. End If
    23. strURL = strURL.TrimEnd("/"c) & "/" & IO.Path.GetFileName(strFileToUpload)
    25. Dim request As HttpWebRequest = DirectCast(HttpWebRequest.Create(strURL), HttpWebRequest)
    26. request.Credentials = New NetworkCredential(strUsername, strPassword)
    27. request.Method = WebRequestMethods.Http.Put
    28. request.ContentLength = lngFileLength
    30. request.SendChunked = True
    31. request.Headers.Add("Translate: f")
    32. request.AllowWriteStreamBuffering = True
    34. Dim s As IO.Stream = request.GetRequestStream
    36. Dim fs As New IO.FileStream(strFileToUpload, IO.FileMode.Open, IO.FileAccess.Read)
    38. Dim byteTransferRate As Integer = 1024
    39. Dim bytes(byteTransferRate - 1) As Byte
    40. Dim bytesRead As Integer = 0
    41. Dim totalBytesRead As Long = 0
    43. pgbUpload.Minimum = 0
    44. pgbUpload.Maximum = CInt(lngFileLength \ byteTransferRate)
    45. pgbUpload.Value = 0
    47. Do
    48. bytesRead = fs.Read(bytes, 0, bytes.Length)
    50. If bytesRead > 0 Then
    51. totalBytesRead += bytesRead
    52. s.Write(bytes, 0, bytesRead)
    54. pgbUpload.Value = CInt(totalBytesRead \ byteTransferRate)
    56. If pgbUpload.Value Mod 500 = 0 Then _
    57. Application.DoEvents()
    58. End If
    60. Loop While bytesRead > 0
    62. s.Close()
    63. s.Dispose()
    64. s = Nothing
    66. fs.Close()
    67. fs.Dispose()
    68. fs = Nothing
    70. Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
    71. Dim code As HttpStatusCode = response.StatusCode
    73. response.Close()
    74. response = Nothing
    76. If totalBytesRead = lngFileLength AndAlso code = HttpStatusCode.Created Then
    77. MessageBox.Show("Der Upload war erfolgreich", "Upload abgeschlossen", MessageBoxButtons.OK, MessageBoxIcon.Information)
    78. Else
    79. MessageBox.Show("Der Upload ist fehlgeschalgen", "Upload fehlgeschlagen", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    80. End If
    81. End Sub


    Download:

    VB.NET-Quellcode

    1. Private Sub btnDownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDownload.Click
    2. Dim strUrl As String = txtFileToDownload.Text
    3. Dim strPort As String = txtPortDownload.Text
    5. Dim strUsername As String = txtUsernameDownload.Text
    6. Dim strPassowrd As String = txtPasswordDownload.Text
    7. Dim strSavePath As String = txtSavePathDownload.Text
    9. If strUrl = "" Or strSavePath = "" Then
    10. MessageBox.Show("Es wurde kein Dateipfad bzw. Serverpfad angegeben!", "Kein Pfad angegeben", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    11. Exit Sub
    12. End If
    14. If strPort <> "" Then
    15. Dim u As New Uri(strUrl)
    16. Dim strHost As String = u.Host
    17. strUrl = strUrl.Replace(strHost, strHost & ":" & strPort)
    18. End If
    21. Dim request As HttpWebRequest = DirectCast(HttpWebRequest.Create(strUrl), HttpWebRequest)
    22. request.Credentials = New NetworkCredential(strUsername, strPassowrd)
    23. request.Method = WebRequestMethods.Http.Get
    24. request.SendChunked = True
    25. request.Headers.Add("Translate: f")
    27. Dim response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse)
    30. Dim bytesTransferRate As Integer = 4096
    31. Dim bytes(bytesTransferRate - 1) As Byte
    32. Dim bytesRead As Integer = 0
    33. Dim totalBytesRead As Long = 0
    34. Dim lngFileLength As Long = 0
    36. lngFileLength = CLng(response.GetResponseHeader("Content-Length"))
    38. pgbDownload.Minimum = 0
    39. pgbDownload.Maximum = CInt(lngFileLength \ bytesTransferRate)
    40. pgbDownload.Value = 0
    43. Dim fs As New IO.FileStream(strSavePath, IO.FileMode.Create, IO.FileAccess.Write)
    45. Dim s As IO.Stream = response.GetResponseStream
    47. Do
    48. bytesRead = s.Read(bytes, 0, bytes.Length)
    49. If bytesRead > 0 Then
    50. totalBytesRead += bytesRead
    51. fs.Write(bytes, 0, bytesRead)
    53. If pgbDownload.Value Mod 500 = 0 Then _
    54. Application.DoEvents()
    56. End If
    57. Loop While bytesRead > 0
    59. s.Close()
    60. s.Dispose()
    61. s = Nothing
    63. fs.Close()
    64. fs.Dispose()
    65. fs = Nothing
    67. response.Close()
    68. response = Nothing
    70. If totalBytesRead = lngFileLength Then
    71. MessageBox.Show("Der Download war erfolgreich", "Download abgeschlossen", MessageBoxButtons.OK, MessageBoxIcon.Information)
    72. Else
    73. MessageBox.Show("Der Download ist fehlgeschalgen", "Download fehlgeschlagen", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    74. End If
    75. End Sub

    Hi

    Du hast also den Code hier nahezu eins zu eins genommen ;)
    Soviel kann ich dazu sagen:
    Das funktioniert prinzipiell;)

    Mein Problem ist es jetzt, dass ich nicht weiß, wie ich den genauen pfad auf den Server bekomme.

    Was genau meinst du damit ?

    Den Pfad zum Server musst du ja in der Textbox angeben..
    Dazu benötigst du natürlich einen WebDav Order irgendwo.

    Versuch mal dein Problem genau auszudrücken..


    Gruss Mono
    Das ist meine Signatur und sie wird wunderbar sein!

    Mono schrieb:


    Den Pfad zum Server musst du ja in der Textbox angeben..
    Dazu benötigst du natürlich einen WebDav Order irgendwo.


    Ic habe von Windows Live ein SkyDrive-Ordner. Diese sollten meiner Information nach WebDAV-Server sein.

    Nun würde ich gerne den Pfad zur SkyDrive haben, da der Link zum Server aus der Adresszeile im Browser nicht funktioniert. ?(

    Grüße Joel

Facebook
Telefonspende