TNetHTTPClient и JSON-RPC

[unicorn]

Всем привет. 

Мне нужно отправить запрос к серверу в формате JSON-RPC. Вопрос - как в него запихнуть json-данные правильно?

[krapotkin]

Вики:

Все передаваемые данные — простые объекты, сериализованные в JSON Запрос — вызов определённого метода, предоставляемого удалённой системой. Он должен содержать три обязательных свойства:

• method — Строка с именем вызываемого метода.
• params — Массив объектов, которые должны быть переданы методу, как параметры.
• id — Значение любого типа, которое используется для установки соответствия между запросом и ответом.

вроде все понятно. в чем конкретно вопрос?

[unicorn]

есть строка с json-сериализованным объектом. Пусть str

Как мне ее отправить через NetHTTPClient.Post? 

Пробую:

with NetHTTPClient1 do
  begin
	ADatas := TStringList.Create;
      ADatas.Add(str);
      res := Post(aURL, ADatas).ContentAsString();
      Memo1.Lines.Add(res);
    finally
      ADatas.Free;
    end;

А ни фига.. Может не там или не так передаю? Форматирую как TJsonObject и одаю методом ToString, строка должна быть корректна. А сервер ругается в ответ...

[krapotkin]

так нужно саму строку смотреть

[unicorn]

try
    LJSONObject := TJsonObject.Create;
    Arr:= TJSONArray.Create;
    Arr.Add('captain');
    LJSONObject.AddPair('jsonrpc', '2.0');
    LJSONObject.AddPair('method', 'get_accounts');
    LJSONObject.AddPair('params', Arr);
    LJSONObject.AddPair('id', '1');
    str := LJSONObject.ToString;
  finally
    LJSONObject.Free;
    Arr.Free;
  end;

вот она родимая

[krapotkin]

от души рекомендую заменить TJSONObject на XSuperObject https://github.com/onryldz/x-superobject

код будет таким примерно

uses
  XSuperObject;
...


procedure TForm1.b1Click(Sender: TObject);
var
  x:ISuperObject;
  arr:ISuperArray;
  str:string;
begin
  X:=TSuperObject.Create();
  X.S['jsonrpc'] := '2.0';
  X.S['method'] := 'get_accounts';
  X.I['id'] := 1;
  arr:=TSuperArray.Create();
  arr.Add('captain');
  X.A['params']:=arr;
  ...
str:=X.AsJSON();
...

но для начала вам нужно убедиться, что для правильного запроса правильный ответ. ваша строка с образцом не совпадает только в id

у вас это строка, а в приведенных примерах - число. может, в этом проблема 

h:=THTTPClient.Create();
//  h.Accept := 'application/json'
//  h.AcceptCharSet := 'UTF-8';
  src:=TStringStream.Create('{"jsonrpc":"2.0","method":"get_accounts","id":1,"params":["captain"]}');
  res:=TStringStream.Create();
  resp:=h.Post(URL,src,res);
  if resp.StatusCode=200 then
  begin
    ShowMessage('Ответ'+sLineBreak+res.DataString);
  end;
  FreeAndNil(h);
  FreeAndNil(res);
  FreeAndNil(src);

так же может быть, нужно правильно указывать кодировку запроса-ответа и другие заголовки HTTP

проверьте этот код. а потом уже делайте JSON любым способом