Delphi.RobustServer.Обработка ошибок, интерфейсный класс TResponses и измерение оперативной памяти

Сделал обработку ошибок следующим образом

В модуле CommandGet сделал единый блок try / except

Теперь, если возникнет ошибка при обработке запроса, она не потеряется, а придет в понятном json формате, то есть вот так….

Кстати, здесь же можно посмотреть, что в статус баре появилось измерение оперативной памяти.

Возможно информация избыточная, над этим надо подумать, но в целом мне нравится. 


Класс TResponses

Как вы видели из кода выше, я использовал класс под интерфейсом –  TResponses. Давайте посмотрим на него более внимательно.  Ещё не все методы я заполнил, но в целом, подход, я думаю, понятен.

Вот, например, процедура ответа OK

Мы здесь используем superobject, заполняем его информацией ответа и отправляем обратно клиенту. Такой подход здорово экономит экран, иначе это бы все пришлось писать в каждом OnCommandGet.


Измерение оперативной памяти

Дописал измерение оперативной памяти, вывожу его в TStatusBar главной формы.

На главной форме

 

This entry was posted in Delphi. Bookmark the permalink.

Leave a Reply