给我介绍一个好的ftp控件，up有分(80分)

最好能带目录下载，检查下载容量什么的集成起来
普通控件一个一个的文件下，好累哦～～

up

葵花宝典上的文章：
使用ftp控件下载目录
作者：aton

delphi中的nmftp控件中Download函数只能下载一个文件，没有提供一个下载整个目录（包含子目录）的函数。

我编写了个实现目录下载功能的方法，需要用到该功能的用户可参考一下。

file://目录下载

function tftp.ex_download(remote_dir,local_dir:string):boolean;

var

i,j,count1:integer;

att,ss:string;

current_dir:string;

temp_dir:string;

begin

try begin

NMFTP1.ChangeDir(remote_dir);

current_dir:=remote_dir;

temp_dir:=copy(current_dir,2,length(current_dir));

if not DirectoryExists(local_dir) then CreateDir(local_dir);

if not directoryexists(local_dir+temp_dir) then createdir(local_dir+temp_dir);

nmftp1.ParseList:=true;

NMftp1.list;

count1:=nmftp1.FTPDirectoryList.name.Count;

for i:=0 to count1-1 do begin

file://必须

NMFTP1.ChangeDir(current_dir);

nmftp1.list;

ss:=nmftp1.FTPDirectoryList.name.Strings;

att:=nmftp1.FTPDirectoryList.Attribute.Strings;

if (copy(pchar(att),1,1)<>'d')and(copy(pchar(att),1,1)<>'D') then begin

if not DirectoryExists(local_dir) then CreateDir(local_dir);

NMFTP1.Download(current_dir+ss,local_dir+temp_dir+ss);

end

else begin

if not directoryexists(local_dir+temp_dir+ss) then createdir(local_dir+temp_dir+ss);

file://递归调用

ex_download(remote_dir+ss+'/',local_dir);

end;

end;

result:=true;

end

except

On E:Exception do begin

result:=false;

end;

end;

end;

这个看过不过不是特别灵，有没有更好的？：）

indy的控件改装一下倒是非常不错的哦：）

我来介绍一款吧，ICS控件包里有两个FTP控件，一个FTPSERVER，一个是FTPCLIENT，我刚
用过，好使。在哪下的我忘了，如果要可以发给你。INDY和FASTNET的都有BUG，可把我害苦了。

多人接受答案了。