如何用idftp遍历整个目录----下载、删除

如何用idftp遍历整个目录----下载、删除_delphi教程

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,IdFTPList,
IdTCPClient, IdFTP ;

type
TForm1 = class(TForm)
    Btt_DownLoadDir: TButton;
    IdFTP1: TIdFTP;
    Btt_DeleteDir: TButton;
    Label1: TLabel;
    lb_num: TLabel; //处理文件个数提示。
    procedure Btt_DownLoadDirClick(Sender: TObject);
    procedure Btt_DeleteDirClick(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

首先 ChangeDir(Root) 到根目录

然后创建本地目录 + RemoteDir

然后用 list 得到所有目录名

循环判断,进入 RemoteDir 目录内部

如果是目录继续第归。否则 get 该文件到本地目录，当 get 完所有文件后返回上一级目录

用List再取得信息，继续循环

}

procedure FTP_DownloadDir(var idFTP : TIdFtp;RemoteDir,LocalDir : string);

label Files ;

var

i,DirCount : integer;

begin

if not DirectoryExists(LocalDir + RemoteDir) then

ForceDirectories(LocalDir + RemoteDir);

idFTP.ChangeDir(RemoteDir);

idFTP.List(nil);

DirCount := idFTP.DirectoryListing.Count ;

if DirCount = 0 then

begin

idFTP.ChangeDirUp;

idFTP.List(nil);

end;

for i := 0 to DirCount - 1 do

begin

if DirCount <> idFTP.DirectoryListing.Count then

begin

repeat

idFTP.ChangeDirUp;

idFTP.List(nil);

until DirCount = idFTP.DirectoryListing.Count ;

end;

if idFTP.DirectoryListing[i].ItemType = ditDirectory then

FTP_DownloadDir(idFTP,idFTP.DirectoryListing[i].FileName,LocalDir + RemoteDir + \)

else begin

idFTP.Get(idFTP.DirectoryListing[i].FileName,LocalDir + RemoteDir + \ +

idFTP.DirectoryListing[i].FileName,true);

Form1.lb_num.Caption := IntToStr(StrToInt(Form1.lb_num.Caption) + 1);

Form1.lb_num.Update;

if i = DirCount - 1 then

begin

idFTP.ChangeDirUp;

idFTP.List(nil);

end;

{删除整个ftp目录，包括下面的文件,

RootDir = 要删除的根目录，一般情况下 RemoteDir 与 RootDir 相等}

procedure FTP_DeleteAllFiles(var idFTP : TIdFtp;RemoteDir,RootDir : string);

label Files;

var

i,DirCount : integer;

Temp : string;

begin

idFTP.ChangeDir(RemoteDir);

if Pos(RootDir,idFTP.RetrieveCurrentDir) = 0 then Exit;

Files :

idFTP.List(nil);

DirCount := idFTP.DirectoryListing.Count ;

while DirCount = 0 do

begin

Temp := idFTP.RetrieveCurrentDir;

idFTP.ChangeDirUp;

idFTP.RemoveDir(Temp);

idFTP.List(nil);

DirCount := idFTP.DirectoryListing.Count ;

for i := 0 to DirCount - 1 do

if idFTP.DirectoryListing[i].FileName = RootDir then Exit;

end;

for i := 0 to DirCount - 1 do

begin

if Pos(RootDir,idFTP.RetrieveCurrentDir) = 0 then Break ;

if idFTP.DirectoryListing[i].ItemType = ditDirectory then

begin

FTP_DeleteAllFiles(idFTP,idFTP.DirectoryListing[i].FileName,RootDir);

end else begin

idFTP.Delete(idFTP.DirectoryListing[i].FileName);

Form1.lb_num.Caption := IntToStr(StrToInt(Form1.lb_num.Caption) + 1);

Form1.lb_num.Update;

goto Files ;

end;

procedure TForm1.Btt_DownLoadDirClick(Sender: TObject);

begin

IdFTP1.Connect(true,-1);

if IdFTP1.Connected then

begin

IdFTP1.ChangeDir(bigimage);

FTP_DownloadDir(IdFTP1,1002.1002.1002,g:\ftpdir\);

end;

IdFTP1.Disconnect ;

end;

procedure TForm1.Btt_DeleteDirClick(Sender: TObject);

begin

IdFTP1.Connect(true,-1);

if IdFTP1.Connected then

begin

IdFTP1.ChangeDir(bigimage);

FTP_DeleteAllFiles(IdFTP1,1002.1002.1002,1002.1002.1002);

end;

IdFTP1.Disconnect ;

end;

end.

如何用idftp遍历整个目录----下载、删除_delphi教程相关推荐

Delphi 用IdFtp控件实现ftp的全目录下载
首先是在本机上建立一个FTP服务器,方法参考[百度经验-Windows7上开启ftp服务器功能]http://jingyan.baidu.com/article/f54ae2fc3521d51e92b ...
c++ 遍历多级目录
参考:https://blog.csdn.net/sazass/article/details/100163264 TraverseDirectory可以遍历多级目录 getFiles不能遍历多级目录 ...
wget指定目录下载以及其它的使用方式
wget指定目录下载以及其它的使用方式转自 http://java-er.com/blog/wget-useage-x/ 有时候我们需要wget一个文件下载到指定的目录下,或者重命名成指定的名字 w ...
目录遍历漏洞:入侵检测php程序中的目录遍历漏洞,目录浏览(目录遍历)漏洞
目录浏览(目录遍历)漏洞来源:信管网 2019年08月26日 [所有评论] 目录浏览漏洞属于目录遍历漏洞的一种目录浏览(目录遍历)漏洞目录浏览漏洞是由于网站存在配置缺陷,导致网站目录可以被任意浏 ...
c# 遍历文件夹深度_C#.NET中遍历指定目录下的文件（及所有子目录及子目录里更深层目录里的文件）...
//遍历一个目录下所有的文件列表,代码实例 DirectoryInfo dir = new DirectoryInfo(folderName); var list = GetAll(dir); /// ...
ACCESS数据库的压缩,备份,还原,下载,删除的实现
以文本方式查看主题 - 企胜MIS开发论坛|ASP.NET|UML| CSS|Access|My SQL|网络营销|JAVA|J2EE|Ajax (http://www.fleake.com/in ...
路径遍历（目录遍历）
一.简介路径遍历攻击也称为目录遍历,旨在,访问存储在web根文件夹之外的文件和目录.通过操纵带有"点-斜线(-)"序列及其变化的文件或使用绝对路径来引用文件的变量,来访问存储在文 ...
bpcs uploader.php,linux 百度云bpcs_uploader上传下载删除等操作
百度云bpcs_uploader ------------------------------------------------------------------ 上传文件到百度云命令: 在bpc ...
【工具类】遍历扫描目录下全部文件并列出
package test20140715;import java.io.File;import org.junit.Test; /*** 遍历扫描目录下全部文件并列出* @author fushihu ...
linux命令行下的ftp 多文件下载和目录下载
目标ftp服务器是一个非标准端口的ftp 1.通过shell登录#ftp //shell下输入ftp命令,进入到ftp提示符>open IP PORT //IP ,PORT对应为服务 ...

如何用idftp遍历整个目录----下载、删除_delphi教程

如何用idftp遍历整个目录----下载、删除_delphi教程相关推荐

最新文章

热门文章