Ошибка при создании FTP-соединения

← →
Rext (2004-10-06 16:06) [0]

Добрый день!
Создаю в потоке FTP соединение следующим образом:

uses
NMFtp, Classes, Dialogs;

type
TFTPServerConnect = class(TThread)
ftpDP: TNMFTP;
procedure ftpDPSuccess(Trans_Type: TCmdType);
...
constructor TFTPServerConnect.Create(Num:byte);
begin
NumDP:=Num;
ftpDP:=tNMFTP.Create(nil);
inherited Create(false);
end;
procedure TFTPServerConnect.Execute;
begin
ftpDP.FirewallType:=FTUser;
ftpDP.FWAuthenticate:=true;
ftpDP.FWPassword:="";
ftpDP.FWUserID:="";
ftpDP.Host:="myhost";
ftpDP.ParseList:=true;
ftpDP.Password:="mypassword";
ftpDP.Port:=21;
ftpDP.Proxy:="";
ftpDP.ProxyPort:=21;
ftpDP.ReportLevel:=0;
ftpDP.Tag:=0;
ftpDP.TimeOut:=3000;
ftpDP.UserID:="myuser";
ftpDP.Vendor:=2411;
ftpDP.Connect;
end;
...
При вызове ftpDP.Connect вылетает сообщение об ошибке "Project AAA.exe raised exception class FTPException with message "500 "USER ": command not understood. ".
Вопрос: что не так? Помогите люди добрые, а то уже всю голову сломал :((( .

← →
anonymous (2004-10-07 10:13) [1]

Нафига стока проблем. Найди help по TNMFTP там всё подробно описано. Например :

procedure TForm1.Button1Click(Sender: TObject);
begin
if NMFTP1.Connected then
NMFTP1.Disconnect
else
begin
NMFTP1.Vendor := NMOS_AUTO;
NMFTP1.Host := Edit1.Text;
NMFTP1.UserID := Edit2.Text;
NMFTP1.Password := Edit3.Text;
NMFTP1.Connect;
end;
end;

Ошибка при создании FTP-соединения Найти похожие ветки