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

Dangyuhang 2004-12-15 05:19:35
我是这样写的:
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;
为什么的不到正确的值呢?
...全文
268 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
Dangyuhang 2004-12-17
  • 打赏
  • 举报
回复
多谢!最终代码如下:
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;
goodyxy 2004-12-16
  • 打赏
  • 举报
回复
下面的程序是用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
pengxuan 2004-12-16
  • 打赏
  • 举报
回复
用递归取得
「已注销」 2004-12-15
  • 打赏
  • 举报
回复
这样子看看:
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;
「已注销」 2004-12-15
  • 打赏
  • 举报
回复
result.AddStrings(FTPListAllFiles(ftp,ftp.DirectoryListing.Items[i].FileName));把当前目录改变了,完成后没改回来,估计是这样
Dangyuhang 2004-12-15
  • 打赏
  • 举报
回复
自己顶一下

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