delphi如何读取ftp上的目录？

Question

delphi 如何连接到ftp上 并以数形结构显示ftp目录上的所有文件？ 代码如何写啊~~~

Answer 1

Delphi中不是有控件吗？
让控件帮助连接。。

Answer 2

用indy的idftp控件
具体的网上搜一下,很多的.

Answer 3

  ftp_clinet := TIdFTP.Create(nil);
    ftp_clinet.Host := '127.0.0.1';
    ftp_clinet.UserName := 'anonymous';
    ftp_clinet.Password := '[email protected]';    try
        if not ftp_clinet.Connected then
          ftp_clinet.Connect ;        if not ftp_clinet.Connected then
        begin
          ShowMessage('连接FTP服务器失败');
          Exit;
        end;
   下面就是连接上ftp后 我应该怎么写啊

Answer 4

汗,FTP后,应该还是用FTP端口来端那边的数据.如目录,文件等.

Answer 5

D:\Program Files\Borland\Delphi6\Demos\Indy\FTPDemo 这里面有Demo，很详细了，根据你的安装情况改一下路径

Answer 6

with IdFTP1.DirectoryListing do   //目录列表
  begin
    for i:=0 to Count-1 do
    begin
      if AbortTransfer then  //中止传输
        Break;
      if Items[i].ItemType = ditFile then //如果是文件
      begin
        if configIsOk then
        begin
          Name := Items[i].FileName;
          if Name<> 'list.ini' then  //无需下载
          begin
            transFileName := Name;
            Inc(k);
            Memo1.Lines.Add(IntToStr(k) + '=' + Name); // 指定格式记录，用于保存进update.ini作为更新日志
            BytesToTransfer := IdFTP1.Size(Name);
            //IdFTP1.Get(Name,'E:\MySoftTest\MyUpdateTest\down\'+Name,False,True); //断点续传
            ShowState(transFileName,'下载中');
            try
              IdFTP1.Get(Name ,ExtractFilePath(ParamStr(0)) + Name ,True); //重新下载
            except
              MessageBox(handle, 'FTP网络连接异常中断，请尝试重新更新！', '提示信息', MB_OK or MB_ICONINFORMATION );
              configIsOk :=False;
              IdFTP1.Quit;
              IdFTP1.Disconnect;
            end;
            ShowState(transFileName,'√');
          end;
        end;
      end;
    end;
  end;

Answer 7

上面是我写的ftpupdate的部分代码，你可以根绝这个自己修改中间的部分把文件和文件夹都分别代码增加到目录树中即可。

Answer 8

不是已经注释了么？
其中IdFTP1是TIdFTP组件，indy里面的。

Answer 9

有时看看DELPHI的例子和帮助，自己动手试试就知道了。