可以下载整个目录的简单实现_Deiphi网络编程_Deiphi_编程开发

可以下载整个目录的简单实现

日期：2008-10-20 22:09:23　　　　来源：

　·用Delphi实现文件下载的方法　·用DELPHI通过写注册表来实现建立IIS的虚拟目录！
　·美女照片暖色调简单做 Photoshop教程　·实现QQ窗体的缩入伸出功能

可以下载整个目录的简单实现。
　　分　　类：网络
语　　种：简体中文
编辑器：DELPHI6
平　　台：Win9x,Win2k/XP/NT,Win2003
作品源代码： -
软件或演示： -
代码大小： -
软件大小： -

这个代码绝对原创，网上找的代码不是文件下不全，就是用不了。
代码可能还是有问题。请大家指正。谢谢。

function IsFileInUse(fName : string ):boolean; //检测文件是否正在使用
var
HFileRes : HFILE;
begin
Result := false;
if not FileExists(fName) then
exit;
HFileRes := CreateFile(pchar(fName), GENERIC_READ or GENERIC_WR99vE,0, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL, 0);
Result := (HFileRes = INVALID_HANDLE_VALUE);
if not Result then
CloseHandle(HFileRes);
end;

procedure TDownForm.DownLoadDir(LocalPath,ServerPath:string);
var
i,count1:integer;
att:TIdDirItemType;
FileList : TStrings;
Name{, Line}: String;
ss:string;
begin
try begin
FileList := TStringList.Create;
ChageDir(serverpath);
Application.ProcessMessages;
if AnsiLastChar(serverpath) <> '/' then
serverpath := serverpath + '/';
if AnsiLastChar(localpath) <> '\' then
localpath := localpath + '\';
if not DirectoryExists(localpath+serverpath) then ForceDirectories(localpath+serverpath);
IdFTP1.List(FileList);
Application.ProcessMessages;
count1:=IdFTP1.DirectoryListing.Count;
for i:=0 to count1-1 do begin
ss:=IdFTP1.DirectoryListing.Items[i].FileName;
att:=IdFTP1.DirectoryListing.Items[i].ItemType;
if (att<>ditDirectory) then begin
if not DirectoryExists(localpath+serverpath) then ForceDirectories(localpath+serverpath);
BytesToTransfer := IdFTP1.Size(ss);
if IsFileInUse(ss)=False then
IdFTP1.Get(ss,localpath+serverpath+ss,true)
else Exit;
Application.ProcessMessages;
lbl1.Caption:='已下载:'+ss;
lbl1.Update;
end
end;
for i:=0 to count1-1 do begin
ss:=IdFTP1.DirectoryListing.Items[i].FileName;
att:=IdFTP1.DirectoryListing.Items[i].ItemType;
BytesToTransfer := IdFTP1.Size(ss);
if (att=ditDirectory) and (ss <> '.') AND (ss <> '..') then begin
Name := ss;
if not DirectoryExists(localpath+serverpath+Name) then ForceDirectories(localpath+serverpath+Name);
DownLoadDir(localpath+serverpath,Name);
Application.ProcessMessages
end;
end;
ChageDir('..');//这句是返回前一个目录，写的另一个函数，可以用IdFTP1.ChangeDir替换
Filelist.Free;
end
except
end;
end; 　[1]

--->腾讯QQ2007 Beta 飘云版 V3.93┊附带飘云外挂 V0.7 Beta下载┊纯净绿色特别版
--->QQ聊天记录偷看器 1.2┊操作简单支持所有QQ、TM版本┊简体中文绿色特别版
--->迅雷国际版 Gigaget V5.5.1.241┊附带左右键选择下载功能┊绿色下载站免安装特别版
--->Internet Download Manager V5.09 Build3┊提升下载速度┊完美汉化绿色特别版
--->A1 Website Downloa V1.07┊一款网站下载工具┊绿色特别版
Tags:　下载目录简单实现 {$enumber$}

可以下载整个目录的简单实现

从百度MP3下载音乐

用photoshop圆你的汽车梦(目录)

Photoshop打造简单火焰特效敕令

在Delphi7中实现停靠功能

◎→	本类最新
远程程序运行状态的简单监控在IE上增添一个按钮在Delphi中实现ASP编程在Delphi程序中应用IE浏览器控件在DELPHI程序中拨号上网用Delphi编写ASP的ActiveX服务器用Delphi编写CGI程序返回图象

◎→相关资源
C语言入门视频教程 C#编程WinForm入门视频 Asp.net入门视频教程下载 VC++编程视频教程下载 VB窗体文章 HTML入门教程 Deiphi实例教程 Deiphi窗体文章 Deiphi数据库编程 Deiphi网络编程 Deiphi图形图象文章 Deiphi系统文件

◎→	热门资源
屏蔽“任务管理器” Delphi开发旅游景点微机售票系统 Delphi开发旅游景点微机售票系统 Delphi编写后台监控软件实战Delphi数据网格色彩特效为什么创建VCL for .NET？ -- De 为什么创建VCL for .NET？ -- De