Indy 10 POST запрос

[DimaBr]

Всем добрый день !
Нужна помощь, т.к. с Indy никогда не работал.

Имеется XE8 и Indy10
Задача - получить GET запросом одни данные, затем получить POST запросом вторые.
С GET запросом проблем нет, json получаю, нос POST запросом никак не могу разобраться.

В документации сайта описан пример POST запроса:
curl -X POST "https://............................." -H "accept: application/json" -H "Authorization: ........................" -H "Content-Type: application/json" -d "{"Ids":[..............]}"


Пытаюсь так:

var IdHTTP1: TidHTTP;
      api_token, get_url: String;
      S: TStringList;
 
 
S:=TStringList.create;
get_url:='https://.............................................';
api_token:='...............................................';
IdHTTP1:=TidHTTP.Create(Application);
IdHTTP1.CookieManager:=IdCookieManager1;
IdHTTP1.IOHandler:=IdSSLIOHandlerSocketOpenSSL1;
 
IdHTTP1.Request.ContentType:='application/json';
IdHTTP1.Request.CustomHeaders.AddValue('Authorization', api_token);
 
S.Add('Ids='+ '107775014');
Memo1.Lines.Add(IdHTTP1.Post(get_url, S));
 
IdHTTP1.Disconnect;
IdHTTP1.Free;
S.Free;

В итоге получаю 400 ошибку.
Подскажите как правильно формировать POST запрос?

[ForenLi]

Ну вам же json надо отправлять, а вы отправляете строку Ids=107775014

[DimaBr]

Сообщение от ForenLi

Ну вам же json надо отправлять, а вы отправляете строку Ids=107775014

В том-то и дело, надо отправить Ids=107775014 и получить от сервера ответ в виде json

[ForenLi]

Сообщение от DimaBr

В документации сайта описан пример POST запроса:
curl -X POST "https://............................." -H "accept: application/json" -H "Authorization: ........................" -H "Content-Type: application/json" -d "{"Ids":[..............]}"

Читайте внимательнее - нет там строки

[DimaBr]

Сообщение от ForenLi

Читайте внимательнее - нет там строки

А как тогда правильно отправить json?

У меня в Memo1 есть json полученный методом GET где и есть данные Ids

Пробую так:

SL.Add(Memo1.Text);
Memo1.Clear;
Memo1.Lines.Add(IdHTTP1.Post(get_url, SL));

Получаю ответ сервера:
{"error":false,"errorText":"","addi tionalErrors":null,"data":[]}

[DimaBr]

Сообщение от ForenLi

Читайте внимательнее - нет там строки

Спасибо за наводку, все получилось с таким кодом:

SL.Add('{"Ids": [107775014]}');
Memo1.Lines.Add(IdHTTP1.Post(get_url, SL));