Hallo,
ich möchte ein kleines FTP Programm erstellen...
bekomme aber schon am Anfang Probleme...
Dies ist mein Code:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
| NMFTP1.ReportLevel := 1;
NMFTP1.TimeOut := 5000;
NMFTP1.Vendor := NMOS_AUTO;
NMFTP1.Host := edt_Adresse.Text;
NMFTP1.Port := StrToInt(edt_Port.Text);
NMFTP1.UserID := edt_Username.Text;
NMFTP1.Password := edt_Passwort.Text;
if chk_Proxy.Checked then begin
NMFTP1.Proxy := edt_ProxyIP.Text;
NMFTP1.ProxyPort := StrToInt(edt_ProxyPort.Text);
end;
NMFTP1.Connect; |
Dieser wird auch ohne Probleme akzeptiert.
wenn ich nun aber versuche das aktuelle Verzeichnis auszulesen oder eine Auflistung zu starten kommt eine Fehlermeldung!
"...eine Exception der Klasse FTPException ist aufgetreten. Meldung: '530 ftpgate: not connected to remote server'. ..."
bitte um Hilfe
