1000分!!!急求能下载整个ftp目录的源码和控件(300分)

  • 主题发起人 主题发起人 WWWrainbow
  • 开始时间 开始时间
W

WWWrainbow

Unregistered / Unconfirmed
GUEST, unregistred user!
不要用nmftp,要求比较稳定,能监控整个下载过程
最好有多线程

现在本问题只能设300分,完了再送700分!
 
转贴
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;

—————————————————————————————————
 
这个用的是nmftp,有没有用ics的?最好能稳定一点。
 
后退
顶部