delphi - 德尔福 10.2 FTP SSL

Question

这是我的程序

ftp := TIdFTp.Create();
IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(ftp);
with IdSSLIOHandlerSocketOpenSSL1 do
begin
    host := fhost;
    MaxLineAction := maException;
    port := 2111;
    ReadTimeout := 60000;
    SSLOptions.Method := sslvSSLv3;
    SSLOptions.Mode := sslmUnassigned;
end;
ftp := TIdFTp.Create();
with ftp do
begin
    Host := fHost;
    password := fpass;
    Username := fuser;
    IOHandler :=IdSSLIOHandlerSocketOpenSSL1;
    UseTLS := utUseExplicitTLS;
    DataPortProtection := ftpdpsPrivate;
    port := 2111;
end;
ftp.Connect;

我TIdFTP在 Delphi 2007 和 Delphi 10.2 Berlin 中使用组件。

对于 Delphi 2007，程序连接到 FTP。但是，对于 Delphi 10.2，程序会给出错误“无法加载 SSL 库”。

在这两种情况下，我都在 exe 文件目录中包含ssleay32.dll和libeay32.dll文件