Создание JSON-массива в Delphi 10.2 без обертки в строку "MyArray"

Delphi , Синтаксис , Массивы

Создание JSON-массива в Delphi без обертки в строку "MyArray"

Введение

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

Предварительные сведения

JSON (JavaScript Object Notation) - это легковесный формат обмена данными, широко используемый для передачи информации между сервером и клиентом, а также для хранения данных в конфигурационных файлах и т. д. В Delphi для работы с JSON часто используются специальные библиотеки, такие как JsonDataObjects и System.JSON, которые позволяют легко создавать и обрабатывать JSON-структуры.

Шаги для создания JSON без имени

Чтобы создать JSON-массив без обертки в строку в Delphi, вам нужно создать корневым объектом сам массив. Вот примеры использования двух популярных библиотек:

Использование библиотеки JsonDataObjects

uses
  JsonDataObjects;

const
  JSON_ARRAY =
    '[{"videos":"Hello.MOV","render-status":"ready","output":"test\\out1.mov"},{"videos":"123.MOV","render-status":"ready","output":"test\\out1.mov"}]';

procedure TJsonTests.BuildArrayTest;
var
  A: TJsonArray;
  O: TJsonObject;
  V: string;
begin
  A := TJsonArray.Create;
  try
    O := A.AddObject;
    O.S['videos'] := 'Hello.MOV';
    O.S['render-status'] := 'ready';
    O.S['output'] := 'test\out1.mov';

    O := A.AddObject;
    O.S['videos'] := '123.MOV';
    O.S['render-status'] := 'ready';
    O.S['output'] := 'test\out1.mov';

    CheckEquals(2, A.Count);
    V:= A.ToJSON();
    CheckEquals(JSON_ARRAY, V);
  finally
    A.Free;
  end;
end;

Использование библиотеки System.JSON

uses
  System.JSON;

function CreateArray: TJSONArray;
var
  LTempObject: TJSONOBject;
begin
  Result := TJSONArray.Create;

  LTempObject := TJSONOBject.Create;
  LTempObject.AddPair('videos', 'Hello.MOV');
  LTempObject.AddPair('render-status', 'ready');
  LTempObject.AddPair('output', 'test\out1.mov');
  Result.AddElement(LTempObject);

  LTempObject := TJSONOBject.Create;
  LTempObject.AddPair('videos', '123.MOV');
  LTempObject.AddPair('render-status', 'ready');
  LTempObject.AddPair('output', 'test\out1.mov');
  Result.AddElement(LTempObject);
end;

var
  LJSON: TJSONArray;
begin
  LJSON := CreateArray;
  // Вывод строки, содержащей JSON без обертки
  memo.Text := LJSON.ToJSON;
end;

Вывод

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

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

Создание JSON-массива в Delphi без использования обертки в строку, например 'MyArray', с использованием популярных библиотек для работы с JSON.

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

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

:: Главная :: Массивы ::