使用TIdHTTP.Post调用RESTful服务时，HTTP 400错误响应读取异常求助

这个问题我之前也碰到过，核心原因通常是响应的压缩处理没配置好或者字符编码不匹配，导致你读到的是压缩后的二进制数据（看起来像不可打印字符），而不是服务器实际返回的JSON错误信息。下面给你一步步的解决方案：

1. 启用自动解压压缩响应 #

很多REST服务会对响应（包括错误响应）启用gzip/deflate压缩，而TIdHTTP默认不会自动处理这种压缩。你需要添加TIdCompressorZlib组件，并关联到TIdHTTP的Compressor属性：

// 在窗体/数据模块中添加TIdCompressorZlib组件，命名为IdCompressorZlib1
IdHTTP1.Compressor := IdCompressorZlib1;
IdHTTP1.HandleRedirects := True; // 顺带开启重定向处理，避免额外问题

这样TIdHTTP会自动解压服务器返回的压缩响应，你就能读到正常的文本内容了。

2. 明确设置请求和响应的字符编码 #

发送JSON时，一定要指定正确的Content-Type和字符集，确保服务器能正确解析你的请求，同时也让TIdHTTP知道如何解析响应：

// 设置请求头部
IdHTTP1.Request.ContentType := 'application/json; charset=utf-8';
IdHTTP1.Request.Accept := 'application/json';
IdHTTP1.Request.AcceptEncoding := 'gzip, deflate'; // 告诉服务器我们支持压缩响应

在捕获异常时，也要确保响应的字符集正确（有些服务器可能没在响应头里明确指定）：

try
  IdHTTP1.Post(URL, JSONContent);
except
  on E: EIdHTTPProtocolException do
  begin
    // 强制设置响应字符集为UTF-8（根据你的服务实际情况调整）
    E.Response.CharSet := 'utf-8';
    // 现在读取Response.Content应该就是正常的JSON了
    ShowMessage('错误响应: ' + E.Response.Content);
  end;
end;

3. 避免直接读取Exception.Message #

EIdHTTPProtocolException的Message属性通常只是简单的HTTP错误描述（比如"Bad Request"），真正的错误JSON在Response.Content里，所以一定要读取这个属性，而不是Message。

为什么会出现"有时能读到，有时读不到"的情况？ #

这大概率是服务器的压缩策略：某些情况下服务器返回的错误响应没压缩（比如错误内容很短），这时你能读到正常JSON；而当错误内容较长时，服务器启用了压缩，你没配置解压，就读到了压缩后的二进制数据（不可打印字符）。

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