IdFTP控件,这函数怎么调用???看不懂RootDir = 要删除的根目录,一般情况下 RemoteDir 与 RootDir 相等}
procedure TForm1.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);
goto Files ;
end;
end;
end;
procedure TForm1.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);
goto Files ;
end;
end;
end;
解决方案 »
- 大家好,我现在遇到很困惑的问题,打开Delphi软件,编译程序时,会出现
- TREEVIEW读取数据库数据分层问题
- 各位高手请问如何将THandle 类型 转换为TForm类型?
- 我的一个表上有触发器,插入值时会自动插入一个增长的值,可是我怎么插入值才能使DELPHI不报异常呢?
- 一个类型匹配的问题,edit1.text=3.4+5.6;
- 在报表中只显示主表中的一条记录的信息和相关的从表信息。紧急阿,兄弟们救救我阿 !
- 一个键值问题,很急的呀!
- 论坛是不是有点问题?我登陆后一会又要我重登陆?
- 请教delphi中有关sql语句的问题
- !!!哪儿有关于win2000注册表教程下载?
- 这一句VC请人帮忙翻译成delphi的...
- 请教如何编写多线程下的tcp服务器接收?
delphi idftp几个简单函数
1 连接远程服务器
procedure Connect(AAutoLogin: boolean; const ATimeout: Integer);
2 改变目录
procedure ChangeDir(const ADirName: string);
3 下载
procedure Get(const ASourceFile: string; ADest: TStream; AResume: Boolean); overload;
procedure Get(const ASourceFile: string; const ADestFile: string; const ACanOverwrite: boolean; AResume: Boolean); overload;
4 上传
procedure Put(const ASource: TStream; const ADestFile: string; const AAppend: boolean); overload;
procedure Put(const ASourceFile: string; const ADestFile: string; const AAppend: boolean); overload;
5 删除
procedure Delete(const AFilename: string);
判断是否连接
if IdFTP1.Connected then
begin
...........
end; 引用别人一下,做为自己以后笔记 现在很多应用都需要上传与下载大型文件,通过HTTP方式上传大文件有一定的局限性。幸好FTP作为一个非常老而且非常成熟的协议可以高效稳定地完成大文件的上传下载,并且可以完美地实现续传。就拿我写的电影服务器管理端程序来说,各种方案比较后,发现使用FTP可以完美地实现要求。但是要通过WinSocket库实现FTP比较麻烦,幸好有Indy--一个包装了大多数网络协议的组件包。
通过Indy,程序设计人员可以通过阻塞方式进行编程,可以抛开蹩脚的Winsocket异步模式,采用与Unix系统上等同的阻塞编程模式进行。这样,程序员就可以很好的处理程序的运行流程。
下面,我们进入到Indy的TIdFtp世界。 1.控件的说明 使用Indy 9中的TIdFtp控件可以实现通过FTP方式进行文件的上传与下载。 2.控件的具体使用 (1)控件属性设置 默认属性即可,与服务器连接直接相关的属性如主机名与用户等在建立连接时进行设定。需要设定的是RecvBufferSize和SendBufferSize两属性的值。另外需要根据要传输的文件类型指定TransferType属性,而其他属性按默认值设定即可。 RecvBufferSize说明(默认值为8192字节):该属性为整型变量,用于指定连接所用的接受缓冲区大小。 SendBufferSize说明(默认值为32768字节):该属性也为整型变量,用于指定连接所用的发送缓冲区的最大值。该属性在WriteStream方法中时,可用于TStream指定要发送内容的块数。如果要发送的内容大于本属性值,则发送内容被分为多个块发送。 TransferType说明(默认值为ftBinary):该属性为TIdFTPTransferType型变量。用于指定传输内容是二进制文件(ftBinary )还是ASCII文件(ftASCII)。应用程序需要使用二进制方式传输可执行文件、压缩文件和多媒体文件等;而使用ASCII方式传输文本或超文本等文本型数据。 (2)控件的事件响应 OnDisconnected响应:TNotifyEvent类,用于响应断开(disconnect)事件。当Disconnect方法被调用用来关闭Socket的时候,触发该响应。应用程序必须指定该事件响应的过程,以便对该断开事件进行相应。 OnStatus响应:TIdStatusEvent类。该响应在当前连接的状态变化时被触发。该事件可由DoStatus方法触发并提供给事件控制器属性。axStatus是当前连接的TIdStatus值;aaArgs是一个可选的参数用于格式化函数,它将用于构造表现当前连接状态的文本消息。 OnWork响应:OnWord是TWorkEvent类事件的响应控制器。OnWork用于关联DoWork方法当缓冲区读写操作被调用时通知Indy组件和类。它一般被用于控制进度条和视窗元素的更新。AWorkMode表示当前操作的模式,其中:wmRead-组件正在读取数据;wmWrite-组件正在发送数据。AWorkCount指示当前操作的字节计数。 OnWorkBegin响应:TWorkBeginEvent类。当缓冲区读写操作初始化时,该事件关联BeginWork方法用于通知Indy组件和类。它一般被用于控制进度条和视窗元素的更新。AWorkMode表示当前操作的模式,其中:wmRead-组件正在读取数据;wmWrite-组件正在发送数据。AWorkCountMax用于指示发送到OnWorkBegin事件的操作的最大字节数,0值代表未知。 OnWorkEnd响应:TWorkEndEvent类。当缓冲区读写操作终止时,该事件关联EndWork方法用于通知Indy组件和类。AWorkMode表示当前操作的模式,其中:wmRead-组件正在读取数据;wmWrite-组件正在发送数据。AWorkCount表示操作的字节数。 在事件响应中,主要通过上述五种事件响应来控制程序。在一般情况下,在OnDisconnected中设定连接断开的界面通知;在OnStatus中设定当前操作的状态;在OnWork中实现传输中状态条和其他参数的显示;而在OnWorkBegin和OnWorkEnd中分别设定开始传输和传输结束时的界面。 (3)连接远程服务器 完成了设定控件属性和实现了控件的事件响应后,就可以与服务器进行交互和传输了。在连接之前,应首先判断IdFtp是否处于连接状态,如果Connected为False,则通过界面控件或其他方式指定与服务器连接相关的一些TCP类属性的设置,分别是:Host(主机名):String、Username(用户名):String、Password(密码):String,也可以指定Port(端口)。之后调用Connect方法连接远程服务器,如果无异常出现则连接成功建立。 过程说明:procedure Connect(AAutoLogin: boolean; const ATimeout: Integer); 该过程连接远程FTP服务器 属性:AAutoLogin: boolean = True 连接后自动登录,该参数默认为True。 const ATimeout: Integer = IdTimeoutDefault 超时时间,单位:秒。 示例代码: if IdFTP1.Connected then try if TransferrignData then IdFTP1.Abort; IdFTP1.Quit; finally end else with IdFTP1 do try Username := UserIDEdit.Text; Password := PasswordEdit.Text; Host := FtpServerEdit.Text; Connect; ChangeDir(CurrentDirEdit.Text); finally end; (4)改变目录 连接建立后,可以改变当前FTP会话所在的目录。对于已知绝对路径的情况下,可以直接调用ChangeDir(const ADirName: string)方法来转换目录,ADirName表示服务器上的文件系统目录,另外还可以调用ChangeDirUp回到上级目录。 如果未知路径,则可以通过List(ADest: TStrings; const ASpecifier: string; const ADetails: boolean)过程获取远程服务器的当前目录结构,此时必须设定TransferType为ftASCII(ASCII模式),其中:ADest保存当前目录结构,可以在后续程序中调用该列表。另外可以通过RetrieveCurrentDir方法获取当前目录名。 过程说明: procedure ChangeDir(const ADirName: string); 改变工作目录 属性 const ADirName: string 远程服务器的目录描述 说明:该过程实际上是实现了FTP CWD命令。 procedure ChangeDirUp; 到上一级目录 function RetrieveCurrentDir: string; 该函数返回当前目录名 procedure List(ADest: TStrings; const ASpecifier: string; const ADetails: boolean); 列出当前目录所有文件和子目录及其属性 参数: ADest: TStrings 保存文件及子目录的返回结果 const ASpecifier: string = 文件掩码,用于列出符合条件的文件 const ADetails: boolean = true 包含文件和子目录属性 property DirectoryListing: TIdFTPListItems; 返回文件及目录结构的列表 示例代码: LS := TStringList.Create; try IdFTP1.ChangeDir(DirName); IdFTP1.TransferType := ftASCII; CurrentDirEdit.Text := IdFTP1.RetrieveCurrentDir; DirectoryListBox.Items.Clear; IdFTP1.List(LS); DirectoryListBox.Items.Assign(LS); if DirectoryListBox.Items.Count > 0 then if AnsiPos(total, DirectoryListBox.Items[0]) > 0 then DirectoryListBox.Items.Delete(0); finally LS.Free; end; (5)下载的实现 在下载之前,必须查看DirectoryListing.Items[sCurrFile].ItemType是否为文件,如返回为ditDirectory则代表当前文件名为目录,不能下载,必须导向到文件才可。如为文件,则可以进行下载。在下载前,设定传输的类型为二进制文件,并且指定本地要保存的路径。通过调用Get方法,实现文件的下载。下载过程较慢,可以考虑将其放到线程中实现。 过程说明: procedure Get(const ASourceFile: string; ADest: TStream; AResume: Boolean); overload; procedure Get(const ASourceFile: string; const ADestFile: string; const ACanOverwrite: boolean; AResume: Boolean); overload; 从远程服务器上获取文件。 属性说明: const ASourceFile: string 远程服务器上的源文件名 const ADestFile: string 保存到客户机上的文件名 const ACanOverwrite: boolean = false 重写同名文件 AResume: Boolean = false 是否进行断点续传 示例代码: SaveDialog1.FileName := Name; if SaveDialog1.Execute then begin SetFunctionButtons(false); IdFTP1.TransferType := ftBinary; BytesToTransfer := IdFTP1.Size(Name); if FileExists(Name) then begin case MessageDlg(File aready exists. Do you want to resume the download operation?, mtConfirmation, mbYesNoCancel, 0) of mrYes: begin BytesToTransfer := BytesToTransfer - FileSizeByName(Name); IdFTP1.Get(Name, SaveDialog1.FileName, false, true); end; mrNo: begin IdFTP1.Get(Name, SaveDialog1.FileName, true); end; mrCancel: begin exit; end; end; end else begin IdFTP1.Get(Name, SaveDialog1.FileName, false); end; (6)上传的实现 上传的实现与下载类似,通过put方法即可。 过程说明: procedure Put(const ASource: TStream; const ADestFile: string; const AAppend: boolean); overload; procedure Put(const ASourceFile: string; const ADestFile: string; const AAppend: boolean); overload; 上传文件至服务器 属性说明: const ASourceFile: string 将要被上传的文件 const ADestFile: string = 服务器上的目标文件名 const AAppend: boolean = false 是否继续上传 代码示例: if IdFTP1.Connected then begin if UploadOpenDialog1.Execute then try IdFTP1.TransferType := ftBinary; IdFTP1.Put(UploadOpenDialog1.FileName, ExtractFileName(UploadOpenDialog1.FileName)); //可以在此添加改变目录的代码; finally //完成清除工作 end; end; (7)删除的实现 删除文件使用Delete方法,该方法删除指定的文件,删除对象必须为文件。如果要删除目录则使用RemoveDir方法。 过程说明: procedure Delete(const AFilename: string); 删除文件 procedure RemoveDir(const ADirName: string); 删除文件夹,根据不同的服务器删除文件夹有不同的要求。有些服务器不允许删除非空文件夹,程序员需要添加清空目录的代码。 上述两个过程的参数均为目标名称 代码示例: if not IdFTP1.Connected then exit; Name := IdFTP1.DirectoryListing.Items[iCurrSelect].FileName; if IdFTP1.DirectoryListing.Items[iCurrSelect].ItemType = ditDirectory then try idftp1.RemoveDir(Name); finally end else try idftp1.Delete(Name); finally end; (8)后退的实现 后退在实际上是目录操作的一种,可以简单的改变当前目录为..来实现,也可以通过回到上级目录来实现。 (9)取消的实现 在IdFtp的传输过程中,可以随时使用abort方法取消当前操作。可以的OnWork事件的实现中来确定何时取消操作。 代码示例: //取消按钮的OnClick响应 procedure TMainForm.AbortButtonClick(Sender: TObject); begin AbortTransfer := true; end; //IdFTP的OnWork事件响应 procedure TMainForm.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode; const AWorkCount: Integer); begin ... if AbortTransfer then IdFTP1.Abort; AbortTransfer := false; end; (10)断点续传的实现 断点续传就是在上传或下载过程开始时,判断已经传输过的文件是否上传输完毕,如果传输没有成功完成,则在上次中断处继续进行传输工作。实现该功能需要两个重要的操作,首先是判断文件的大小信息,其次是在传输过程Get和Put中指定上传的行为。 判断服务器上文件的大小使用函数Size(FileName)。在下载过程中,比较本地文件和远程文件的信息,然后在Get中指定AResume := True即可。而上传也一样,指定Put的AAppend := True就可以了。 在前面我们讲过,Indy的网络操作大部分是阻塞模式的,TIdFtp也不例外。这样在上述各个操作运行过程的时候用户界面被暂时冻结,必须要等待调用返回才能继续用户操作界面响应。所以在实际编程中,需要使用多线程的方式来保证户界面的响应。Windows系统可以使用CreateThread系统调用来创建线程,但是在使用的时候需要开发人员做很多额外的工作来保证线程的同步等问题。而Indy中也包含了实现多线程的控件TIdThreadComponent,相对比之下该控件实现多线程时更加方便,也更容易控制。我将在后续的文章里为大家介绍TIdThreadCOmponent的使用方法。
参考答案来源于:wenwen.soso.com下载一次,就能不断自动更新,欢迎使用《Csdn收音机》!
函数是好用点了,不过整个代码还不稳定.出错时不能自动重启(这个好像难搞.控件没有忽略错误跳过并继续下面操作的功能??)unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, StdCtrls, idftplist, ComCtrls, ExtCtrls;type
Thread1 = class(TThread)
private
FidFTP : TIdFtp;
protected
procedure Execute; override;
public
constructor Create(var idFTP : TIdFtp);
end; Thread2 = class(TThread)
private
FidFTP : TIdFtp;
protected
procedure Execute; override;
public
constructor Create(var idFTP : TIdFtp);
procedure FTP_DeleteAllFiles(var idFTP: TIdFtp; RemoteDir: string);
end; TForm1 = class(TForm)
IdFTP1: TIdFTP;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
StatusBar1: TStatusBar;
Timer1: TTimer;
Memo1: TMemo;
Button3: TButton;
Edit4: TEdit;
procedure IdFTP1Connected(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure IdFTP1Disconnected(Sender: TObject);
procedure IdFTP1Status(ASender: TObject; const AStatus: TIdStatus;
const AStatusText: String);
procedure Timer1Timer(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Edit4Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function GetPrevDir(dir:string):string;
end;var
Form1: TForm1;
T1: TThread;
T2: TThread;implementation{$R *.dfm}procedure TForm1.IdFTP1Connected(Sender: TObject);
begin
Button1.Enabled := false;
Timer1.Enabled := true;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
if not IdFTP1.Connected then
begin
Timer1.Enabled := false;
IdFTP1.Tag := 0;
IdFTP1.Host := Edit1.Text;
IdFTP1.Username := Edit2.Text;
IdFTP1.Password := Edit3.Text;
IdFTP1.Port := strtoint(Edit4.Text);
T1 := Thread1.Create(IdFTP1);
end;
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
IdFTP1.Abort;
if IdFTP1.Connected then IdFTP1.Disconnect;
end;procedure TForm1.IdFTP1Disconnected(Sender: TObject);
begin
Button1.Enabled := true;
if IdFTP1.Tag = 0 then Button1.Click;
end;procedure TForm1.IdFTP1Status(ASender: TObject; const AStatus: TIdStatus;
const AStatusText: String);
begin
StatusBar1.Panels.Items[0].Text := AStatusText;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := false;
T2 := Thread2.Create(IdFTP1);
end;
{ Thread1 }constructor Thread1.Create(var idFTP: TIdFtp);
begin
FidFTP := idFTP;
FreeOnTerminate := True;
inherited Create(false);
end;procedure Thread1.Execute;
begin
try
FidFTP.Connect(true, -1);
except
end;
end;
{ Thread2 }constructor Thread2.Create(var idFTP : TIdFtp);
begin
FidFTP := idFTP;
FreeOnTerminate := True;
inherited Create(false);
end;procedure Thread2.Execute;
begin
try
FTP_DeleteAllFiles(FidFTP, '/');
except
end;
end;
{删除整个ftp目录,包括下面的文件, RemoteDir 要删除的目录}
procedure Thread2.FTP_DeleteAllFiles(var idFTP : TIdFtp; RemoteDir : string);
var
i,DirCount : integer;
Temp : string;
begin
idFTP.ChangeDir(RemoteDir);
Form1.Memo1.Lines.Add('ChangeDir:' + idFTP.RetrieveCurrentDir);
idFTP.List(nil);
DirCount := idFTP.DirectoryListing.Count;
if DirCount = 0 then
begin
try
idFTP.RemoveDir(idFTP.RetrieveCurrentDir);
Form1.Memo1.Lines.Add('Success:' + idFTP.RetrieveCurrentDir);
except
Form1.Memo1.Lines.Add('Failed:' + idFTP.RetrieveCurrentDir);
end;
//上级
Temp := Form1.GetPrevDir(idFTP.RetrieveCurrentDir);
if Temp <> '/' then FTP_DeleteAllFiles(idFTP, Temp);
end; for i := 0 to DirCount - 1 do
begin
if idFTP.DirectoryListing[i].ItemType = ditDirectory then
begin
//下级
FTP_DeleteAllFiles(idFTP, idFTP.DirectoryListing[i].FileName);
end;
if idFTP.DirectoryListing[i].ItemType = ditFile then
begin
Temp := idFTP.DirectoryListing[i].FileName;
try
idFTP.Delete(Temp);
Form1.Memo1.Lines.Add('Success:' + Temp);
except
Form1.Memo1.Lines.Add('Failed:' + Temp);
end;
end;
end;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
try
IdFTP1.Abort;
except
end;
try
T1.Terminate;
except
end;
try
T2.Terminate;
except
end;
IdFTP1.Tag := 1;
if IdFTP1.Connected then
IdFTP1.Disconnect
else
begin
Button1.Enabled := true;
end;
end;procedure TForm1.Edit4Change(Sender: TObject);
var
Temp : integer;
begin
try
Temp := strtoint(Edit4.Text);
Edit4.Text := inttostr(Temp);
except
Edit4.Text := '21';
end;
end;function TForm1.GetPrevDir(dir: string): string;
var
rstr : string;
last : integer;
begin
rstr := strrscan(PChar(dir), '/');
last := length(rstr);
Result := copy(dir, 1, length(dir) - length(rstr));
if last = 1 then
begin
rstr := strrscan(PChar(Result), '/');
Result := copy(Result, 1, length(Result) - length(rstr));
end;
end;end.