代码如下:
var
  count, i: Integer;
begin
  ifFTP.ChangeDir('htdocs');
  //在标题栏显示当前目录,确实是:/htdocs
  Self.Caption := ifFTP.RetrieveCurrentDir;
  //清空文件列表(ListBox组件)
  lbFileList.Items.Clear;
  count := ifFTP.DirectoryListing.Count;
  for i := 0 to count - 1 do
  begin
    lbFileList.Items.Add(ifFTP.DirectoryListing.Items[i].FileName);
  end;
end;这段代码的本意是要获得FTP服务器上指定目录中的所有文件,但是,程序运行之后,获得的确依旧是根目录中的文件。在网上查了很多代码,也照做了,均无用。本人用Delphi 2010中自带的Indy组件。请高手帮我一下,谢谢!