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- какая настройка idhttp для json изменяется с каждым сайтом и нуждается в настройке?

Я понимаю, что мои вопросы звучат немного повсеместно, но все остальные вопросы очень специфичны и не объясняют основы при работе с типом контента 'application/json'.

Edit 1:
благодаря Реми Лебо ответ я был в состоянии успешно работать с type 1
, но я до сих пор проблемы с отправкой JSON запрос, может кто-то пожалуйста, поделитесь в рабочий пример, это один из сайты размещения информации, пожалуйста, используйте это для примера:

Одно важное замечание: этого конкретного сайта и после запроса Conte nt точно подобны друг другу! и это расстраивает меня, потому что на сайте, я укажу 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 (декодировано с использованием сервера-rep orted кодировок):

   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; 
   

Код ответа HTTP доступен в свойстве TIdHTTP.Response.ResponseCode (и TIdHTTP.ResponseCode).