<font style="vertical-align: inherit;"><font style="vertical-align: inherit;">执行 HTTPS 发布时无法加载 ssl 库错误</font></font>

执行 HTTPS 发布时无法加载 ssl 库错误

我正在尝试进行 HTTPS 连接,但不断收到“无法加载 sll 库”错误。我花了整个上午的时间阅读和浏览,但我找不到解决问题的方法。我下载了最新的 OpenSSL v1.0.2 u,也有如下配置: Indy 版本:10.6.2.0 Delphi 2010 Windows 10 x64 可知 Readme.txt 文件,安装说明是“将两个 DLL 文件复制到你的应用程序目录中” - 我已经完成了。

我做http的代码:

var
  IdHTTP: TIdHTTP;
  Result: string;
begin
  IdHTTP := TIdHTTP.Create();
  try
    IdHTTP.Request.Accept := 'application/json';
    IdHTTP.Request.ContentType := 'application/json';
    IdHTTP.Request.ContentEncoding := 'utf-8';
    idHttp.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create();
    IdHTTP.Request.BasicAuthentication := True;
    IdHTTP.Request.Authentication := TIdBasicAuthentication.Create;
    Result := IdHTTP.Post('https://testapi.xxxx.com/esb/calendar/doSomething', Memo1.Lines);
    ShowMessage('HTTP Result: ' + Result);
    ShowMessage('HTTP ResponseText: ' + IdHTTP.ResponseText);
  finally
    FreeAndNil(IdHTTP);
  end;
(0)

相关推荐