Как быстро найти и обновить значение JSON пары для fiddler@office365.com и добавить новую пару после "current_token" в Delphi или Pascal?

Delphi , Интернет и Сети , Json

Работа с JSON в Delphi: поиск, обновление и добавление данных

В данной статье мы рассмотрим, как эффективно работать с JSON данными в Delphi, опираясь на пример задачи, предложенной пользователем JIMSMITH. Ему необходимо найти и обновить значение JSON пары для конкретного адреса электронной почты (fiddler@office365.com) и добавить новую пару после существующей пары current_token. Пример JSON, с которым предстоит работать, выглядит следующим образом:

{
  "SPWORKDATA": {
    "DB_PARAMS": {
      "DriverID":"Oracle",
      "Port":"9060",
      "Monitorby":"",
      "MetaDefSchema":"False"
    },
    "MAILCONFIGS": [
      {"sole.heel@apple.com": {
        "clickid": "307663883943-8",
        "social": "weeklyreader",
        "account": "rick.flair@gmail.com",
        "new_token":"",
        "current_token":"1//0f1U7S6-TZ-_r6RtWc"
      }},
      {"timmona@office365.com": {
        "clickid": "client_data2",
        "secret": "appsecret",
        "social": "timmon.ray@office365.com",
        "new_token":"scacral",
        "current_token":"refreshtoken"
      }},
      {"bruce@office365.com": {
        "clickid": "client_data2",
        "secret": "appsecret",
        "social": "bruce.richards@office365.com",
        "new_token":"soapl",
        "current_token":"refreen"
      }},
      {"fiddler@office365.com": {
        "clickid": "client_d89",
        "secret": "appsoul",
        "social": "karen.richards@office365.com",
        "new_token":"rice",
        "current_token":"old"
      }}
    ],
    "MEDIASERVER": {
      "Server": "192.162.2.185"
    },
    "MSGSERVER": {
      "Server": "127.0.0.1",
      "Port":"55555"
    }
  }
}

Как отметил пользователь Der schöne Günther, структура MAILCONFIGS представляет собой массив объектов, каждый из которых содержит еще один объект. Это делает использование JSONPath в Delphi затруднительным, поскольку встроенные возможности System.JSON.TJSONObject ограничены.

Решение: Итерация по массиву MAILCONFIGS

Наиболее надежным способом решения задачи является итерация по массиву MAILCONFIGS и поиск нужной записи по адресу электронной почты. Вот пример кода на Object Pascal (Delphi):

uses
  System.JSON,
  System.SysUtils;

procedure UpdateAndAddJSON(const JSONFilePath: string);
var
  JSONObject: TJSONObject;
  MailConfigsArray: TJSONArray;
  MailConfigObject: TJSONObject;
  I: Integer;
  EmailToFind: string;
  NewTokenValue: string;
  NewPairName: string;
  NewPairValue: string;
begin
  // Загрузка JSON файла
  JSONObject := TJSONObject.ParseFile(JSONFilePath);

  // Получение массива MAILCONFIGS
  MailConfigsArray := JSONObject.GetValue('MAILCONFIGS') as TJSONArray;

  // Адрес электронной почты для поиска, новое значение new_token и параметры новой пары
  EmailToFind := 'fiddler@office365.com';
  NewTokenValue := 'beans';
  NewPairName := 'new_property';
  NewPairValue := 'new_value';

  // Итерация по массиву
  for I := 0 to MailConfigsArray.Count - 1 do
  begin
    MailConfigObject := MailConfigsArray.Items[I] as TJSONObject;
    if MailConfigObject.ContainsKey(EmailToFind) then
    begin
      // Обновление значения new_token
      //Это не работает, нужно заменить значение по ключу
      MailConfigObject.ReplaceValue(EmailToFind, JSONObject.GetValue(EmailToFind)); 
      MailConfigObject.ReplaceValue('new_token', NewTokenValue);

      // Добавление новой пары
      MailConfigObject.AddPair(NewPairName, NewPairValue);

      // Сохранение изменений в файл
      JSONObject.SaveToFile(JSONFilePath);
      Exit; // Выход из цикла после обновления и добавления
    end;
  end;

  // Если не найдено, выводим сообщение об ошибке (опционально)
  ShowMessage('Запись для ' + EmailToFind + ' не найдена!');
