如何在Delphi XE中通过FTP下载文件

本文整理自网络，侵删。

 
uses
 ... IdFTP, IdFTPCommon ...
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  IdFTP1.Host := 'test.rebex.net';
  IdFTP1.Port := 21;
  IdFTP1.ConnectTimeout := 5000;
  IdFTP1.Username := 'demo';
  IdFTP1.Password := 'password';
  IdFTP1.TransferType := IdFTPCommon.TIdFTPTransferType.ftBinary;
  IdFTP1.Passive := True;
 
  try
    IdFTP1.Connect;
    try
      IdFTP1.Get('/pub/example/pop3-browser.png', ExtractFilePath(ParamStr(0)) + 'pop3-browser.png', True, False);
    finally
      IdFTP1.Disconnect;
    end;
    ShowMessage('Downloaded!');
  except
    ShowMessage('Error while downloading!');
  end;
end;
如果FTP服务器仅允许匿名连接，请使用：

IdFTP1.Username：='匿名';
//IdFTP1.Password：='password';

使用TIdURI在Delphi XE中解析或拆分FTP URL
uses
 ... IdFTP, IdFTPCommon, IdURI ...
 
procedure TForm1.btnDownloadFileClick(Sender: TObject);
var
  URL: string;
  Uri: TIdURI;
begin
  URL := Trim(edURL.Text);
  Uri := TIdURI.Create(URL);
 
  try
    IdFTP1.Host := Uri.Host;
 
    if Uri.Port <> '' then
    IdFTP1.Port := StrToInt(Uri.Port) else
    IdFTP1.Port := 21;
 
    IdFTP1.ConnectTimeout := 5000;
 
    IdFTP1.Username := 'anonymous';
 
    if Uri.Username <> '' then
    begin
      IdFTP1.Username := Uri.Username;
      IdFTP1.Password := Uri.Password;
    end;
 
    IdFTP1.TransferType := IdFTPCommon.TIdFTPTransferType.ftBinary;
    IdFTP1.Passive := True;
 
    try
      IdFTP1.Connect;
      try
        IdFTP1.Get(Uri.Path + Uri.Document, ExtractFilePath(ParamStr(0)) + Uri.Document, True, False);
      finally
        IdFTP1.Disconnect;
      end;
      ShowMessage('Downloaded!');
    except
      ShowMessage('Error while downloading!');
    end;
  finally
    Uri.Free;
  end;
end;
适用于username：password和匿名FTP登录名：

ftp：// demo：password@test.rebex.net/pub/example/pop3-browser.png
ftp://speedtest.tele2.net/1MB.zip
有关TIdURI的更多详细信息，请参见：

http://www.e-iter.net/knowledge/indy9/007878.html
 

相关阅读 >>

Delphi adoquery1数据表参数调用

Delphi 判断当前活动窗口

Delphi 在状态条中显示进度条，webbrowser示例

Delphi 简单的字符串加密和解密

pchar和array [0..255] of char的区别

Delphi [fmx]如何使用剪贴板

Delphi10及以上版本安装activex控件

Delphi net.httpclient正则批量获取网页代码中的数值

Delphi 得到文件夹下所有文件名

Delphi2010新功能:tdirectory.getfiles 支持通配符

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » 如何在Delphi XE中通过FTP下载文件