Hallo,
ich versuche mit folgenden Code ein neues Verzeichnis auf meinen
FTP-Server zu erstellen:
Delphi-Quellcode:
ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+
'
Coresaved.ini');
ftpadresse:=ini.ReadString('
ftp','
01','
');
ftpbenutzer:=ini.ReadString('
ftp','
02','
');
ftppasswort:=ini.ReadString('
ftp','
03','
');
ini.Free;
IdFTP1.Host:=ftpadresse;
IdFTP1.Username:=ftpbenutzer;
IdFTP1.Password:=ftppasswort;
IdFTP1.Connect();
IdFTP1.ChangeDir('
/');
IdFTP1.MakeDir('
/test10');
IdFTP1.Quit;
Zunächst einmal hole ich alle relevanten Zugangsdaten aus einer INI-Datei. Die Zugangsdaten werden an IdFTP übergeben. Verbindungsaufbau, ins Stammverzeichnis wechseln, Verzeichnis anlegen und Verbindung beenden.
Quittiert wird das ganze mit einem Meldungsfenster Directory Create als Fehlermeldung. Komischerweise wird das Verzeichnis angelegt. Was ist denn bitteschön das nun wieder. Ich kann einfach keinen Fehler finden. Als
OS läuft bei mir Win 7 32 Bit.