Delphi. RestServer. Как получить произвольный tjsonobject в качестве ответа сервера?

Всем привет, продолжаем говорить про RestServer, построенный на одном из лучших языков программирования Delphi.

Встала такая задача – получать баланс с сервиса SMSC.ru

Стандартный ответ сервера выглядит примерно так…

Причем 200,OK это результат функции, которая отработала на сервере по запросу. И этот результат типа string. Заказчик же попросил сделать что-то в духе…

Прочитав мануал MarcoCantu, на 39-40 страницах, раздел  RETURNING JSON O BJECTS AND VALUES, я пришел к выводу, что результатом функции должен быть JSON Object, немного поэкспериментировав, у меня получилось следующее

Ok, это уже интересно, правда? Выходит мы можем обмениваться любыми объектами таким образом. Вот часть кода моей программы, которая запрашивает баланс

В браузере запрашиваем

Внутри программы отрабатывает такая функция

Выходит все достаточно просто и элегантно как и все в Delphi.

This entry was posted in Delphi. Bookmark the permalink.

Leave a Reply