unicorn

Пользователи
  • Публикаций

    6
  • Зарегистрирован

  • Посещение

Информация о unicorn

  • Звание
    Новичок

Посетители профиля

Блок последних пользователей отключён и не показывается другим пользователям.

  1. Затупил, и правда. После 7 особо и не работал с дельфями... Приходится восстанавливать навыки. Столько всего нового появилось, хрен все упомнишь )))
  2. Эту штуку смотрел тоже, но собрать не смог Она тоже работает поверх Indy, а как ее вкорячить на Berlin я не очень представляю...
  3. Есть необходимость работать с веб сокетами. И даже есть библиотека для этого http://esegece.com/websockets/order Но вот незадача, она требует Indy и Intraweb. Вопрос - как это собрать или где это найти под Berlin? И будет ли оно работать на мобильных платформах?
  4. unicorn

    TNetHTTPClient и JSON-RPC

    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; вот она родимая
  5. unicorn

    TNetHTTPClient и JSON-RPC

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

    TNetHTTPClient и JSON-RPC

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