Десериализация объектов в Delphi: восстановление типов с помощью SuperObject

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

Вопрос, который вы подняли, касается сериализации и десериализации объектов в Delphi с использованием компонента SuperObject. Вы хотите отправлять объекты и записи на удаленный узел и восстанавливать их, сохраняя их типы. Для этого вам необходимо сериализовать тип объекта в JSON, чтобы затем можно было восстановить его на стороне клиента.

Проблема

Вы работаете с записями, содержащими различные типы объектов в формате JSON. В частности, у вас есть запись TPmMessage, которая содержит поле Data типа ISuperObject, в которое могут быть включены различные типы, такие как TAlarms, TCommand и другие записи в виде JSON-объектов.

CASE 1

Вам необходимо сохранить имя типа (TRttiType.QualifiedName) в JSON-объекте для поля Data для возможности десериализации на другой стороне. Вы используете контекст TSuperRttiContext для сериализации объектов, но после восстановления из JSON вы не знаете, какой тип данных был в поле Data.

CASE 2

Вы решили добавить поле DataObjectType со значением QualifiedName для хранения информации о типе данных в JSON-объекте. Создали структуру TPmMessageData для сериализации, которая включает DataObjectType и DataObject типа ISuperObject. Сериализация такой структуры проходит успешно, но возникает вопрос о десериализации.

Вы пытались использовать метод AsType, но он требует явного указания типа, и вам кажется, что использование case для определения правильного типа является единственным решением.

Решение

Для решения проблемы десериализации объекта DataObject вы можете использовать следующий подход:

1. После чтения типа объекта из поля DataObjectType, найдите соответствующий тип в контексте TSuperRttiContext.
2. Используйте найденный тип для десериализации объекта DataObject.

Пример кода для десериализации:

var
  DataType: TRttiType;
begin
  DataType := ctx.Context.FindType(DecodedMsg.Data.DataObjectType);
  // Десериализация объекта в переменную соответствующего типа
  // Например, если DataObjectType является TAlarms, то:
  uals := ctx.AsType<TAlarms>(DecodedMsg.Data.DataObject);
end;

Альтернативный ответ

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

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

Подтвержденный ответ

Использование конвертера и инвертера в SuperObject может быть хорошей практикой для скрытия сложностей сериализации и десериализации. Вы можете определить методы SerialToJson и SerialFromJson для типа TPmMessage, что позволит автоматически обрабатывать сериализацию и десериализацию без необходимости использования case.

Заключение

Для улучшения структуры сообщений и упрощения процесса сериализации/десериализации с использованием SuperObject, вы можете рассмотреть предложенные подходы. Выбор метода зависит от ваших конкретных требований и предпочтений в разработке.

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

Задача связана с сериализацией и десериализацией объектов в Delphi, используя компонент SuperObject для восстановления типов с помощью механизмов RTTI и JSON.

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

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

:: Главная :: RTTI ::