Delphi7 中利用Indy的TidFtp客户端控件实现在服务器指定目录下下载需要的文件

最新推荐文章于 2021-08-09 17:04:53 发布

Rubi

最新推荐文章于 2021-08-09 17:04:53 发布

阅读量6k

点赞数

分类专栏： DELPHI 文章标签： delphi 服务器 exception integer windows string

本文链接：https://blog.csdn.net/rubi/article/details/914409

版权

在Delphi7中，通过Indy的TIdFTP组件，可以实现无界面的文件自动下载。用户只需点击按钮，即可触发从服务器指定目录下载文件到本地，随后程序自动处理并入库，最终生成客户报告。这段代码片段旨在帮助不熟悉Indy组件的开发者理解其基本用法。

摘要由CSDN通过智能技术生成

根据实际的开发需求,需要在服务器端下载指定的文件到本地电脑,因为不像普通的FTP软件,不需要界面,客户只需要点击一个按钮,就可以实现文件下载到本地,然后由程序自动处理,并入库,然后生成客户所需要的报表,就是客户所要求的全傻瓜型程序.

主要代码片断如下,这里主要就是说下思路,实现基本功能,然后供那些对Indy组件不是很熟悉的朋友熟悉下用法:

procedure TForm1.btn3Click(Sender: TObject);
var
   i,j:Integer;
    ls:TStringList;
    fname:string;
begin
      adoTBFtp.Close;
     adoTBFtp.Open;
      while not adoTBFtp.Eof do
      begin
          IdFtp1.Host:= adoTBFtp.fieldbyname('Ip').AsString;
          IdFtp1.Username := adoTBFtp.fieldbyname('User').AsString;
          IdFtp1.Password := adoTBFtp.fieldbyname('PassWord').AsString;
          if not IdFtp1.Connected then
          begin
          try
            IdFtp1.Connect;
          except
                on e:exception do
                begin
                ShowMessage(e.Message);
                Exit;