摘要载入中…    请稍等…












内容载入中…    请稍等…

如长时间看不到内容,请关闭浏览器,重新打开此页!

芯友首页 应用软件 编程开发 网络硬件 资源下载 动漫音乐 精美图库 芯友论坛 视频教程 电脑技术QQ群:72845454
 ★★photoshop学友-史上最强播放器★★
 位置:编程开发>Deiphi>Deiphi网络编程
◎→ 本类最新
远程程序运行状态的简单监控
在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

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


日期: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]

从百度MP3下载音乐

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

Photoshop打造简单火焰特效敕令

在Delphi7中实现停靠功能

--->腾讯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$}
芯友网版权所有 1999-2006 | 著作权与商标声明 | 法律声明 | 服务条款 | 隐私声明 | 联系我们