unicorn

56 минут назад, Zawuza сказал:

У меня во всех имеющихся версиях (Starter и Enterprise) инди есть, ничего добавлять не надо... 

Затупил, и правда. После 7 особо и не работал с дельфями... Приходится восстанавливать навыки. Столько всего нового появилось, хрен все упомнишь )))

1 час назад, Zawuza сказал:

Я работал с вот этой штукой, правда, я писал сервер, клиент был не на дельфи. Нареканий (кроме плохой документации) у меня не было. Да и бесплатно.

Эту штуку смотрел тоже, но собрать не смог  Она тоже работает поверх Indy, а как ее вкорячить на Berlin я не очень представляю... 

Есть необходимость работать с веб сокетами. И даже есть библиотека для этого http://esegece.com/websockets/order

Но вот незадача, она требует Indy и Intraweb. Вопрос - как это собрать или где это найти под Berlin? И будет ли оно работать на мобильных платформах?

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;

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

есть строка с 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, строка должна быть корректна. А сервер ругается в ответ...

Всем привет. 

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