Скачать: CL | DM;

Ошибка при создании 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c