关于用NMFTP控件下载多个文件的问题。

Question

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;