Delphi 2010 - 无法加载 SSL 库

Question

我执行这段代码并得到错误:无法加载 SSL 库类:EIdOSSLCouldNotLoadSSLLibrary

我不使用 .net。

var
  Client: TIdHTTP;
  tokenURL: String;
begin
  client := TIdHTTP.Create(nil);
  try
    client.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(client);
    TIdSSLIOHandlerSocketOpenSSL(client.IOHandler).SSLOptions.Method := sslvSSLv23;

    client.HandleRedirects := False; 
    client.Get('https://www.xxxxx.xx/portal/ILlogin?username=XXXXXX&password=XXXXXXXX&skin=yyyyyyyyyy&portal=GG', [300, 301, 302, 303, 305, 306, 307]);

    if client.Response.Location <> '' then
      tokenURL := client.Response.Location;
  finally
    client.Free;
  end;
end;

Answer 1

Indy 在 IdSSLOpenSSLHeaders 单元中的 WhichFailedToLoad() 函数会告诉您为什么无法加载 OpenSSL。您可能没有安装 OpenSSL DLL，或者您安装了不兼容的 DLL 版本，该版本缺少 Indy 正在寻找的功能。尝试 Indy 的 Fulgan mirror 提供的 DLL。 .