Работа с вложенными объектами в Delphi: сериализация и десериализация с использованием абстрактных типов и кастомного JSONInterceptor

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

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

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

Пользователь хочет использовать встроенные функции TJson.JsonToObject<T> и TJson.ObjectToJsonObject для сериализации и десериализации объекта, содержащего вложенные объекты, один из которых является абстрактным типом. В частности, рассматриваются классы TAngPos, TPositionstyp, TPositionstypArtikel, TPositionstypAngPosKonf и TArtikel. После десериализации объект проверяется на принадлежность к конкретным типам, но это не дает желаемого результата.

Примеры классов и JSON

Классы определены следующим образом:

type
  TAngPos = class(TObject)
    // ...
    FPositionstyp: TPositionstyp; // абстрактный тип
  end;

type
  TPositionstyp = class(TObject)
    // ...
  end;

type
  TPositionstypArtikel = class(TPositionstyp);

type
  TPositionstypAngPosKonf = class(TPositionstyp)
    // ...
  end;

type
  TArtikel = class(TObject)
    // ...
  end;

Соответствующие JSON-строки для TPositionstypArtikel и TPositionstypAngPosKonf выглядят следующим образом:

// Пример JSON для TPositionstypArtikel
{
  "primkey": 23930,
  // ...
  "positionstyp": {
    "artikel": {
      // ...
    }
  }
}

// Пример JSON для TPositionstypAngPosKonf
{
  "primkey": 2,
  // ...
  "positionstyp": {
    "grundeinheit": {
      // ...
    },
    "einbaukomponenten": {
      "ownsObjects": true,
      "listHelper": [
        // ...
      ]
    },
    "artikel": {
      // ...
    }
  }
}

Подход к решению

Поскольку стандартные функции не позволяют определить тип вложенного объекта абстрактного типа, пользователь рассматривает возможность использования кастомного JSONInterceptor. Однако, прямо из контекста вопроса не ясно, как именно можно использовать Interceptor для решения задачи.

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

Пользователь нашел решение, изменив структуру классов. Теперь класс TAngPos содержит отдельную переменную FPositionstypAngPosKonf, которая может быть nil. Класс TPositionstyp и TPositionstypArtikel были исключены из структуры, а TArtikel теперь является прямым полем TAngPos. Таким образом, структура классов выглядит следующим образом:

type
  TAngPos = class(TObject)
    // ...
    FArtikel: TArtikel;
    FPositionstypAngPosKonf: TPositionstypAngPosKonf; // может быть nil
  end;

type
  TPositionstypAngPosKonf = class(TObject)
    // ...
  end;

type
  TArtikel = class(TObject)
    // ...
  end;

Заключение

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

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

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

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

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

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