Delphi - Indy TIdFTP控件實現文件的上傳和下載

FTP信息保存和獲取

我們在做FTP相關開發時，為方便后續FTP切換，一般先把FTP賬戶信息保存到數據庫表中，在使用時再通過Query獲取出來。

一般通過如下方式獲取到FTP相關信息，代碼如下：

  //獲取FTP信息
  with qTmp do
  begin
    Close;
    SQL.Clear;
    SQL.Text := 'SELECT * FROM SYS_FTP_INFO WHERE NAME = ''Test'' ';
    Open;
    SYS_FTPUSER := FieldByName('USERNAME').AsString;
    SYS_FTPPASSWORD := FieldByName('PASSWORD').AsString;
    SYS_FTPSERVER := FieldByName('IP').AsString;
    SYS_FTPDIR := FieldByName('PATH').AsString;
  end;

 

idFTP文件下載

下載這里主要用到Get函數，三個參數：

Param1：文件名稱（包含后綴名）

Param2：想要保存的路徑（最終文件保存位置的全路徑）

Param3：Ture/False 是否斷點續傳

一般操作代碼如下：

  try
    MsgDsp('開始獲取文件，請稍等！');
    with idFTP do
    begin
      if Connected then Disconnect;
      Username := SYS_FTPUSER;
      Password := SYS_FTPPASSWORD;
      Host := SYS_FTPSERVER;
      Port := 21;
      Connect;
      ChangeDir(SYS_FTPDIR);
      Get(FILENAME, 'C:\tmp\' + FILENAME, True);
      if Connected then Disconnect;
    end;
    MsgDsp('Recipe文件獲取成功！')
  except
    on E: Exception do
    begin
      MsgDsp('文件獲取失敗，請聯系IT處理！錯誤信息：' + E.Message);
      Abort;
    end;
  end;

 

idFTP 文件上傳

上傳這里主要用到Put函數，兩個參數：

Param1：需要上傳文件的全路徑

Param2：文件名稱（包含后綴名）

 

一般操作代碼如下：

  try
    MsgDsp('開始上傳文件，請稍等！');
    with idFTP do
    begin
      if Connected then Disconnect;
      Username := SYS_CLIENTFTPUSER;
      Password := SYS_CLIENTFTPPASSWORD;
      Host := SYS_CLIENTTPSERVER;
      Port := SYS_PORT;
      Connect;
      ChangeDir(SYS_CLIENTFTPDIR);
      Put('C:\tmp\' + FILENAME, ExtractFileName(FILENAME));13       if Connected then Disconnect;
    end;
    MsgDsp('文件上傳成功！');
16   except
    on E: Exception do
    begin
19       MsgDsp('文件上傳失敗，請聯系IT確認！錯誤信息：' + E.Message);
      Abort;
    end;
  end;

 

  作者：Jeremy.Wu
  出處：https://www.cnblogs.com/jeremywucnblog/
  本文版權歸作者和博客園共有，歡迎轉載，但未經作者同意必須保留此段聲明，且在文章頁面明顯位置給出原文連接，否則保留追究法律責任的權利。