Универсальная обработка JSON-запросов в Delphi: словарь для сокращения кода

Delphi , Компоненты и Классы , Классы

В данной статье мы рассмотрим, как можно упростить и унифицировать процесс обработки JSON-запросов в программах, разработанных с использованием Delphi. Проблема, с которой сталкиваются разработчики, заключается в необходимости многократного копирования и вставки кода для обработки различных типов запросов. Это не только утомительно, но и ведет к увеличению объема кода и возможным ошибкам при его поддержке.

Проблема

Разработчик хочет реализовать модуль RPC (Remote Procedure Call), в котором различные запросы кодируются в формате JSON. Эти запросы должны быть декодированы и обработаны с помощью обработчика запросов. В конце обработки должен возвращаться соответствующий ответ. Пример кода, представленный разработчиком, выглядит следующим образом:

type
  IRequestHandler = interface
    function Handle(const Request: TAaaRequest): TResponse;
    function Handle(const Request: TBbbRequest): TResponse;
  end;

  TDecoder = class
  public
    class function Decode(const Json: TJsonObject; const RequestHandler: IRequestHandler): TResponse;
  end;

class function TDecoder.Decode(const Json: TJsonObject; const RequestHandler: IRequestHandler): TResponse;
var
  Method: string;
  Request: TObject;
begin
  Method := Json['method'].AsString;
  // Далее следует код, который копируется для каждого типа запроса
end;

Решение

Разработчик предлагает использовать словарь для хранения информации о классах запросов, что позволит избежать дублирования кода. Пример класса TDecoder с использованием словаря:

TDecoder = class
private
  FRequestTypes: TDictionary<string, TClassInfo>;
public
  constructor Create;
  destructor Destroy; override;
  function Decode(const Json: TJsonObject; const RequestHandler: IRequestHandler): TResponse;
end;

constructor TDecoder.Create;
begin
  FRequestTypes := TDictionary<string, TClassInfo>.Create;
  // Добавление типов запросов в словарь
end;

destructor TDecoder.Destroy;
begin
  FRequestTypes.Free;
  inherited;
end;

function TDecoder.Decode(const Json: TJsonObject; const RequestHandler: IRequestHandler): TResponse;
begin
  // Универсальный метод декодирования
end;

Подтвержденное решение

Разработчик на правильном пути, но необходимо уточнить некоторые детали. Вместо TClassInfo следует использовать метакласс, который будет представлять классы запросов. Предположим, что все классы запросов наследуются от базового класса TRequest. Тогда определим TRequestClass следующим образом:

type
  TRequestClass = class of TRequest;

Метод FromJSON должен быть виртуальным, чтобы каждый класс мог реализовать его по-своему. В функции Decode необходимо использовать TRequest вместо TObject для переменной Request.

Также необходимо пересмотреть интерфейс IRequestHandler. Вместо этого можно использовать виртуальное диспетчеризование, предоставив каждому объекту TRequest виртуальный метод Handle. Это позволит убрать интерфейс IRequestHandler и обрабатывать запросы непосредственно в классах запросов.

Если же хочется разделить обработку запросов и их самих, можно определить интерфейс IRequestHandler и зарегистрировать обработчики в словаре, аналогично тому, как регистрируются классы запросов.

Вывод

Использование словаря для хранения информации о классах запросов позволяет значительно упростить и ускорить процесс обработки JSON-запросов в программах на Delphi, минимизируя количество дублирующегося кода и упрощая поддержку кода в будущем.

Создано по материалам из источника по ссылке.

В статье обсуждается проблема дублирования кода при обработке JSON-запросов в Delphi и предлагается решение с использованием словаря для универсальной обработки запросов.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Классы ::