Обработка JSON с помощью lkJSON для отображения URL-адреса в компоненте Memo в Delphi

Delphi , Синтаксис , API реализация

В данной статье мы рассмотрим, как можно обработать JSON-данные с использованием библиотеки lkJSON для вывода определенного значения в компонент Memo на языке Object Pascal в среде разработки Delphi. Это может быть полезно, например, при работе с данными из Instagram API, где нужно извлечь и отобразить определенный URL.

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

Пользователь столкнулся с необходимостью извлечения и отображения определенного значения из JSON-структуры, полученной от Instagram API. В частности, требуется извлечь значение hd_profile_pic_url_info.url и вывести его в компонент Memo2 с использованием библиотеки lkJSON.

Пример JSON

Ниже приведен пример JSON-структуры, из которой нужно извлечь указанное значение:

{
  "user": {
    "pk": 25025320,
    "username": "instagram",
    ...
    "hd_profile_pic_url_info": {
      "url": "https://instagram.fmad3-5.fna.fbcdn.net/vp/8ae8a89c80ff4722eeab592b685276cb/5B5D40A1/t51.2885-19/14719833_310540259320655_1605122788543168512_a.jpg",
      "width": 320,
      "height": 320
    },
    ...
  },
  "status": "ok"
}

Пример кода на Object Pascal

Для решения задачи можно использовать следующий код на Object Pascal:

var
  js: TlkJSONbase;
begin
  js := TlkJSON.ParseText(Memo1.Text);
  if Assigned(js) then
  begin
    js := js.Field['user'];
    if Assigned(js) then
    begin
      js := js.Field['hd_profile_pic_url_info'];
      if Assigned(js) then
      begin
        js := js.Field['url'];
        if Assigned(js) then
          Memo2.Lines.Add(VarToStr(js.Value));
      end;
    end;
  end;
end;

Важные замечания

Необходимо помнить, что hd_profile_pic_url_info - это вложенный объект, содержащий несколько полей, в том числе и искомое значение url. Следовательно, для его извлечения нужно сделать еще один уровень вложенности.

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

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

В качестве альтернативы можно использовать онлайн-сервис, который генерирует Delphi-классы для работы с JSON: jsontodelphi.com. Это может быть удобно для сложных JSON-структур, когда ручная обработка может быть слишком трудоемкой.

Пример использования сгенерированных классов:

procedure TForm2.Button1Click(Sender: TObject);
var
  root:TRootClass;
begin
  root := TRootClass.FromJsonString(Memo1.Lines.Text); // ваш JSON текст
  // Получение URL изображения
  Caption := root.user.hd_profile_pic_url_info.url;
end;

Заключение

В данной статье мы рассмотрели, как извлечь и отобразить значение url из JSON-структуры, используя библиотеку lkJSON и Delphi. Представленные примеры кода могут быть использованы в качестве шаблона для решения подобных задач.

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

Необходимо обработать JSON-структуру с помощью библиотеки lkJSON в среде разработки Delphi для отображения определенного URL-адреса в компоненте Memo.

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

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

:: Главная :: API реализация ::