Изменения в сериализации JSON в Delphi после обновления до Alexandria

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

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

Контекст проблемы

При обновлении кода из D2010 до Alexandria, включая кодовую базу MARS Curiosity, было замечено, что пустые строковые поля записей теперь не включаются в JSON. Например, запись TInventoryCheckResponse раньше возвращала все поля, включая пустые строки, но после обновления поля itemid больше не включались в результат.

Решение, предложенное сообществом

Andrea Magni предложил использовать опции сериализации для управления процессом. В частности, можно установить свойство SkipEmptyValues в DefaultMARSJSONSerializationOptions в значение False, чтобы решить проблему.

DefaultMARSJSONSerializationOptions.SkipEmptyValues := False;

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

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

function TInventoryCheckResponse.ToJSON: string;
var
  JsonWriter: TJWSWriter;
begin
  JsonWriter := TJWSWriter.Create(nil);
  try
    JsonWriter.Reset;
    JsonWriter.WriteObject(
      [ 
        'itemkey', itemkey,
        'itemid', itemid,
        'qtyavailable', qtyavailable
      ]);
    Result := JsonWriter.ResultString;
  finally
    JsonWriter.Free;
  end;
end;

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

Заключение

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

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

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

Изменение в сериализации JSON в Delphi после обновления до Alexandria привело к тому, что пустые строковые поля записей не включаются в итоговый JSON.

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

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

:: Главная :: Коллекции ::