Delphi7使用TIdHTTP连接OpenAI ChatGPT API时SSL连接错误排查

1. SSL处理组件选型错误 #

你当前使用的TIdSSLIOHandlerSocket是Indy早期的SSL组件，在Delphi7环境下，适配OpenSSL库的正确组件应为**TIdSSLIOHandlerSocketOpenSSL**（需确保你的Indy版本包含该组件）。旧组件对现代TLS协议的支持存在兼容性缺陷，这是触发SSL连接错误的核心原因之一。

2. 请求体编码不匹配 #

Delphi7的String为ANSI编码，直接用TStringStream.Create(JSONtext)创建的流采用系统默认ANSI编码，但OpenAI接口要求请求体必须是UTF-8编码，编码不匹配会导致请求解析失败，甚至触发SSL层异常。

修复代码：

// 直接指定UTF-8编码创建流
EnvStr := TStringStream.Create(JSONtext, TEncoding.UTF8);
// 若Delphi7不支持TEncoding，改用兼容写法：
// EnvStr := TStringStream.Create(UTF8Encode(JSONtext));

3. HTTP请求头存在冗余与错误 #

• 你重复设置了Content-Type，且自定义头里的Content-Type: application/json 末尾多了一个空格，可能导致服务器解析头信息出错；
• IdHTTP1.Request.SetHeaders属于冗余调用，Indy会自动构建头信息，手动调用反而可能破坏头结构。

修复后的头设置代码：

IdHTTP1.Request.CustomHeaders.Clear;
IdHTTP1.Request.CustomHeaders.FoldLines := False;
IdHTTP1.Request.CustomHeaders.Add('Authorization: Bearer ' + FAIToken);
IdHTTP1.Request.ContentType := 'application/json';
IdHTTP1.Request.Accept := 'application/json';

4. 组件销毁顺序错误 #

当前代码先销毁IdSSLIOHandlerSocket1，再销毁idhttp1，但IOHandler是被idhttp1引用的对象，正确顺序应为先销毁idhttp1，或让idhttp1成为IOHandler的所有者：

// 创建IOHandler时指定Owner为idhttp1，无需手动销毁IOHandler
IdSSLIOHandlerSocket1 := TIdSSLIOHandlerSocketOpenSSL.Create(idhttp1);
idhttp1.IOHandler := IdSSLIOHandlerSocket1;
// 后续仅需销毁idhttp1，IOHandler会随其自动释放
idhttp1.Free;

5. 额外验证点 #

• 升级Indy版本：Delphi7自带的Indy版本通常较旧，需升级到Indy 10.6.2及以上，才能更好支持TLS 1.2协议；
• 匹配OpenSSL库版本：确保ssleay32.dll和libeay32.dll为OpenSSL 1.0.2系列（1.1.x系列可能与旧版Indy不兼容）。

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