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

根据实际的开发需求,需要在服务器端下载指定的文件到本地电脑,因为不像普通的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;