Leider geht's auch so nicht.
Ich mache jetzt Folgendes:
- zunächst stelle ich eine lokale Verzeichniskopie her (mit ForceDirectories)
- dann wechsle ich in das entfernte Quellverzeichnis
und dann kommt das, worauf es ankommt:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8:
| begin if IdFTP1.DirectoryListing[j].ItemType = ditFile then try IdFTP1.Get(IdFTP1.DirectoryListing[j].FileName, LocDir+tempstr+'\'+IdFTP1.DirectoryListing[j].FileName, True, True); except on E:Exception do MessageDlg(E.Message, mtError, [mbOk], 0); end; end; |
Als Fehlermeldung kommt "No such file". Auf meiner Festplatte landet eine leere Datei. Das verstehe ich nicht. Der erste Parameter von Get ist auf dem Webserver vorhanden, der zweite Parameter soll ja erst erzeugt werden. ForceDirectories erzeugt auf meiner lokalen Festplatte den Verzeichnispfad zur Datei; nach Get ist eine leere Datei mit dem gewünschten Dateinamen vorhanden.