在delphi中用indy实现FTP上传下载的例子

Author：傻猫
发布时间：May 31, 2007
14709views
One comment
4017 words
Categories：搞软件

以前总认为FTP程序实现很困难，但后来在网上查看了相关的帖子后发现原来用delphi实现FTP上传与下载竟如此容易，确实对我鼓舞很大。 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 由于delphi本身自带了indy控件，因此用这些控件实现网络编程即快又容易。尽管如此，我还是极大地鼓励自己查看FTP底层是如何实现的，但就目前而言，indy控件还是一个非常不错的选择。 &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 针对indy的强大，我还是决定将这段代码帖出来，主要是方便自己日后复习、查询。Unit1;interfaceuses &nbsp; Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, &nbsp; Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, &nbsp; IdTCPClient, IdFTP;type &nbsp; TForm1 = class(TForm) &nbsp;&nbsp;&nbsp; IdFTP1: TIdFTP; &nbsp;&nbsp;&nbsp; Button1: TButton; &nbsp;&nbsp;&nbsp; Memo1: TMemo; &nbsp;&nbsp;&nbsp; Edit1: TEdit; &nbsp;&nbsp;&nbsp; Button2: TButton; &nbsp;&nbsp;&nbsp; Label1: TLabel; &nbsp;&nbsp;&nbsp; Button3: TButton; &nbsp;&nbsp;&nbsp; OpenDialog1: TOpenDialog; &nbsp;&nbsp;&nbsp; procedure Button1Click(Sender: TObject); &nbsp;&nbsp;&nbsp; procedure Button2Click(Sender: TObject); &nbsp;&nbsp;&nbsp; procedure Button3Click(Sender: TObject); &nbsp;&nbsp;&nbsp; procedure IdFTP1Status(ASender: TObject; const AStatus: TIdStatus; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; const AStatusText: String); &nbsp; private &nbsp;&nbsp;&nbsp; { Private declarations } &nbsp; public &nbsp;&nbsp;&nbsp; { Public declarations } &nbsp; end;var &nbsp; Form1: TForm1;implementation uses IdFTPList, IdFTPCommon; {$R *.dfm} { &nbsp;本程序是一个ftp&nbsp; demo程序，我用windows信息服务在本机建立了一个ftp服务， &nbsp;本机IP：192.168.10.99 &nbsp;用户名：cc &nbsp;密码：1 } procedure TForm1.Button1Click(Sender: TObject); var &nbsp; tr : Tstrings; begin&nbsp; //连接 &nbsp; tr := TStringlist.Create; &nbsp; IdFTP1.Host := '192.168.10.99'; //FTP服务器地址 &nbsp; IdFTP1.Username := 'cc'; //FTP服务器用户名 &nbsp; IdFTP1.Password := '1'; //FTP服务器密码&nbsp; IdFTP1.Connect();&nbsp; //连接到ftp&nbsp; Edit1.Text := IdFTP1.RetrieveCurrentDir;//得到初始目录 &nbsp; IdFTP1.ChangeDir('client'); //进入到client子目录 &nbsp; //IdFTP1.ChangeDir('..'); //回到上一级目录 &nbsp; IdFTP1.List(tr); //得到client目录下所有文件列表 &nbsp; Memo1.Lines.Assign(tr); &nbsp; tr.Free; end;procedure TForm1.Button2Click(Sender: TObject); var &nbsp; tt :TIdFTPListItems; &nbsp; t : TIdFTPListItem; &nbsp; i : integer; &nbsp; tfname : String; begin&nbsp; //下载 &nbsp; Label1.Caption := IdFTP1.DirectoryListing.Items[0].FileName; &nbsp; IdFTP1.TransferType := ftBinary; //指定为二进制文件&nbsp; 或文本文件ftASCII &nbsp; for i:=0 to IdFTP1.DirectoryListing.Count-1 do &nbsp; begin &nbsp;&nbsp;&nbsp; tt := IdFTP1.DirectoryListing; //得到当前目录下文件及目录列表 &nbsp;&nbsp;&nbsp; t := tt.Items[i]; //得到一个文件相关信息 &nbsp;&nbsp;&nbsp; Label1.Caption :=t.Text;&nbsp; //取出一个文件信息内容 &nbsp;&nbsp;&nbsp; tfname := t.FileName; &nbsp;&nbsp;&nbsp; showmessage(t.OwnerName+'&nbsp; '+t.GroupName+'&nbsp; '+t.FileName+'&nbsp;&nbsp; '+t.LinkedItemName); &nbsp;&nbsp;&nbsp; if IdFTP1.DirectoryListing.Items[i].ItemType = ditFile then //如果是文件 &nbsp;&nbsp;&nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IdFTP1.Get(tfname,'d:\FTPtest\'+tfname,True,True); //下载到本地，并为覆盖，且支持断点续传 &nbsp;&nbsp;&nbsp; end; &nbsp; end; end;procedure TForm1.Button3Click(Sender: TObject); var &nbsp; fi : string; begin&nbsp; //上传 &nbsp; if OpenDialog1.Execute then &nbsp; begin &nbsp;&nbsp;&nbsp;&nbsp; fi := OpenDialog1.FileName; &nbsp;&nbsp;&nbsp; IdFTP1.Put('f:\测试文档样本.rar','测试文档样本.rar');//上传， &nbsp; end; end;procedure TForm1.IdFTP1Status(ASender: TObject; const AStatus: TIdStatus; &nbsp; const AStatusText: String); begin &nbsp; {case&nbsp; AStatus of &nbsp;&nbsp;&nbsp; hsResolving&nbsp; : showmessage('hsResolving'); &nbsp;&nbsp;&nbsp; hsConnecting: showmessage('hsConnecting'); &nbsp;&nbsp;&nbsp; hsConnected: showmessage('hsConnected'); &nbsp;&nbsp;&nbsp; hsDisconnecting: showmessage('hsDisconnecting'); &nbsp;&nbsp;&nbsp; hsDisconnected: showmessage('hsDisconnected'); &nbsp;&nbsp;&nbsp; hsStatusText: showmessage('hsStatusText');&nbsp; &nbsp;&nbsp;&nbsp; ftpTransfer: showmessage('文件传送完毕。'); &nbsp;&nbsp;&nbsp; ftpReady: showmessage('准备传送文件....'); &nbsp;&nbsp;&nbsp; ftpAborted: showmessage('传送失败'); &nbsp; end;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; }&nbsp; //showmessage(AStatusText); end;end. 来源: <a href="https://www.samool.com/go/aHR0cDovL2Jsb2cuY3Nkbi5uZXQvcXFwXzUyOC9hcmNoaXZlLzIwMDYvMDYvMDkvNzgzMTQ5LmFzcHg=" target="_blank" >http://blog.csdn.net/qqp_528/archive/2006/06/09/783149.aspx</a>