使用Synapse HTTPSend访问谷歌网站遇500错误及授权问题求助

我来帮你捋捋这个问题，你的代码里有几个关键问题会导致访问Google时出现授权异常和500错误：

代码中的核心问题 #

1. 手动干预SSL连接流程
   Synapse的THTTPSend组件本身会自动处理HTTPS的SSL握手流程，你手动调用Sock.CreateWithSSL和SSLDoConnect会打乱组件的内部状态，导致连接异常，这很可能是500错误的直接原因。

2. 缺少必要的请求头
   Google这类大型网站会校验请求的合法性，没有User-Agent等关键头的请求会被服务器拒绝或返回错误状态码。

3. 未正确初始化/释放SSL库
   Synapse依赖OpenSSL库实现HTTPS功能，必须手动初始化和释放SSL环境，否则会出现SSL相关的隐形错误。

4. 缺失异常处理
   你的代码没有处理请求失败的情况，无法获取具体的错误信息，不利于排查问题。

修正后的代码 #

procedure TForm1.Button2Click(Sender: TObject);
var 
  httpsend: THTTPSend;
begin
  httpsend := THTTPSend.Create;
  try
    // 初始化OpenSSL库，这是Synapse实现HTTPS的前提
    if not InitSSLOpenSSL then
    begin
      ShowMessage('SSL初始化失败，请检查OpenSSL库文件是否存在');
      Exit;
    end;

    // 添加模拟浏览器的请求头，避免被服务器拦截
    httpsend.Headers.Add('User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/114.0.0.0 Safari/537.36');
    httpsend.Headers.Add('Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,*/*;q=0.8');
    httpsend.Headers.Add('Accept-Language: zh-CN,zh;q=0.8,en-US;q=0.5,en;q=0.3');

    // 直接调用HTTPMethod，让THTTPSend自动处理SSL连接
    if httpsend.HTTPMethod('GET', 'https://www.google.com') then
    begin
      Memo1.Lines.LoadFromStream(httpsend.Document);
      Memo1.Lines.Add('请求成功，状态码: ' + httpsend.ResultCode.ToString);
    end
    else
    begin
      Memo1.Lines.Clear;
      Memo1.Lines.Add('请求失败详情:');
      Memo1.Lines.Add('错误描述: ' + httpsend.Sock.LastErrorDesc);
      Memo1.Lines.Add('状态码: ' + httpsend.ResultCode.ToString);
    end;

    // 释放OpenSSL库资源
    DoneSSLOpenSSL;
  finally
    // 确保THTTPSend对象被正确释放，避免内存泄漏
    httpsend.Free;
  end;
end;

额外排查方向 #

• 检查OpenSSL库文件：确保你的程序运行目录下有对应的OpenSSL动态库（32位程序用libeay32.dll和ssleay32.dll，64位程序用libcrypto-1_1-x64.dll和libssl-1_1-x64.dll），缺失这些文件会导致SSL连接失败。
• 网络环境限制：确认你的网络可以正常访问Google，部分地区需要特殊网络配置，或者检查是否有防火墙、代理拦截了请求。
• 代理设置：如果你的网络通过代理访问外网，需要在THTTPSend中配置代理信息：

  httpsend.ProxyHost := '代理服务器地址';
  httpsend.ProxyPort := '代理端口';
  httpsend.ProxyUser := '代理用户名';
  httpsend.ProxyPass := '代理密码';
  

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