delphi7 ftp链接代码

Delphi7是一种编程语言和集成开发环境（IDE），用于开发Windows应用程序。在Delphi7中，可以使用Indy组件来进行FTP链接。

下面是一个示例代码，用于在Delphi7中建立FTP链接并下载文件：

uses
  IdFTP, IdGlobal;

procedure DownloadFileFromFTP(const AHost, AUsername, APassword, ARemoteFile, ALocalFile: string);
var
  FTP: TIdFTP;
begin
  FTP := TIdFTP.Create(nil);
  try
    FTP.Host := AHost;
    FTP.Username := AUsername;
    FTP.Password := APassword;
    FTP.Passive := True; // 设置为被动模式
    FTP.Connect;

    FTP.Get(ARemoteFile, ALocalFile, False, True); // 下载文件

    FTP.Disconnect;
  finally
    FTP.Free;
  end;  
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DownloadFileFromFTP('ftp.example.com', 'username', 'password', '/path/to/remote/file.txt', 'C:\path\to\local\file.txt');
end;

上述代码中，需要先使用`uses`指令引入`IdFTP`和`IdGlobal`单元。`DownloadFileFromFTP`过程用于建立FTP链接并下载指定的远程文件到本地。在`TForm1.Button1Click`事件处理程序中，可以调用`DownloadFileFromFTP`过程并传递FTP服务器地址、用户名、密码、远程文件路径以及本地文件路径参数。