delphi 用Indy实现FTP客户端

2009-08-21 18:33:07|  分类： Delphi 编程 |  标签： |字号大中小 订阅

讲这个课题的原因，是因为正好我在看“DELPHI 组件经典解析”这本书，里面重点提到的是INDY 9.0 控件的使用。

首先大家了解一下FTP的基本知识：FTP是一个标准协议，它是在计算机和网络之间交换文件的最简单的方法。

FTP也是应用TCP/IP协议的应用协议标准。

FTP通常于将作者的文件上传至服务器，或从服务器上下传文件的一种普遍的使用方式作为用户，您可以用非常简单的DOS界面来使用FTP，也可以使用由第三方提供的软件（如FLASHFXP）来对服务器的数据进行删除，重命名等操作。

当然，使用这些之前，必须先要登录服务器，用指定的用户名和密码或匿名（Anonymous）登录。  

这些大家都知道，不过还是讲一下。用DOS操作FTP我不讲了。我今天主要用INDY组件里的IDFTP控件做一FTP客户端软件（非常简单 ）

了

我现在讲一下IDFTP控件的几个属性如下：

Host:FTP服务器地址。

USER：用户帐号。

Password:密码。

Passive:用于控制FTP数据连接方法。FTP的数据传输可以有主动和被动。

PORT是主动模式，在建立数据通道时，服务端去连接别人；

PASV是被动模式，在建立数据通道时，服务端被别人连接；

建立数据通道时，用PORT模式还是PASV模式，选择权在于FTP客户端。

IDFTP里的passive是一个Boolean数据类型。当True时为主动；当false时为被动。

Port:FTP服务的默认端口是21。

TransferType:传输文件的类型，可以取值为FtBinary（8位的任意文件）和FtAscii（7位的文本文件）。

SystemDesc:FTP服务器的描述。  

IDFTP的几个方法

常用的方法有以下几个：

Connect:连接FTP服务器.

Abort:停止FTP服务的操作。

Quit:关闭客户端与服务器的连接.

Noop:用于保持连接的命令,防止被服务器关掉连接.

List:获取FTP服务器上的文件和目录列表.

原型为

procedure List(ADest:TStrings;Const ASpecifier:String;const ADetails:Boolean);

RetrieveCurrentDir:取得当前目录的名称.

Site:发送FTP服务器的命令.

原型为:

procedure Site(const ACommand:string);

ChangeDir:改变FTP服务器上的当前目录

原型为: procedure ChangeDir(const ADirName:string);

ChangeDirUp:将FTP服务器上的目录返回到你目录.

温州-Dillon(86695893) 13:08:26

MakeDir:在服务器上建立一个新目录.

原型为:

procedure MakeDir(const ADirName:String);

RemoveDir:删除服务器上的一个目录.

原型为:

procedure RemoveDir(const ADirName:string);

Get:从FTP服务器上下载文件.这个方法被重载了.

原型为:

procedure Get(const ASourceFile:string;ADest:TStream);overload;

procedure Get(const ASourceFile:string;const ADest:string;ACanOverWrite:Boolean);overload;

Put:用于向服务器上传文件.该方法被重载.

原型为:

procedure Put(const ASourceFile:TStream;const ADest:string;const Appand:Boolean);overload;

procedure Put(const ASourceFile:string;const ADest:string;const AAppand:Boolean);overload;

KillDataChannal:关闭FTP数据通道.

所谓“重载”，就是当从多个“类”身上继承一些方法时，会发生冲突。为了避免这一个冲突，就使用了“重载”功能

Delete:删除FTP服务器上一个文件.

原形为:procedure Delete(const AfileName:string);

Rename:更改服务器上的文件名.

原型为:

procedure Rename(const ASourceFile:string;const ADestFile:string);

Size:获取文件大小信息.

原型为:

function Size(const AFileName:string):Integer;  

当大家装好INDY9.0 附带一个例程,在INDY\FTPDEMO下可以找到.

是一个不错的DEMO

我仿造这个DEMO做的一个例子。里面包含详细的注释。

当然，还要讲一下，做FTP客户端的心得哦

我现在，慢慢把里面的代码发了来做一下讲解

首先是登录按钮里的代码：

还是先给大家看一下这个界面吧

Delete:删除FTP服务器上一个文件.

原形为:procedure Delete(const AfileName:string);

