FTP（TIdFTP控件）的简单问题，散分啦,在线等待中.....

Question

我使用Indy的TIdFTP控件时使用以下代码：
IdFTP1.Host:='lhh';
IdFTP1.Username:='administrator';
IdFTP1.Password:='lihh9705';
IdFTP1.Connect;
FileList:=TStringList.Create;
IdFTP1.List(FileList);
到了IdFTP1.List(FileList);时报错：
“project test.ext raised exception class EIDconnClosedGracefully connection closed gracefully”.
我可是对着indy的ftp例子写的程序，而且indy的例程在我这里也报这个错误，请问各位是什么原因呀，我在线等待，谢谢!!

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  filelist : Tstringlist;
begin
  idftp1.Host:='192.168.0.25';
  idftp1.Port:=2100;
  idftp1.Username:='username';
  idftp1.Password:='password';
  idftp1.Connect;
  FileList:=TStringList.Create;
  IdFTP1.List(filelist);
  Memo1.Text:=filelist.Text;
  idftp1.Free;
end;
测试了一下通过。
host那里填写ip地址试试！

Answer 2

其实你的程序没有错误呀，请检查你的机器软件配置或者直接运行exe文件