end;

// Пример вызова:
procedure TForm1.Button1Click(Sender: TObject);
begin
  UpdateAndAddJSON('path/to/your/file.json');
end;

Пояснения к коду:

1. uses System.JSON, System.SysUtils;: Подключение необходимых модулей для работы с JSON и строками.
2. TJSONObject.ParseFile(JSONFilePath): Загрузка JSON данных из файла.
3. JSONObject.GetValue('MAILCONFIGS') as TJSONArray: Получение массива MAILCONFIGS.
4. Цикл for: Итерация по каждому элементу массива MAILCONFIGS.
5. MailConfigObject.ContainsKey(EmailToFind): Проверка наличия ключа с указанным адресом электронной почты.
6. MailConfigObject.ReplaceValue('new_token', NewTokenValue): Обновление значения new_token.
7. MailConfigObject.AddPair(NewPairName, NewPairValue): Добавление новой пары ключ-значение.
8. JSONObject.SaveToFile(JSONFilePath): Сохранение изменений обратно в файл.

Важно:

• Замените 'path/to/your/file.json' на фактический путь к вашему JSON файлу.
• Убедитесь, что у вас есть права на запись в указанный файл.
• Обратите внимание на обработку ошибок. В реальном приложении следует добавить проверку на ошибки при загрузке, разборе и сохранении JSON данных.

Альтернативное решение: Использование сторонних библиотек

Хотя встроенные возможности Delphi для работы с JSON ограничены, существуют сторонние библиотеки, предлагающие более широкие возможности, включая поддержку JSONPath. Некоторые популярные варианты:

• SuperObject: Мощная библиотека для работы с JSON, XML и другими форматами данных. Поддерживает JSONPath и предоставляет удобные методы для манипулирования данными.
• JsonPath.Pascal: Библиотека, реализующая спецификацию JSONPath для Object Pascal.

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

Пример с использованием SuperObject (требует установки библиотеки):

uses
  SuperObject,
  SysUtils;

procedure UpdateAndAddJSONSuperObject(const JSONFilePath: string);
var
  JsonObject: TSuperObject;
  MailConfigsArray: TSuperArray;
  MailConfigObject: TSuperObject;
  EmailToFind: string;
  NewTokenValue: string;
  NewPairName: string;
  NewPairValue: string;
begin
  // Загрузка JSON файла
  JsonObject := TSuperObject.ParseFromFile(JSONFilePath);

  // Получение массива MAILCONFIGS
  MailConfigsArray := JsonObject.GetArray('MAILCONFIGS');

  // Адрес электронной почты для поиска, новое значение new_token и параметры новой пары
  EmailToFind := 'fiddler@office365.com';
  NewTokenValue := 'beans';
  NewPairName := 'new_property';
  NewPairValue := 'new_value';

  // Итерация по массиву
  for var MailConfigObject in MailConfigsArray do
  begin
    if MailConfigObject.ContainsKey(EmailToFind) then
    begin
      // Обновление значения new_token
      MailConfigObject.ReplaceValue('new_token', NewTokenValue);

      // Добавление новой пары
      MailConfigObject.AddPair(NewPairName, NewPairValue);

      // Сохранение изменений в файл
      JsonObject.SaveToFile(JSONFilePath);
      Exit; // Выход из цикла после обновления и добавления
    end;
  end;

  // Если не найдено, выводим сообщение об ошибке (опционально)
  ShowMessage('Запись для ' + EmailToFind + ' не найдена!');
end;

Заключение:

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

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

Статья о работе с JSON данными в Delphi, включая поиск, обновление и добавление данных в структурированном JSON файле.

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

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

:: Главная :: Json ::