Преобразование JSON в объект на Delphi: проблемы и решения

Delphi , Технологии , Объектно-ориентированное программирование

В статье мы рассмотрим проблему преобразования строки JSON в объекты собственного класса при использовании компонента TJSON из библиотеки JSON для Delphi. Основываясь на контексте, предоставленном пользователем, мы увидим, как заданная операция не проходит через установщики свойств (setters), что приводит к неправильной работе с модифицирующими методами.

Введение

В современных приложениях часто возникает необходимость работы с данными в формате JSON. Библиотека JSON для Delphi предоставляет удобные инструменты для преобразования JSON-строк в объекты, написанные на Object Pascal. Однако, как и любая технология, она имеет свои особенности.

Проблема

Рассмотрим пример класса TClasse, который содержит свойства с установщиками (Setid и SetNome). При использовании метода JsonToObject для создания экземпляра класса из JSON-строки { "id" : 12, "nome" : "abc" }, ожидается, что значения будут присвоены через установщики свойств. Однако, фактически, значения присваиваются напрямую полям класса, минуя установщики.

TClasse = class
private
    Fid: integer;
    Fnome: string;
    procedure Setid(const Value: integer);
    procedure SetNome(const Value: string);
published
    property id : integer read Fid write Setid;
    property nome : string read Fnome write SetNome;
end;

procedure TClasse.SetNome(const Value: string);
begin
    Fnome := Value;
    Fnome := 'testing: '+Fnome; // Модификация значения
end;

// Использование метода
cl := TJSON.JsonToObject<TClasse>('{ "id" : 12, "nome" : "abc" }');

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

В соответствии с комментариями в контексте, проблема действительно существует и связана с тем, что библиотека использует поля вместо свойств для сериализации. Это подтверждается отчетом о проблеме (https://quality.embarcadero.com/browse/RSP-26262).

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

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

TJSON_Respond = class
public
    [JSONName('id')] id: Integer;
    [JSONName('nome')] nome: String;
end;

// Использование нового класса
cl := TJson.JSONToObject<TJSON_Respond>('{ "id" : 12, "nome" : "abc" }');

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

Заключение

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

Эта статья призвана помочь разработчикам, столкнувшимся с подобными проблемами, найти быстрое и эффективное решение.

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

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

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

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

:: Главная :: Объектно-ориентированное программирование ::