如何用Delphi的TIdHTTP动态获取JSON？请求GitHub API遇SSL错误

我在Postman中向https://api.github.com/users/octocat发送GET请求可正常运行：

但使用Delphi的TIdHTTP组件通过以下代码实现时：

procedure TForm1.Button1Click(Sender: TObject);
begin
  var apiURL := 'https://api.github.com/users/octocat';
  try
    var IdHTTP := TIdHTTP.Create;
    try
      var jsonResponse := IdHTTP.Get(apiURL);

      Memo1.Lines.Text := jsonResponse;
    finally
      IdHTTP.Free;
    end;
  except
    on E: Exception do
      ShowMessage('Error: ' + E.Message);
  end;
end;

出现如下错误：

Project raised exception class EIdOSSLUnderlyingCryptoError with message 'Error connecting with SSL. error:1409442E:SSL routines:ssl3_read_bytes:tlsv1 alert protocol version'

请问该错误含义是什么？我哪里操作有误？

这个错误的意思是：你的程序使用的SSL/TLS协议版本不被GitHub API服务器支持。GitHub早已停止对TLS 1.0、TLS 1.1及更早版本的支持，只接受TLS 1.2及以上版本的请求。

你的代码存在两个核心问题：

1. 默认状态下TIdHTTP未指定SSL/TLS协议版本，会尝试使用老旧协议（比如TLS 1.0）发起连接，被服务器直接拒绝。
2. 未给TIdHTTP配置SSL加密处理组件（TIdSSLIOHandlerSocketOpenSSL），导致无法正确协商符合要求的安全协议版本。
3. 额外补充：GitHub API要求请求必须携带User-Agent头，Postman会自动添加该头，但TIdHTTP默认没有，即使解决SSL问题后也可能触发403错误。

修改代码，添加SSLIOHandler并指定支持的TLS版本，同时补充必要请求头：

procedure TForm1.Button1Click(Sender: TObject);
begin
  var apiURL := 'https://api.github.com/users/octocat';
  try
    var IdHTTP := TIdHTTP.Create;
    var SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
    try
      // 指定使用TLS 1.2及以上版本
      SSLHandler.SSLOptions.SSLVersions := [sslvTLSv1_2, sslvTLSv1_3];
      IdHTTP.IOHandler := SSLHandler;
      // 添加GitHub API要求的User-Agent头
      IdHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/114.0.0.0 Safari/537.36';
      
      var jsonResponse := IdHTTP.Get(apiURL);
      Memo1.Lines.Text := jsonResponse;
    finally
      IdHTTP.Free;
    end;
  except
    on E: Exception do
      ShowMessage('Error: ' + E.Message);
  end;
end;

额外注意：

• 确保你的程序运行目录或系统路径下存在匹配版本的OpenSSL动态库，比如新版的libcrypto-1_1.dll、libssl-1_1.dll，否则SSL组件无法正常工作。

内容的提问来源于stack exchange，提问作者Martin Kakhuis