Как исправить ошибку недостаточности RTTI при конвертации объекта в JSON в Delphi Berlin 10.1

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

При работе с технологией RapidTypeData (RTTI) в Delphi, разработчики могут столкнуться с различными проблемами, в том числе и с ошибкой недостаточности RTTI. Это может произойти, когда пытаемся преобразовать объект в формат JSON в режиме выполнения. В частности, в Delphi Berlin 10.1 пользователи могут столкнуться с исключением EInsufficientRTTI, при попытке конвертации объекта TMyPacket в JSON.

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

Объект TMyPacket определен следующим образом:

{$M+}
{$TYPEINFO ON}
{$METHODINFO ON}
{$RTTI EXPLICIT METHODS([vcPublic, vcPublished]) PROPERTIES([vcPublic, vcPublished])}
TMyPacket = class(TObject)
  ...
  published
    property ID: TGUID read FID write FID;
    property ToIP: string read FToIP write FToIP;
    property ToPort: integer read FToPort write FToPort;
    ...
end;

При попытке конвертации объекта fPacket в JSON с помощью метода TJson.ObjectToJsonString(fPacket) возникает ошибка EInsufficientRTTI.

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

Проблема заключается в том, что RTTI не поддерживает прямое сериализацию типов, таких как TGUID. Для решения этой проблемы можно создать свой перехватчик типов для TGUID:

type
  TGuidInterceptor = class(TJSONInterceptor)
  public
    function StringConverter(Data: TObject; Field: string): string; override;
    procedure StringReverter(Data: TObject; Field: string; Arg: string); override;
  end;

function TGuidInterceptor.StringConverter(Data: TObject;
  Field: string): string;
var
  ctx: TRttiContext;
begin
  Result := ctx.GetType(Data.ClassInfo).GetField(Field).GetValue(Data).AsType<TGuid>.ToString;
end;

procedure TGuidInterceptor.StringReverter(Data: TObject; Field, Arg: string);
var
  ctx: TRttiContext;
begin
  ctx.GetType(Data.ClassInfo).GetField(Field).SetValue(Data, TValue.From(TGuid.Create(Arg)));
end;

И затем пометить поле соответствующим образом:

[JsonReflect(ctString, rtString, TGuidInterceptor)]
FID: TGUID;

Также стоит отметить, что данное решение работает только с использованием компонента Data.DBXJSONReflect, а не REST.JSONReflect.

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

Если использование перехватчика типов не представляется возможным, можно использовать геттеры и сеттеры для поля ID вместо прямого доступа к полю:

TMyPacket = class(TObject)
  ...
  procedure SetID(const value: string);
  function GetID: string;
  ...
  published
    property ID: string read GetID write SetID;
    ...
end;

procedure TMyPacket.SetID(const value: string);
begin
  FID := StringToGUID(value);
end;

function TMyPacket.GetID: string;
begin
  Result := GUIDToString(FID);
end;

Таким образом, при сериализации будет создаваться строка для поля ID, и вы сможете получить TGUID значение через публичное свойство IDValue.

Заключение

Ошибка недостаточности RTTI при конвертации объекта в JSON в Delphi Berlin 10.1 может быть решена путем создания перехватчика типов для TGUID или использования геттеров и сеттеров для сериализации. Важно убедиться, что используются правильные компоненты для работы с JSON, и что код компилируется с учетом всех необходимых директив.

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

Вопрос связан с решением проблемы недостаточности RTTI при конвертации объекта в формат JSON в среде разработки Delphi Berlin 10.1, возникающей из-за невозможности сериализации определенных типов, таких как TGUID.

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

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

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