如何用delphi实现ftp下载文件

Question

如何用delphi实现ftp下载文件
謝謝

Answer 1

用indy的ftp控件，很方便的
begin
   idFtp.Disconnect;
   Try
      With idFtp do
      begin
         if Not Connected then
         begin
            Host := '127.0.0.1';
            Port := 21;
            Username := 111;
            Password := 111;
            Connect;
         end;
         end;
      Except
         On E:Exception do
         begin
            Exit;
         end;
      end;
      ChangeDir('d:\dd\ree');
      Get('d:\dd\ree\d.txt', desFile, True);
      end;