当前位置：搜档网 › Delphi idftp的几个函数用法介绍

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 ACanOv erwrite: 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 AAppen d: 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）事件。当Disc onnect方法被调用用来关闭Socket的时候，触发该响应。应用程序必须指定该事件响应的过程，以便对该断开事件进行相应。

OnStatus响应：TIdStatusEvent类。该响应在当前连接的状态变化时被触发。该事件可由DoStatus方法触发并提供给事件控制器属性。axStatus是当前连接的TIdStatus值；aa Args是一个可选的参数用于格式化函数，它将用于构造表现当前连接状态的文本消息。

OnWork响应：OnWord是TWorkEvent类事件的响应控制器。OnWork用于关联Do Work方法当缓冲区读写操作被调用时通知Indy组件和类。它一般被用于控制进度条和视窗元素的更新。AWorkMode表示当前操作的模式，其中：wmRead-组件正在读取数据；wmWri te-组件正在发送数据。AWorkCount指示当前操作的字节计数。

OnWorkBegin响应：TWorkBeginEvent类。当缓冲区读写操作初始化时，该事件关联B eginWork方法用于通知Indy组件和类。它一般被用于控制进度条和视窗元素的更新。AWor kMode表示当前操作的模式，其中：wmRead-组件正在读取数据；wmWrite-组件正在发送数据。AWorkCountMax用于指示发送到OnWorkBegin事件的操作的最大字节数，0值代表未知。

OnWorkEnd响应：TWorkEndEvent类。当缓冲区读写操作终止时，该事件关联EndW ork方法用于通知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为ft ASCII（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: boolea n);

参数：

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.Item s.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 ACanOv erwrite: 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 downl oad 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

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 AAppen d: 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(UploadOpenDial og1.FileName));

//可以在此添加改变目录的代码;

finally

//完成清除工作

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的AAp pend := True就可以了。

在前面我们讲过，Indy的网络操作大部分是阻塞模式的，TIdFtp也不例外。这样在上述各个操作运行过程的时候用户界面被暂时冻结，必须要等待调用返回才能继续用户操作界面响应。所以在实际编程中，需要使用多线程的方式来保证户界面的响应。Windows系统可以使用Create Thread系统调用来创建线程，但是在使用的时候需要开发人员做很多额外的工作来保证线程的同步等问题。而Indy中也包含了实现多线程的控件TIdThreadComponent，相对比之下该控件实现多线程时更加方便，也更容易控制。我将在后续的文章里为大家介绍TIdThreadCOmp onent的使用方法。

Excel中常用函数应用举例

Excel中常用函数应用举例 1.求和函数SUM 求和 SUM（number1，number2，...）。使用求和函数SUM，操作步骤如下：（1）打开“员工业绩表”工作簿，选择D10单元格，如图所示。（2）单击“插入函数”按钮，在弹出的“插入函数”对话框中选择SUM函数，单击“确定”按钮，如图所示。

（3）在打开的“函数参数”对话框中，“Number1”文本框中默认引用D3:D9单元格区域，单击“确定”按钮，如图所示。（4）求出的和值即可显示在D10单元格中，如图所示。

2.平均值函数A VERAGE 平均值函数的原理是将所选单元格区域中的数据相加，然后除以单元格个数，返回作为结果的算术平均值，其语法结构为：A VERAGE（number1，number2，...）。使用平均值函数A VERAGE，操作步骤如下：（1）打开“员工业绩表”工作簿，选择D11单元格，如图所示。

（2）单击“插入函数”按钮，在弹出的“插入函数”对话框中选择A VERAGE函数，单击“确定”按钮，如图所示。（3）在打开的“函数参数”对话框中，在“Number1”文本框中输入D3:D9，设定计算平均值的单元格区域，单击“确定”按钮，如图所示。

（4）求出的平均值即显示在D11单元格中，如图所示。 3.条件函数IF 条件函数可以实现真假值的判断，它根据逻辑计算的真假值返回两种结果。该函数的语法结构为：IF（logical_test，value_if_true，value_if_false）。其中，logical_test表示计算结果为true或false的任意值或表达式；value_if_true表示当logical_test为true时返回的值；value_if_false表示当logical_test为false时返回的值。

求函数解析式的几种常用方法

求函数解析式的几种常用方法 -CAL-FENGHAI.-(YICAI)-Company One1

求函数解析式的几种常用方法一、高考要求: 求解函数解析式是高考重点考查内容之一，需引起重视.本节主要帮助考生在深刻理解函数定义的基础上，掌握求函数解析式的几种方法，并形成能力，并培养考生的创新能力和解决实际问题的能力. 重难点归纳: 求解函数解析式的几种常用方法主要有: 1.待定系数法，如果已知函数解析式的构造时，用待定系数法； 2.换元法或配凑法，已知复合函数f ［g (x )］的表达式可用换元法，当表达式较简单时也可用配凑法； 3.消参法，若已知抽象的函数表达式，则用解方程组消参的方法求解f (x ); 另外，在解题过程中经常用到分类讨论、等价转化等数学思想方法. 二、题例讲解: 例1．(1)已知函数f (x )满足f (log a x )= )1 (1 2x x a a --.(其中a >0,a ≠1,x >0),求f (x )的表达式. (2)已知二次函数f (x )=ax 2+bx +c 满足|f (1)|=|f (－1)|=|f (0)|=1,求f (x )的表达式. 命题意图:本题主要考查函数概念中的三要素:定义域、值域和对应法则，以及计算能力和综合运用知识的能力. 知识依托:利用函数基础知识，特别是对“f ”的理解，用好等价转化，注意定义域. 错解分析:本题对思维能力要求较高，对定义域的考查、等价转化易出错. 技巧与方法:(1)用换元法；(2)用待定系数法. 解:(1)令t=log a x (a >1,t >0;01,x >0;0