如何下载服务器上的一个文件夹里的所有文件?谢谢!!最好给个程序。
解决方案 »
- DevExpress VCL54数据导出EXCEL
- 为什么第一次插入记录成功,第二次插入记录就出错?
- 我写的程序在进行Socket通信的时候有时会出现SocketError 10053 错误,大家谁知道是什么原因呐,怎么解决?
- 填加mshtml组件生成的MSHTML_TLB.pas有11.7M那么大,delphi2005打不开也编译不了
- 单元的循环引用
- 双网卡WIN2K如何在程序中禁用某一网络连接(象在网络连接属性中手工操作那样0
- 新手,请高手指教
- 关于数据库连接的问题
- 1、比如有变量i,j,一个edit,内容为'j*2+3',如何实现i:=j*2+3?就是让i执行edit.text中的赋值? 2、比如有变量i,j,一个edit,内容
- 简单问题:在DELPHI中如何创建ACTIVEX对象?
- 问一个关于用ADO连接SQL SEVRE 2000的问题
- 在fastport中要进行添加、保存,按钮要放到哪里
我有段代码,不过有下面的问题,你看看能否调通(错误:nmftp1.FTPDirectoryList.name.Count恒为0),我这方面懂的不多,兄弟多帮助。
我另外开个帖子,100分激情相赠解决者(有新的方法也行,最好给个例子)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
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);
ex_download(remote_dir+ss+'\',local_dir);
end;
end;
result:=true;
end
except
On E:Exception do begin
result:=false;
end;
end;
end;
可以用winexec调用其他控制台命令,有时候很省事的