FTP und SIZE-Methode

  • VB.NET

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

    FTP und SIZE-Methode

    Es gibt Wochenenden, da wäre man lieber im Regen mit der Familie spazierengegangen ...

    Ich spiel' zur Zeit ein wenig mit einem externen FTP-Server herum, das ist ein komplett neues Gebiet für mich. Und ich bin stolz. Mit dem alten Goggle & Try+Error habe ich verstanden, wie die verscheidenen Komponenten zusammenwirken: URI, Credentials, verschiedene FTP-Methoden. Und dann, ja dann ...

    Hier der Code, der für alle WebRequestMethods.Ftp.xxx-Methoden funktioniert:

    VB.NET-Quellcode

    1. Public Function FileLastModified() As DateTime
    3. Dim Request As System.Net.FtpWebRequest = CType(System.Net.FtpWebRequest.Create(UriFile), System.Net.FtpWebRequest)
    4. With Request
    5. .Credentials = New System.Net.NetworkCredential(Username, Password)
    6. .Method = WebRequestMethods.Ftp.GetDateTimestamp
    7. .KeepAlive = False
    8. .UseBinary = True
    9. .Timeout = System.Threading.Timeout.Infinite
    10. End With
    12. Dim Response As FtpWebResponse = Nothing
    13. Try
    14. Response = CType(Request.GetResponse, FtpWebResponse)
    15. Return Response.LastModified
    16. Catch ex As Exception
    17. Throw
    18. Finally
    19. Response.Close()
    20. End Try
    22. End Function


    Und dann kam WebRequestMethods.Ftp.GetFileSize. Und das bringt den Fehler:
    Der Remoteserver hat einen Fehler zurückgegeben: (550) Datei nicht verfügbar (z.B. nicht gefunden oder kein Zugriff)..
    FileZilla sagt mir aber, das die Datei sehr wohl da ist, zumal der FTP-Server bei FileLastModified() mit dieser Datei wunschgemäss antwortet.

    Der Code generiert den Fehler an der Stelle:
    Response = CType(Request.GetResponse, FtpWebResponse)

    VB.NET-Quellcode

    1. Public Function FileContentLength() As Long
    3. Dim Request As System.Net.FtpWebRequest = CType(System.Net.FtpWebRequest.Create(UriFile), System.Net.FtpWebRequest)
    4. With Request
    5. .Credentials = New System.Net.NetworkCredential(Username, Password)
    6. .Method = WebRequestMethods.Ftp.GetFileSize
    7. .KeepAlive = False
    8. .UseBinary = True
    9. .Timeout = System.Threading.Timeout.Infinite
    10. End With
    12. Dim Response As FtpWebResponse = Nothing
    13. Try
    14. Response = CType(Request.GetResponse, FtpWebResponse)
    15. Return Response.ContentLength
    16. Catch ex As Exception
    17. Throw
    18. Finally
    19. Response.Close()
    20. End Try
    22. End Function


    Googeln erbrachte nichts Verwertbares, zumindest habe ich nichts Verwertbares verstanden.

    Vielleicht gibt es ja hier Informationen, die weiterführen ... vielen Dank im Voraus.

    Nunja, keine Lösung, aber ein workaround ...

    VB.NET-Quellcode

    1. Public Function FileContentLength() As Long
    3. Dim Request As System.Net.FtpWebRequest = CType(System.Net.FtpWebRequest.Create(UriFile), System.Net.FtpWebRequest)
    4. With Request
    5. .Credentials = New System.Net.NetworkCredential(Username, Password)
    6. .Method = WebRequestMethods.Ftp.ListDirectoryDetails
    7. .KeepAlive = False
    8. .UseBinary = True
    9. .Timeout = System.Threading.Timeout.Infinite
    10. End With
    12. Using Response As FtpWebResponse = CType(Request.GetResponse, FtpWebResponse)
    14. Using Reader As New IO.StreamReader(Response.GetResponseStream())
    16. ' Server liefert nur eine Zeile
    17. Dim EntryLine As String = Reader.ReadLine
    19. ' Enthaltene doppelte Leerzeichen entfernen
    20. While EntryLine.Contains(" ")
    21. EntryLine = EntryLine.Replace(" ", " ")
    22. End While
    24. ' Die enthaltenen Felder sind nunmehr durch Leerzeichen getrennt.
    25. Dim EntryArray = EntryLine.Split(CChar(" "))
    27. ' das Array entält nun folgende Informationen im String-Format:
    28. ' (0) = Attribute
    29. ' (1) = Objektart. 1= File, 2=Directory
    30. ' (2) = Username
    31. ' (3) = Host
    32. ' (4) = ContentLength
    33. ' (5) = Monat
    34. ' (6) = Tag
    35. ' (7) = Uhrzeit, wenn Lastmodified.year = ServerDatum.year, sonst lastModified.year
    36. ' (8) = Dateiname bzw. Directory-Name
    38. If EntryArray(1) = "1" Then ' Nur Dateien, Directories nicht berücksichtigen
    39. Return CLng(EntryArray(4))
    40. Else
    41. Return -1
    42. End If
    44. End Using
    45. End Using
    47. End Function


    Das Zeitverhalten ist i.O. Nachdem ich die Struktur der Server-Response evaluiert hatte, wuchsen natürlich neue Begehrlichkeiten. Wäre es denn nicht schön, auf die dargestellte Weise eine echte FtpServerFileInfo, bzw. ServerFtpDirectoryInfo zu entwickeln?
    Wäre auch ohne Weiteres möglich, wenn die Inhalte der Felder 5,6 und 7 (Datum/Zeit) konsistent wären, was Sie aber leider NICHT sind. Auf diesem Wege ist das LastModified-Datum MIT Zeitangabe für eine Datei, die in einem älteren Jahr als dem aktuellen erstellt wurde, nicht ermittelbar. So ist ein zusätzlicher Aufruf von FileLastModified erforderlich, was das Laufzeitverhalten doch sehr verschlechtert. Wenn es unter unseren Experten Anregungen gibt, wäre ich sehr dankbar.