Как удалить метаданные в JSON при использовании TJsonMarshal в Delphi

Delphi , Программа и Интерфейс , Процессы и Сервисы

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

Статья:

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

Проблема: При использовании TJsonMarshal для сериализации объектов в Delphi, в результирующем JSON могут появляться метаданные, такие как поля type, id и fields. Это может привести к дополнительным сложностям при парсинге JSON на платформах, не поддерживающих эти метаданные.

Пример кода:

marshal := TJSONMarshal.Create(TJSONConverter.Create);
jsonString := marshal.Marshal(myObject).ToString;

Результат работы данного кода будет содержать метаданные:

{"type":"WJsonObj.TWPedido","id":1,"fields":
  {"Numero":1234,"Data":41606.7632623727,"VlrTotal":2543,
  "Produtos":
    [{"type":"WJsonObj.TWProdutoPedido","id":2,"fields":
      {"Codigo":"P001","Descr":"Computador","Qtde":1,"VrUnitario":1500}},
     ...
    ]
  }
}

Решение проблемы: Чтобы получить "чистый" JSON без метаданных, рекомендуется использовать классы System.JSON и REST.JSON. Пример использования:

var
  foo, newfoo: TFoo;
  s: string;
begin
  foo := TFoo.Create;
  s := TJson.ObjectToJsonString(foo);
  newfoo := TJson.JsonToObject<TFoo>(s);
end;

Однако, при использовании списков могут появляться дополнительные поля, такие как ownsObject и arrayManager. В этом случае рекомендуется использовать TArray<...> вместо TList. Если стандартные средства не удовлетворяют требованиям, стоит рассмотреть использование сторонних библиотек для работы с JSON.

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

Подтвержденный ответ: Для получения "чистого" JSON без метаданных, стоит перейти на использование типов с встроенной поддержкой встроенного функционала для JSON, таких как TArray, в котором уже запланирована оптимизация для работы с встроенными средствами сериализации в Delphi, представленными в System.JSON и REST.JSON.

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

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

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

Вопрос затрагивает проблемы сериализации и десериализации объектов в 'чистый' JSON без метаданных с использованием компонента `TJsonMarshal` в среде разработки Delphi, важного для обеспечения совместимости с различными платформами.

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

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

:: Главная :: Процессы и Сервисы ::