Ошибка сериализации TObjectList в JSON с SuperObject в Delphi: решение проблемы

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

При работе с библиотекой SuperObject для сериализации объектов в JSON формат в среде разработки Delphi, пользователи могут столкнуться с проблемой, когда поля типа TObjectList не сериализуются корректно. В данном случае, поля generic list имеют значение FieldType как nil, из-за чего они игнорируются в процессе сериализации.

Описание проблемы

Предположим, у нас есть класс TMyObject, который содержит поле FLogs типа TObjectList<TLog>. При попытке сериализовать данный объект в JSON с помощью SuperObject, поля TObjectList не обрабатываются, поскольку в коде библиотеки присутствует проверка на FieldType, которая инициируется как nil для объектов данного типа.

TLogs = TObjectList<TLog>;
TMyObject = class(TObject)
private
  FLogs: TLogs;
end;

В функции ToClass SuperObject используется цикл для перебора свойств объекта и их добавления в JSON результат. Однако, для полей с generic list типом FieldType будет nil, из-за чего они пропускаются в процессе сериализации.

for f in Context.GetType(Value.AsObject.ClassType).GetFields do
  if f.FieldType <> nil then
  begin
    v := f.GetValue(Value.AsObject);
    Result.AsObject[GetFieldName(f)] := ToJson(v, Index);
  end;

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

Проблема заключается в том, как RTTI (Run-Time Type Information) создается в Delphi. Для корректной работы необходимо использовать ключевое слово __class__ при объявлении generic класса.

TLogs = class(TObjectList<TLog>);

После внесения этого изменения поля TObjectList будут корректно сериализоваться в JSON.

Альтернативное решение

Также можно использовать альтернативные методы для сериализации объектов, включая, но не ограничиваясь, использование специализированных библиотек или написание собственного кода для сериализации generic list.

Комментарии к решению

@menjaraz: По состоянию на момент обсуждения, данная проблема не была исправлена в новых релизах Delphi. Однако, использование ключевого слова __class__ при объявлении generic класса должно решить проблему с сериализацией TObjectList в JSON с помощью SuperObject.

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

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

При работе с библиотекой SuperObject в Delphi возникает проблема с сериализацией полей типа TObjectList в JSON, которую можно решить, используя ключевое слово `__class__` при объявлении generic класса.

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

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

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