list index out of bounds(1)

[Dision LI]

越界了,可是想不出什么原因
做个FTP的连接,代码如下

procedure TForm1.FTPConClick(Sender: TObject);
begin
  ftpcon.Enabled:=false;
  with IdFTP1 do
  begin
    Try
      Host:=Trim(Edit1.Text);
      UserName:=Trim(Edit2.Text);
      Password:=Trim(Edit3.Text);
      Connect;
      DirectoryListBox.Items.Clear;
      DebugListBox.Items.Clear;
    Finally
      if Connected then
      begin
        DisplayDir(trim(CURDIR.Text)); // 改变当前路径
        FTPCon.Enabled:=false;     // 连接按钮
        FTPDisCon.Enabled:=True; // 断开按钮
      end;
    end;
  end;
end;

在红色那出现错误..第一次弄FTP,请大虾们指点下

[Dision LI]

红色字显示不出....
在Connect;那出错了

[yuehaiyang]

这一段代码应该没有问题。
可能是IdFTP1的某个属性设置有问题吧

[kugoo_2006]

看看 这个DirectoryListBox 的属性

[Dision LI]

DirectoryListBox的属性我什么都没设置的也挨

[Dision LI]

顶起!

[阿三]

我试了，连我的服务器是没有问题的，你看看你的FTP服务器的设置吧
with IdFTP1 do
begin
Try
Host:=Trim(Edit1.Text);
UserName:=Trim(Edit2.Text);
Password:=Trim(Edit3.Text);
Connect;
//rectoryListBox.Items.Clear;
//bugListBox.Items.Clear;
showmessage('ok');
except
showmessage('error');
end;
end;

[Dision LI]

= =!
要不是list index out of bounds(1) ,要不就连接超时,
可是我的服务器地址在浏览器那输入也可以访问,程序里就不得了

[xjjrocker]

会不会是匿名访问的问题，你的Edit在连接请求的时候都有初始值么。

[Dision LI]

断点找出错误了,散分..

[阿三]

是哪的错，分享一下呀，楼主