delphi ftp上传下载

Posted 2020-10-10 西瓜的夏天

     由于delphi本身自带了indy控件，因此用这些控件实现网络编程即快又容易。尽管如此，我还是极大地鼓励自己查看FTP底层是如何实现的，但就目前而言，indy控件还是一个非常不错的选择。 
       针对indy的强大，我还是决定将这段代码帖出来，主要是方便自己日后复习、查询。 
Unit1;

interface

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, 
  IdTCPClient, IdFTP;

type 
  TForm1 = class(TForm) 
    IdFTP1: TIdFTP; 
    Button1: TButton; 
    Memo1: TMemo; 
    Edit1: TEdit; 
    Button2: TButton; 
    Label1: TLabel; 
    Button3: TButton; 
    OpenDialog1: TOpenDialog; 
    procedure Button1Click(Sender: TObject); 
    procedure Button2Click(Sender: TObject); 
    procedure Button3Click(Sender: TObject); 
    procedure IdFTP1Status(ASender: TObject; const AStatus: TIdStatus; 
      const AStatusText: String); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end;

var 
  Form1: TForm1;

implementation 
uses IdFTPList, IdFTPCommon; 
{$R *.dfm} 
{ 
 本程序是一个ftp  demo程序，我用windows信息服务在本机建立了一个ftp服务， 
 本机IP：192.168.10.99 
 用户名：cc 
 密码：1 
}

procedure TForm1.Button1Click(Sender: TObject); 
var 
  tr : Tstrings; 
begin  //连接 
  tr := TStringlist.Create; 
  IdFTP1.Host := ‘192.168.10.99‘; //FTP服务器IP地址or域名也可以 
  IdFTP1.Username := ‘username‘; //FTP服务器用户名 
  IdFTP1.Password := ‘password‘; //FTP服务器密码

  IdFTP1.Connect();  //连接到ftp

  Edit1.Text := IdFTP1.RetrieveCurrentDir;//得到初始目录 
  IdFTP1.ChangeDir(‘client‘); //进入到client子目录 
  //IdFTP1.ChangeDir(‘..‘); //回到上一级目录 
  IdFTP1.List(tr); //得到client目录下所有文件列表 
  Memo1.Lines.Assign(tr); 
  tr.Free; 
end;

procedure TForm1.Button2Click(Sender: TObject); 
var 
  tt :TIdFTPListItems; 
  t : TIdFTPListItem; 
  i : integer; 
  tfname : String; 
begin  //下载 
  Label1.Caption := IdFTP1.DirectoryListing.Items[0].FileName; 
  IdFTP1.TransferType := ftBinary; //指定为二进制文件  或文本文件ftASCII 
  for i:=0 to IdFTP1.DirectoryListing.Count-1 do 
  begin 
    tt := IdFTP1.DirectoryListing; //得到当前目录下文件及目录列表 
    t := tt.Items[i]; //得到一个文件相关信息 
    Label1.Caption :=t.Text;  //取出一个文件信息内容 
    tfname := t.FileName; 
    showmessage(t.OwnerName+‘  ‘+t.GroupName+‘  ‘+t.FileName+‘   ‘+t.LinkedItemName); 
    if IdFTP1.DirectoryListing.Items[i].ItemType = ditFile then //如果是文件 
    begin 
      IdFTP1.Get(tfname,‘d:\FTPtest\‘+tfname,True,True); //下载到本地，并为覆盖，且支持断点续传 
    end; 
  end; 
end;

procedure TForm1.Button3Click(Sender: TObject); 
var 
  fi : string; 
begin  //上传 
  if OpenDialog1.Execute then 
  begin 
     fi := OpenDialog1.FileName; 
    IdFTP1.Put(‘f:\测试文档样本.rar‘,‘测试文档样本.rar‘);//上传， 
  end; 
end;

procedure TForm1.IdFTP1Status(ASender: TObject; const AStatus: TIdStatus; 
  const AStatusText: String); 
begin 
  {case  AStatus of 
    hsResolving  : showmessage(‘hsResolving‘); 
    hsConnecting: showmessage(‘hsConnecting‘); 
    hsConnected: showmessage(‘hsConnected‘); 
    hsDisconnecting: showmessage(‘hsDisconnecting‘); 
    hsDisconnected: showmessage(‘hsDisconnected‘); 
    hsStatusText: showmessage(‘hsStatusText‘);  
    ftpTransfer: showmessage(‘文件传送完毕。‘); 
    ftpReady: showmessage(‘准备传送文件....‘); 
    ftpAborted: showmessage(‘传送失败‘); 
  end;         }

  //showmessage(AStatusText); 
end;

end.