Rename:更改服务器上的文件名.

原型为:

procedure Rename(const ASourceFile:string;const ADestFile:string);

Size:获取文件大小信息.

原型为:

function Size(const AFileName:string):Integer;

begin

ftpcon.Enabled:=false;

//-----------------连接FTP服务器------------------//

with idftp do

      begin

      try

      Host:=trim(edit1.Text);       //FTP服务器IP地址

      Username:=trim(edit2.Text); //用户名

      Password:=trim(edit3.Text); //密码

      Connect;    // 连接

      DirectoryListBox.Items.Clear;    // 清空目录以及文件信息

      DebugListBox.Items.Clear;    // 清空记录信息

     // SaveFTPHostInfo(trim(CURDIR.Text), 'FTPHOST');

      finally

      if Connected then

          begin

           DisplayDir(trim(CURDIR.Text)); // 改变当前路径

           FTPCon.Enabled:=false;     // 连接按钮

           FTPDisCon.Enabled:=True; // 断开按钮

          end;

      end;

      end;

end;

断开按钮的代码：

begin

try

    if IdFTP.Connected then     // 判断客户端是否连着服务器

       IdFTP.Abort;

    if TransferrignData then    // 判断客户端与服务器之间是否有数据传输

       IdFTP.Quit;

finally

    IdFTP.Disconnect;    // 断开连接

    FTPCon.Enabled:=true;

    FTPDisCon.Enabled:=false;

end;

end;

TransferrignData变量全局变量里有定义的

连接按钮里的DisplayDir的过程如下：  

procedure TFFTPClient.DisplayDir(DirName: String);

Var

    LS: TStringList;

begin

    LS := TStringList.Create;

    try

      IdFTP.ChangeDir(DirName);

      IdFTP.TransferType:=ftASCII;    // 编译不通过时 USES IdFTPCommon

      CURDIR.Text:= IdFTP.RetrieveCurrentDir;

      DirectoryListBox.Items.Clear;

      IdFTP.List(LS);    // 把IDFTP里的LIST与LS关联起来

      DirectoryListBox.Items.Assign(LS);     // 把DIRECTORYLISTBOX 与 LS 关联起来

      if DirectoryListBox.Items.Count > 0 then

        if AnsiPos('total', DirectoryListBox.Items[0]) > 0 then DirectoryListBox.Items.Delete(0);

    finally

      LS.Free;

    end;

end;

还有一个最重要的一段代码，就是listbox如何显示目录信息的

首先，把LISTBOX的STYLE的属性改成lbOwnerDrawFixed

再在ONDRAWITEM方法里添加如下代码：

procedure TFFTPClient.DirectoryListBoxDrawItem(Control: TWinControl;

    Index: Integer; Rect: TRect; State: TOwnerDrawState);

Var

    R: TRect;

begin

//---------------------------------当选择一条记录时

    if odSelected in State then

    begin  

      DirectoryListBox.Canvas.Brush.Color := $00895F0A;

      DirectoryListBox.Canvas.Font.Color := clWhite;

    end

    else

    begin

      DirectoryListBox.Canvas.Brush.Color := clWindow;

    end;

//---------------------------------显示当前目录里的信息

