《Delphiidftp的几个函数用法介绍》由会员分享,可在线阅读,更多相关《Delphiidftp的几个函数用法介绍(15页珍藏版)》请在金锄头文库上搜索。
1、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;
2、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: str
3、ing);判断是否连接if IdFTP1.Connected thenbegin.end; 引用别人一下,做为自己以后笔记现在很多应用都需要上传与下载大型文件,通过 HTTP 方式上传大文件有一定的局限性。幸好 FTP 作为一个非常老而且非常成熟的协议可以高效稳定地完成大文件的上传下载,并且可以完美地实现续传。就拿我写的电影服务器管理端程序来说,各种方案比较后,发现使用 FTP可以完美地实现要求。但是要通过 WinSocket 库实现 FTP 比较麻烦,幸好有 Indy-一个包装了大多数网络协议的组件包。 通过 Indy,程序设计人员可以通过阻塞方式进行编程,可以抛开蹩脚的 Winsocket
4、 异步模式,采用与 Unix 系统上等同的阻塞编程模式进行。这样,程序员就可以很好的处理程序的运行流程。 下面,我们进入到 Indy 的 TIdFtp 世界。1.控件的说明使用 Indy 9 中的 TIdFtp 控件可以实现通过 FTP 方式进行文件的上传与下载。2.控件的具体使用(1)控件属性设置默认属性即可,与服务器连接直接相关的属性如主机名与用户等在建立连接时进行设定。需要设定的是 RecvBufferSize 和 SendBufferSize 两属性的值。另外需要根据要传输的文件类型指定 TransferType 属性,而其他属性按默认值设定即可。RecvBufferSize 说明(默
5、认值为 8192 字节):该属性为整型变量,用于指定连接所用的接受缓冲区大小。SendBufferSize 说明(默认值为 32768 字节):该属性也为整型变量,用于指定连接所用的发送缓冲区的最大值。该属性在 WriteStream 方法中时,可用于 TStream 指定要发送内容的块数。如果要发送的内容大于本属性值,则发送内容被分为多个块发送。TransferType 说明(默认值为 ftBinary):该属性为 TIdFTPTransferType 型变量。用于指定传输内容是二进制文件(ftBinary )还是 ASCII 文件(ftASCII)。应用程序需要使用二进制方式传输可执行文件
6、、压缩文件和多媒体文件等;而使用 ASCII 方式传输文本或超文本等文本型数据。(2)控件的事件响应OnDisconnected 响应:TNotifyEvent 类,用于响应断开(disconnect)事件。当 Disconnect 方法被调用用来关闭 Socket 的时候,触发该响应。应用程序必须指定该事件响应的过程,以便对该断开事件进行相应。OnStatus 响应:TIdStatusEvent 类。该响应在当前连接的状态变化时被触发。该事件可由 DoStatus 方法触发并提供给事件控制器属性。axStatus 是当前连接的 TIdStatus 值;aaArgs 是一个可选的参数用于格式化
7、函数,它将用于构造表现当前连接状态的文本消息。OnWork 响应:OnWord 是 TWorkEvent 类事件的响应控制器。OnWork 用于关联 DoWork 方法当缓冲区读写操作被调用时通知 Indy 组件和类。它一般被用于控制进度条和视窗元素的更新。AWorkMode 表示当前操作的模式,其中:wmRead-组件正在读取数据;wmWrite-组件正在发送数据。AWorkCount 指示当前操作的字节计数。OnWorkBegin 响应:TWorkBeginEvent 类。当缓冲区读写操作初始化时,该事件关联BeginWork 方法用于通知 Indy 组件和类。它一般被用于控制进度条和视窗
8、元素的更新。AWorkMode 表示当前操作的模式,其中:wmRead- 组件正在读取数据;wmWrite- 组件正在发送数据。AWorkCountMax 用于指示发送到 OnWorkBegin 事件的操作的最大字节数,0 值代表未知。OnWorkEnd 响应:TWorkEndEvent 类。当缓冲区读写操作终止时,该事件关联 EndWork 方法用于通知 Indy 组件和类。 AWorkMode 表示当前操作的模式,其中:wmRead-组件正在读取数据;wmWrite-组件正在发送数据。AWorkCount 表示操作的字节数。在事件响应中,主要通过上述五种事件响应来控制程序。在一般情况下,在
9、 OnDisconnected中设定连接断开的界面通知;在 OnStatus 中设定当前操作的状态;在 OnWork 中实现传输中状态条和其他参数的显示;而在 OnWorkBegin 和 OnWorkEnd 中分别设定开始传输和传输结束时的界面。(3)连接远程服务器完成了设定控件属性和实现了控件的事件响应后,就可以与服务器进行交互和传输了。在连接之前,应首先判断 IdFtp 是否处于连接状态,如果 Connected 为 False,则通过界面控件或其他方式指定与服务器连接相关的一些 TCP 类属性的设置,分别是:Host(主机名):String、Username(用户名):String、Pa
10、ssword(密码):String,也可以指定 Port(端口)。之后调用 Connect 方法连接远程服务器,如果无异常出现则连接成功建立。过程说明:procedure Connect(AAutoLogin: boolean; const ATimeout: Integer);该过程连接远程 FTP 服务器属性:AAutoLogin: boolean = True连接后自动登录,该参数默认为 True。const ATimeout: Integer = IdTimeoutDefault超时时间,单位:秒。示例代码:if IdFTP1.Connected then tryif Transfer
11、rignData then IdFTP1.Abort;IdFTP1.Quit;finallyend else with IdFTP1 do tryUsername := UserIDEdit.Text;Password := PasswordEdit.Text;Host := FtpServerEdit.Text;Connect;ChangeDir(CurrentDirEdit.Text);finallyend;(4)改变目录连接建立后,可以改变当前 FTP 会话所在的目录。对于已知绝对路径的情况下,可以直接调用 ChangeDir(const ADirName: string)方法来转换目录
12、,ADirName 表示服务器上的文件系统目录,另外还可以调用 ChangeDirUp 回到上级目录。如果未知路径,则可以通过 List(ADest: TStrings; const ASpecifier: string; const ADetails: boolean)过程获取远程服务器的当前目录结构,此时必须设定 TransferType 为 ftASCII(ASCII 模式),其中: ADest 保存当前目录结构,可以在后续程序中调用该列表。另外可以通过 RetrieveCurrentDir 方法获取当前目录名。过程说明:procedure ChangeDir(const ADirNam
13、e: 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:
14、string = 文件掩码,用于列出符合条件的文件const ADetails: boolean = true包含文件和子目录属性property DirectoryListing: TIdFTPListItems;返回文件及目录结构的列表示例代码:LS := TStringList.Create;tryIdFTP1.ChangeDir(DirName);IdFTP1.TransferType := ftASCII;CurrentDirEdit.Text := IdFTP1.RetrieveCurrentDir;DirectoryListBox.Items.Clear;IdFTP1.List(
15、LS);DirectoryListBox.Items.Assign(LS);if DirectoryListBox.Items.Count 0 thenif AnsiPos(total, DirectoryListBox.Items0) 0 then DirectoryListBox.Items.Delete(0); finallyLS.Free;end;(5)下载的实现在下载之前,必须查看 DirectoryListing.ItemssCurrFile.ItemType 是否为文件,如返回为 ditDirectory 则代表当前文件名为目录,不能下载,必须导向到文件才可。如为文件,则可以进行
16、下载。在下载前,设定传输的类型为二进制文件,并且指定本地要保存的路径。通过调用 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: B