DELPHI xe 连接FTPS

要在 Delphi XE 中连接 FTPS，您需要使用 Indy 组件库。以下是连接 FTPS 的步骤：

1. 在 Delphi XE 中创建一个新的 VCL 应用程序。
2. 右键单击“工具”菜单，选择“Library Manager”。
3. 在“Library Manager”中，选择“Indy System”, “Indy Protocols”和“Indy SSL”组件，并点击“Install”按钮。
4. 在“Tool Palette”中，找到“IdFTP”组件并将其拖放到窗体上。
5. 在“IdFTP”组件的属性中，将“Host”属性设置为 FTPS 服务器的地址。
6. 将“Port”属性设置为 FTPS 服务器的端口。默认情况下，FTPS 的端口是 990。
7. 将“Username”和“Password”属性设置为您在 FTPS 服务器上的凭据。
8. 将“UseTLS”属性设置为“utUseExplicitTLS”或“utUseImplicitTLS”，具体取决于您的 FTPS 服务器的配置。
9. 点击“Connect”按钮连接到 FTPS 服务器。

下面是一个示例代码：

uses
  IdFTP, IdSSL, IdSSLOpenSSL;

procedure TForm1.Button1Click(Sender: TObject);
var
  FTP: TIdFTP;
  SSL: TIdSSLIOHandlerSocketOpenSSL;
begin
  FTP := TIdFTP.Create(nil);
  SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  try
    SSL.SSLOptions.Method := sslvTLSv1_2;
    SSL.SSLOptions.Mode := sslmUnassigned;
    FTP.IOHandler := SSL;
    FTP.Host := 'ftp.example.com';
    FTP.Port := 990;
    FTP.Username := 'username';
    FTP.Password := 'password';
    FTP.UseTLS := utUseExplicitTLS;
    FTP.Connect;
    ShowMessage('Connected!');
    FTP.Disconnect;
  finally
    SSL.Free;
    FTP.Free;
  end;
end;