delphi neon

Neon - JSON Serialization Library для Delphi

Что неоново

Neon - это библиотека сериализации Delphi, которая помогает вам преобразовать (вперед и назад) объекты и другие значения в JSON. Он поддерживает простые типы Delphi, а также сложные классы и записи. Neon был разработан с учетом отдыха , чтобы обмениваться чистыми данными между приложениями без «метаданных» или добавленных полей, на самом деле Neon - это двигатель сериализации JSON по умолчанию для библиотеки отдыха.

Пожалуйста, посмотрите на демонстрации, чтобы увидеть Neon в действии.

Неоновая главная демонстрация

Это основная демонстрация, где вы можете увидеть, как вы можете сериализовать/десериализовать простые типы, записи, классы, специфические типы Delphi (TStringList, Tdataset и т. Д.):

Неоновые тесты демонстрации

Эта новая демонстрация пытается сравнить стандартный двигатель сериализации TJSON с двигателем Tneon, с несколькими изменениями вы можете сравнить Tneon с другими двигателями сериализации:

Неоновое введение Холджера Флик (видео)

Общие функции

Конфигурация

Обширная конфигурация через интерфейс INeonConfiguration :

• Слово (без изменений, прописные, строчные, Pascalcase, Camelcase, Snake_case)
• Пользовательский случай (с помощью анонимного метода)
• Типы участников (поля, свойства)
• Возможность игнорировать «F», если вы решите сериализовать поля
• Видимость члена (частная, защищенная, публичная, опубликованная)
• Пользовательская регистрация сериализатора
• Используйте дату UTC в сериализации
• Авто создание членов NIL (объект)

Поддержка типов Delphi

Неон поддерживает (DE) сериализацию большинства стандартных типов Delphi, записей, массива и, конечно, классов. Классы могут быть сложными, как вы хотите, чтобы они были, могут содержать массив, (общие) списки, подклассы, записи и т. Д.

Простые значения

• Основные типы: строка, целое число, двойное, логическое, tdatetime

Сложные ценности

• Динамические массивы (основные типы, записи, классы и т. Д.)
• Записи с полями (основные типы, записи, классы, массивы и т. Д.)
• Занятия с областями (основные типы, записи, классы, массивы и т. Д.)
• Общие списки
• Словари (ключ должен быть из строки типа)
• Потоковые занятия

Пользовательские сериалы

• Унаследовать от TCustomSerializer и зарегистрируйте новый класс Serializer в конфигурации

Тодо

Код

• Больше модульных тестов

Условие

Эта библиотека была протестирована с Delphi 12 Athens , Delphi 11 Alexandria , Delphi 10.4 Sydney , Delphi 10.3 Rio , Delphi 10.2 Tokyo , но с минимальным количеством работы, которую она должна собирать с Delphi XE7 и выше

Библиотеки/подразделения зависимости

Эта библиотека не имеет зависимости от внешних библиотек/единиц.

Используются подразделения Delphi:

• System.json (dxe6+)
• System.rtti (D2010+)
• System.Generics.collections (D2009+)

Установка

Просто добавьте исходный путь «источник» в свой путь проекта Delphi, и ... вы готовы идти!

Примеры кода

Сериализовать объект

Использование урока утилиты TNEON

Самый простой способ сериализации и десеризации - это использовать утилиту TNeon :

Сериализация объекта:

 var
  LJSON: TJSONValue;
begin
  LJSON := TNeon.ObjectToJSON(AObject);
  try
    Memo1.Lines.Text := TNeon.Print(LJSON, True);
  finally
    LJSON.Free;
  end ;
end ;

ОБУЧАНИЕ ДЕСЕРИАЛИЗАЦИИ:

 var
  LJSON: TJSONValue;
begin
  LJSON := TJSONObject.ParseJSONValue(Memo1.Lines.Text);
  try
    TNeon.JSONToObject(AObject, LJSON, AConfig);
  finally
    LJSON.Free;
  end ;

Использование класса Tononerializer и Tneondeserializer

Используя классы TNeonSerializerJSON и TNeonDeserializerJSON , вы имеете больше контроля над процессом.

Сериализация объекта:

 var
  LJSON: TJSONValue;
  LWriter: TNeonSerializerJSON;
begin
  LWriter := TNeonSerializerJSON.Create(AConfig);
  try
    LJSON := LWriter.ObjectToJSON(AObject);
    try
      Memo1.Lines.Text := TNeon.Print(LJSON, True);
      MemoError.Lines.AddStrings(LWriter.Errors);
    finally
      LJSON.Free;
    end ;
  finally
    LWriter.Free;
  end ;
end ;

ОБУЧАНИЕ ДЕСЕРИАЛИЗАЦИИ:

 var
  LJSON: TJSONValue;
  LReader: TNeonDeserializerJSON;
begin
  LJSON := TJSONObject.ParseJSONValue(Memo1.Lines.Text);
  if not Assigned(LJSON) then
    raise Exception.Create( ' Error parsing JSON string ' );

  try
    LReader := TNeonDeserializerJSON.Create(AConfig);
    try
      LReader.JSONToObject(AObject, LJSON);
      MemoError.Lines.AddStrings(LWriter.Errors);
    finally
      LReader.Free;
    end ;
  finally
    LJSON.Free;
  end ;

Неоновая конфигурация

Это очень легко настроить неоновый ,

 var
  LConfig: INeonConfiguration;
begin
  LConfig := TNeonConfiguration.Default
    .SetMemberCase(TNeonCase.SnakeCase)     // Case settings
    .SetMembers(TNeonMembers.Properties)    // Member type settings
    .SetIgnoreFieldPrefix(True)             // F Prefix settings
    .SetVisibility([mvPublic, mvPublished]) // Visibility settings

    // Custom serializer registration
    .GetSerializers.RegisterSerializer(TGUIDSerializer)
  ;
end ;

---

Паоло Росси