Ошибка при создании FTP-соединения [D6, Win2k]
Rext © (2004-10-06 16:06:00)
Добрый день!
Создаю в потоке 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:00) [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;
Наверх 
ЧАТ |
Орешник |
|
