如何用idFTP遍历整个目录

时间:2010-01-29 08:56:06  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:br />  结果令我非常失望,不是无法运行就是达不到我的预期效果。其实论坛上也有人问过这样的问题,可一直也没有满意的结果。哎!还得靠自己呀!小日本可没有那么听话,不知道大家听没听说钓鱼岛,去没去参加游行。下面的程序是用delphi7.0 + idFTP 实现的。可能还会有bug,不过希望能给需要他的人带来一点点帮助和提示!,程序中只有下载与删除的代码,至于上传的c...
  正文:这两天做一个项目,其中需要用ftp下载服务器上的整个目录,并且下载完成后,删除整个目录。由于ftp不能穿透子目录,只能在当前目录下操作,所以用一般的方法根本无法达到预期效果。可能我想偷懒吧!于是想从网上搜搜,看有没有现成的东东拿来使用 :)

  结果令我非常失望,不是无法运行就是达不到我的预期效果。其实论坛上也有人问过这样的问题,可一直也没有满意的结果。哎!还得靠自己呀!小日本可没有那么听话,不知道大家听没听说钓鱼岛,去没去参加游行。

下面的程序是用Delphi7.0 + idFTP 实现的。可能还会有bug,不过希望能给需要他的人带来一点点帮助和提示!,程序中只有下载与删除的代码,至于上传的code自己写吧,稍微思考一下就可以实现。


unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,IdFTPList,
IdTCPClient, IdFTP ;

type

TForm1 = class(TForm)
Btt_DownLoadDir: TButton;
IdFTP1: TIdFTP;
Btt_DeleteDir: TButton;
Label1: TLabel;
lb_num: TLabel; //处理文件个数提示。
procedure Btt_DownLoadDirClick(Sender: TObject);
procedure Btt_DeleteDirClick(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var

Form1: TForm1;

implementation


{$R *.dfm}



{ 下载整个目录,并遍历所有子目录

首先 ChangeDir(Root) 到根目录

然后创建本地目录 + RemoteDir

然后用 list 得到所有目录名

循环判断,进入 RemoteDir 目录内部

如果是目录继续第归。否则 get 该文件到本地目录,当 get 完所有文件后返回上一级目录

用List再取得信息,继续循环

}



procedure FTP_DownloadDir(var idFTP : TIdFtp;RemoteDir,LocalDir : string);
label Files ;
var
i,DirCount : integer;
begin
  if not DirectoryExists(LocalDir + RemoteDir) then
  ForceDirectories(LocalDir + RemoteDir);
  idFTP.ChangeDir(RemoteDir);
  idFTP.List(nil);
  DirCount := idFTP.DirectoryListing.Count ;
  if DirCount = 0 then
  begin
    idFTP.ChangeDirUp;
    idFTP.List(nil);
  end;
  
  for i := 0 to DirCount - 1 do
  begin
    if DirCount <> idFTP.DirectoryListing.Count then
    begin
      repeat
      idFTP.ChangeDirUp;
      idFTP.List(nil);
      until DirCount = idFTP.DirectoryListing.Count ;
    end;
    
    if idFTP.DirectoryListing[i].ItemType = ditDirectory then
    FTP_DownloadDir(idFTP,idFTP.DirectoryListing[i].FileName,LocalDir + RemoteDir + '')
    else begin
      idFTP.Get(idFTP.DirectoryListing[i].FileName,LocalDir + RemoteDir + '' +
      idFTP.DirectoryListing[i].FileName,true);
      Form1.lb_num.Caption := IntToStr(StrToInt(Form1.lb_num.Caption) + 1);
      Form1.lb_num.Update;
      if i = DirCount - 1 then
      begin
        idFTP.ChangeDirUp;
        idFTP.List(nil);
      end;
    end;
  end;
end;

"如何用idFTP遍历整个目录"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12576.html


关键字:

关于《如何用idFTP遍历整个目录》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td