急求IndyFTP获得指定目录下面所有文件的方法!!!

[Dangyuhang]

我是这样写的:
function Tfrm_SynFTPFiles.FTPListAllFiles(ftp: TIdFTP;dir:string): TStringList;
var
i,Count : integer;
fl : TStringList;
test : string;
begin
result := TStringList.Create;
fl := TStringList.Create;

ftp.ChangeDir(dir);

ftp.List(nil);

Count := ftp.DirectoryListing.Count;
for i := 0 to Count - 1 do
begin
if (ftp.DirectoryListing.Items[i].FileName <> '.') and (ftp.DirectoryListing.Items[i].FileName <> '..') then
begin
if ftp.DirectoryListing.Items[i].ItemType = ditDirectory then
begin
result.AddStrings(FTPListAllFiles(ftp,ftp.DirectoryListing.Items[i].FileName));
end;
if ftp.DirectoryListing.Items[i].ItemType = ditFile then
result.Add(ftp.RetrieveCurrentDir + '/' + ftp.DirectoryListing.Items[i].FileName);
end;
end;
end;
为什么的不到正确的值呢?

[Dangyuhang]

自己顶一下

[「已注销」]

result.AddStrings(FTPListAllFiles(ftp,ftp.DirectoryListing.Items[i].FileName));把当前目录改变了,完成后没改回来,估计是这样

[「已注销」]

这样子看看:
function FTPListAllFiles(dir:string): TStringList;
var
ftp: TIdFTP;
i,Count : integer;
fl : TStringList;
test : string;
begin
result := TStringList.Create;
fl := TStringList.Create;
ftp := tidftp.Create(nil);
ftp.ChangeDir(dir);

ftp.List(nil);

Count := ftp.DirectoryListing.Count;
for i := 0 to Count - 1 do
begin
if (ftp.DirectoryListing.Items[i].FileName <> '.') and (ftp.DirectoryListing.Items[i].FileName <> '..') then
begin
if ftp.DirectoryListing.Items[i].ItemType = ditDirectory then
begin
result.AddStrings(FTPListAllFiles(ftp.DirectoryListing.Items[i].FileName));
end;
if ftp.DirectoryListing.Items[i].ItemType = ditFile then
result.Add(ftp.RetrieveCurrentDir + '/' + ftp.DirectoryListing.Items[i].FileName);
end;
end;
ftp.Free;
end;

[pengxuan]

用递归取得

[goodyxy]

下面的程序是用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;



{删除整个ftp目录，包括下面的文件,

RootDir = 要删除的根目录，一般情况下 RemoteDir 与 RootDir 相等}

procedure FTP_DeleteAllFiles(var idFTP : TIdFtp;RemoteDir,RootDir : string);

label Files;

var

i,DirCount : integer;

Temp : string;

begin

idFTP.ChangeDir(RemoteDir);

if Pos(RootDir,idFTP.RetrieveCurrentDir) = 0 then Exit;

Files :

idFTP.List(nil);

DirCount := idFTP.DirectoryListing.Count ;

while DirCount = 0 do

begin

Temp := idFTP.RetrieveCurrentDir;

idFTP.ChangeDirUp;

idFTP.RemoveDir(Temp);

idFTP.List(nil);

DirCount := idFTP.DirectoryListing.Count ;

for i := 0 to DirCount - 1 do

if idFTP.DirectoryListing[i].FileName = RootDir then Exit;

end;

for i := 0 to DirCount - 1 do

begin

if Pos(RootDir,idFTP.RetrieveCurrentDir) = 0 then Break ;

if idFTP.DirectoryListing[i].ItemType = ditDirectory then

begin

FTP_DeleteAllFiles(idFTP,idFTP.DirectoryListing[i].FileName,RootDir);

end else begin

idFTP.Delete(idFTP.DirectoryListing[i].FileName);

Form1.lb_num.Caption := IntToStr(StrToInt(Form1.lb_num.Caption) + 1);

Form1.lb_num.Update;

goto Files ;

end;

end;

end;



procedure TForm1.Btt_DownLoadDirClick(Sender: TObject);

begin

IdFTP1.Connect(true,-1);

if IdFTP1.Connected then

begin

IdFTP1.ChangeDir('bigimage');

FTP_DownloadDir(IdFTP1,'1002.1002.1002','g:\ftpdir\');

end;

IdFTP1.Disconnect ;

end;



procedure TForm1.Btt_DeleteDirClick(Sender: TObject);

begin

IdFTP1.Connect(true,-1);

if IdFTP1.Connected then

begin

IdFTP1.ChangeDir('bigimage');
FTP_DeleteAllFiles(IdFTP1,'1002.1002.1002','1002.1002.1002');
end;
IdFTP1.Disconnect ;
end;

end.


运行环境 win2000 advanced server + delphi7.0 + iis6.0

[Dangyuhang]

多谢!最终代码如下:
function Tfrm_SynFTPFiles.FTPListAllFiles(ftp: TIdFTP;dir:string): TStringList;
var
i,Count : integer;
fl : TStringList;
test : string;
begin
result := TStringList.Create;
fl := TStringList.Create;

ftp.ChangeDir(dir);

ftp.List(nil);

Count := ftp.DirectoryListing.Count;
for i := 0 to Count - 1 do
begin
if (ftp.DirectoryListing.Items[i].FileName <> '.') and (ftp.DirectoryListing.Items[i].FileName <> '..') then
begin
if ftp.DirectoryListing.Items[i].ItemType = ditFile then
begin
result.Add(ftp.RetrieveCurrentDir + '/' + ftp.DirectoryListing.Items[i].FileName);
end
else
begin
result.AddStrings(FTPListAllFiles(ftp,ftp.DirectoryListing.Items[i].FileName));
end;
end;
if i = Count - 1 then
begin
ftp.ChangeDirUp;
ftp.List(nil);
end;
end;
end;