IdHttp：如何处理 json 请求和响应

Question

我遇到过一些使用JSON 进行请求和响应的网站
我遇到两种类型：
1- application/x-www-form-urlencoded 作为请求并返回响应 application/json 内容类型
2- application/json 内容类型请求和响应
在type 1 我尝试使用
mIdHttp.Response.ContentType := 'application/json';
更改响应内容类型 但是使用 http 分析器我可以看到它没有改变，它仍然是 text/html
现在我不知道问题是否在于我无法更改内容类型但我不知道如何处理json！
关于json 的几个问题：
1- 发帖时我必须对 json 数据进行编码吗？如何？
2-如何解析 json 响应代码？如何得到它？是否需要某种编码或特殊转换？
3- json 的哪种 idhttp 设置会随每个站点而变化并需要配置？

我知道我的问题听起来有点笼统，但所有其他问题都非常具体，并且在处理 'application/json' 内容类型时没有解释基础知识。

编辑 1：
感谢 Remy Lebeau 的回答，我能够成功地使用 type 1
但我仍然无法发送JSON 请求，有人可以分享一个工作示例吗，这是发布信息的网站之一，请使用此示例：

一个重要提示：这个特定网站的帖子和请求内容完全一样！这让我感到困惑，因为在该站点上，我指定了一个 start date 和一个 end date 然后单击 folder like icon 并发送此 post（您可以在上面看到），并且 result 应该是links（确实如此）但是不仅出现在 request content 中，它们还出现在 post 中！ （我也在尝试获取链接，但在post 链接，我想要的东西也正在发送，我怎么能发布我没有的东西！！？）

只是为了更清楚这里是我填写日期和我提到的图标的地方：

Answer 1

您不能指定响应的格式，除非请求的资源提供了明确的输入参数或专用 URL 用于该确切目的（即请求以 html、xml、json 等形式发送响应）。设置TIdHTTP.Response.ContentType 属性是没有用的。它将被响应的实际 Content-Type 标头覆盖。

要在请求中发送 JSON，您必须将其发布为TStream，如TMemoryStream 或TStringStream，并根据需要设置TIdHTTP.Request.ContentType，例如：

var
  ReqJson: TStringStream;
begin
  ReqJson := TStringStream.Create('json content here', TEncoding.UTF8);
  try
    IdHTTP1.Request.ContentType := 'application/json';
    IdHTTP1.Post(URL, ReqJson);
  finally
    ReqJson.Free;
  end;
end;

要接收 JSON，TIdHTTP 也可以

1. 将其返回为 String（使用服务器报告的字符集解码）：

   var
     ReqJson: TStringStream;
     RespJson: String;
   begin
     ReqJson := TStringStream.Create('json content here', TEncoding.UTF8);
     try
       IdHTTP1.Request.ContentType := 'application/json';
       RespJson := IdHTTP1.Post(URL, ReqJson);
     finally
       ReqJson.Free;
     end;
     // use RespJson as needed...
   end;
   

2. 将原始字节写入您选择的输出TStream：

   var
     ReqJson: TStringStream;
     RespJson: TMemoryStream;
   begin
     RespJson := TMemoryStream.Create;
     try
       ReqJson := TStringStream.Create('json content here', TEncoding.UTF8);
       try
         IdHTTP1.Request.ContentType := 'application/json';
         RespJson := IdHTTP1.Post(URL, ReqJson, RespJson);
       finally
         ReqJson.Free;
       end;
       RespJson.Position := 0;
       // use RespJson as needed...
     finally
       RespJson.Free;
     end;
   end;
   

TIdHTTP.Response.ResponseCode（和TIdHTTP.ResponseCode）属性中提供了 HTTP 响应代码。