Delphi：System.Net.HttpClient忽略SSL证书验证（获取服务器证书时出错）

Question

我想在不验证SSL证书的情况下发出GET请求。

我尝试实现ValidateServerCertificateCallback，但是HTTP客户端仍然引发异常：

  

带有消息“获取服务器证书错误”的异常类ENetHTTPCertificateException

我的代码：

procedure OnValidateServerCertificateCallback(const Sender: TObject; const ARequest: TURLRequest; const Certificate: TCertificate; var Accepted: Boolean);
begin
  Accepted := True;
end;

var
  aHTTP: THTTPClient;
begin
  aHTTP:= THTTPClient.Create();
  try
    aHttp.ValidateServerCertificateCallback := OnValidateServerCertificateCallback;
    aHTTP.Get('https://...');
  finally
    aHTTP.Free;
  end;
end;