其实Delphi的demos下就有例子,很详细的,可参考一下。
解决方案 »
- Combobox的问题
- 将datagridview的数据转换成datata
- 谁知道怎么用DirectShow获取视频服务器的流文件,小弟求助:)?
- 生成标准dll???SOS--SOS--SOS--SOS--SOS--SOS--在线等待
- 我的印象中Delphi 7 的界面是xp 界面,可是我安装后仍然是像Delphi 6的界面,是不是必须装到XP上才是XP样子,或者在Win 2000上还有其它的
- 发现了一个界面非常漂亮而且非常实用的客户关系管理软件
- 这个错误怎么解决,大大们进来看看
- 布尔型如何转换成字符型?
- 我是delphi初学者,帮我看看这段程序对不对?提意见者就有分!!!
- 如何用DELPHI的SQL语句完成大容量的备注型字段的模糊查询
- 我的DELPHI怎么老是不能编译????
- 请问怎样编写一个用户只能在文本框中输入数字或小数点的函数????
我先changedir,然后在list,list的结果就是change后那个目录下的文件。
使用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;