Delphi-Indy idFTP控件上传和下载文件

FTP信息存储和获取

在进行与FTP相关的开发时，为了方便后续的FTP切换，通常将FTP帐户信息保存在表中，然后在使用时通过Query获得.

通常通过以下方法获取与FTP相关的信息delphi上传下载文件delphi上传下载文件，代码如下:

 1   //获取FTP信息  2   with qTmp do  3   begin  4     Close;  5     SQL.Clear;  6     SQL.Text := 'SELECT * FROM SYS_FTP_INFO WHERE NAME = ''Test'' ';  7     Open;  8     SYS_FTPUSER := FieldByName('USERNAME').AsString;  9     SYS_FTPPASSWORD := FieldByName('PASSWORD').AsString; 10     SYS_FTPSERVER := FieldByName('IP').AsString; 11     SYS_FTPDIR := FieldByName('PATH').AsString; 12   end;

idFTP文件下载

Get函数主要用于此处的下载，具有三个参数:

Param1: 文件名（包括后缀名）

Param2: 您要保存的路径（保存最终文件的完整路径）

Param3: Ture / False是否在断点处恢复

一般操作代码如下:

 1   try  2     MsgDsp('开始获取文件，请稍等！');  3     with idFTP do  4     begin  5       if Connected then Disconnect;  6       Username := SYS_FTPUSER;  7       Password := SYS_FTPPASSWORD;  8       Host := SYS_FTPSERVER;  9       Port := 21; 10       Connect; 11       ChangeDir(SYS_FTPDIR); 12       Get(FILENAME, 'C:\tmp\' + FILENAME, True); 13       if Connected then Disconnect; 14     end; 15     MsgDsp('Recipe文件获取成功！') 16   except 17     on E: Exception do 18     begin 19       MsgDsp('文件获取失败，请联系IT处理！错误信息：' + E.Message); 20       Abort; 21     end; 22   end;

idFTP文件上传

Put函数主要用于上传，有两个参数:

Param1: 要上传的文件的完整路径

Param2: 文件名（包括后缀名）

一般操作代码如下:

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/jisuanjixue/article-214710-1.html