if Assigned(IdFTP.DirectoryListing) and (IdFTP.DirectoryListing.Count>Index) then

    begin

      DirectoryListBox.Canvas.FillRect(Rect);

      with IdFTP.DirectoryListing.Items[Index] do

        begin

          //------------------------//

          DirectoryListBox.Canvas.TextOut(Rect.Left, Rect.Top, FileName); // 文件名

          R := Rect;

          R.Left := Rect.Left + HeaderControl1.Sections.Items[0].Width;

          //------------------------//

          R.Right := R.Left + HeaderControl1.Sections.Items[1].Width;

          DirectoryListBox.Canvas.FillRect(R);

          DirectoryListBox.Canvas.TextOut(R.Left, Rect.Top, IntToStr(Size)); // 文件大小

          //------------------------//

          R.Left := R.Right;

          R.Right := R.Left + HeaderControl1.Sections.Items[2].Width;

          DirectoryListBox.Canvas.FillRect(R);

          if ItemType = ditDirectory then     // 是文件夹类型    编译不通过时要USES IDFTPLIST

              begin

                DirectoryListBox.Canvas.TextOut(R.Left, Rect.Top, '文件夹');

              end

              else

              begin

                DirectoryListBox.Canvas.TextOut(R.Left, Rect.Top, '文件');

              end;

          //------------------------//

          R.Left := R.Right;

          R.Right := R.Left + HeaderControl1.Sections.Items[3].Width;

          DirectoryListBox.Canvas.FillRect(R);

          DirectoryListBox.Canvas.TextOut(R.Left, Rect.Top, FormatDateTime('yyyy-mm-dd hh:mm', ModifiedDate)); // 修改时间

          //------------------------//

          R.Left := R.Right;

          R.Right := R.Left + HeaderControl1.Sections.Items[4].Width;

          DirectoryListBox.Canvas.FillRect(R);

          DirectoryListBox.Canvas.TextOut(R.Left, Rect.Top, GroupName); // 组名

          //------------------------//

          R.Left := R.Right;

          R.Right := R.Left + HeaderControl1.Sections.Items[5].Width;

          DirectoryListBox.Canvas.FillRect(R);

          DirectoryListBox.Canvas.TextOut(R.Left, Rect.Top, OwnerName);    // 拥有者名字

          //------------------------//

          R.Left := R.Right;

          R.Right := R.Left + HeaderControl1.Sections.Items[6].Width;

          DirectoryListBox.Canvas.FillRect(R);

          DirectoryListBox.Canvas.TextOut(R.Left, Rect.Top, OwnerPermissions + GroupPermissions + UserPermissions);    // 权限

      end;

    end;

end;

这几部分是这软件里的中心

不过，可以通过IDFTP里的work,status,workbegin,workend来实现进度条

还有上传代码：

if IdFTP.Connected then

begin

      if OpenDialog1.Execute then

          try

            IdFTP.TransferType := ftBinary;

            IdFTP.Put(OpenDialog1.FileName, ExtractFileName(OpenDialog1.FileName));

          finally

            DisplayDir(idftp.RetrieveCurrentDir);

          end;

    end;

end;

这段代码，首先要判断IDFTP是否还连着

下传代码如下：

温州-Dillon(86695893) 13:36:23

procedure TFFTPClient.DirectoryListBoxDblClick(Sender: TObject);

Var

    FName: String;

begin

    if not IdFTP.Connected then // 判断FTP是否还连着服务器

        exit;

    FName := IdFTP.DirectoryListing.Items[DirectoryListBox.ItemIndex].FileName;

    if IdFTP.DirectoryListing.Items[DirectoryListBox.ItemIndex].ItemType = ditDirectory then // 假如双击是文件夹，就改变路径

    begin

      CURDIR.Text:=Trim(FName);

      DisplayDir(CURDIR.Text);

    end

    else

    begin

      try

        SaveDialog1.FileName := Name; // 得到保存的文件名

        if SaveDialog1.Execute then

        begin

          IdFTP.TransferType := ftBinary; // 以二进制进行传输

          BytesToTransfer := IdFTP.Size(Name); // 得到文件的大小

          if FileExists(Name) then

              begin

              case MessageDlg('文件已经存在,是否重新下载?',mtConfirmation, mbYesNoCancel, 0) of

                    mrYes:

                    begin

                      BytesToTransfer := BytesToTransfer-FileSizeByName(Name); // FileSizeByName在IdGlobal

                      IdFTP.Get(Name, SaveDialog1.FileName, false, true);

                    end;

                    mrNo:

                    begin

                      IdFTP.Get(Name, SaveDialog1.FileName, true);

                    end;

                    mrCancel:

                    begin

                      exit;

                    end;

              end;

              end

          else

              begin

                IdFTP.Get(Name, SaveDialog1.FileName, false);

              end;

        end;

      finally

      end;

    end;

end;

我要直接做在目录列表框的双击方法里的，假如双击文件就下载，文件夹就打开

其它的功能，都是通过IDFTP的方法直接实现的。例如新建目录：

var

    DirName:string;

begin

DirName:=InputBox('输入新目录名称', '提示信息', '');

    if DirName <> '' then

      try

        IdFTP.MakeDir(DirName);

        DisplayDir(CURDIR.Text);

      finally

      end;

end;

所以，对于FTP客户端的讲解也就如些了。

是啊，把所有代码都压缩传到共享里

noop只是客户端连到服务器，不被服务端T了