Delphi中IdHttp组件异常非200获取返回JSON数据

参考原文：https://www.atozed.com/forums/thread-771.html?highlight=400+Bad+Request

另外还有一篇文章说明也可参考 http://www.sumweb.net/archives/1666

使用您显示的确切代码，我没有收到“ HTTP / 1.1 400 错误的 请求”响应。我收到“ HTTP / 1.1 400 ”（没有“错误 请求”）响应。但更重要的是，响应正文包含以下JSON文档：

码：

{"error":"invalid_grant","error_description":"The user name or password is incorrect."}

您可以通过捕获引发的EIdHTTPProtocolException并读取其ErrorMessage属性来访问该JSON ：

码：

try
 Result := lHTTP.Post(HttpAutenticazione+'/auth/signin', lParamList);
except
 on E: EIdHTTPProtocolException do begin
   // use E.ErrorMessage as needed...
 end
end;

或者，您可以启用TIdHTTP的hoNoProtocolErrorException和hoWantProtocolErrorContent标志，然后Post（）将不会引发EIdHTTPProtocolException，并且返回的字符串将为JSON：

码：

lHTTP.HTTPOptions := lHTTP.HTTPOptions + [hoNoProtocolErrorException, hoWantProtocolErrorContent];
Response := lHTTP.Post(HttpAutenticazione+'/auth/signin', lParamList);
if (lHTTP.ResponseCode div 100) <> 2 then
begin
 // use Response as needed...
end else
 Result := Response;