unicorn

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

Эту штуку смотрел тоже, но собрать не смог Она тоже работает поверх 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-данные правильно?