使用ftp控件下载一个目录（附一则笑话）

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[i];
att:=nmftp1.FTPDirectoryList.Attribute.Strings[i];
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;

————————————————————————————————————————————————————————————
老大晕倒了

一天，上班时间，我在电脑前“工作”，这时，老大过来了。
老大：小刘啊，上班时间不要看flash动画。
小刘：我很少看。
老大：很少看？你看你机器目录名为”阿贵“的目录，肯定都有三`四十兆了。
小刘：老大，冤枉啊，哪有那么多……
老大：没有30兆，至少也该有20兆吧。
小刘：老大你过来看……文件夹……”阿贵“……属性……，只有……142兆！！！……啊，老大，你怎么了，快醒醒啊……
————————————————————————————————————————————————————————————

更多的原创技巧文档和关于程序员的幽默，请访问我个人主页http://aton.126.com

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有