Как добавить функционал поиска книг по ISBN в приложение VCL с использованием Delphi 10.3

Delphi , Интернет и Сети , Браузер

Разработчики, работающие с языками Object Pascal и средами разработки, такими как Delphi, часто сталкиваются с необходимостью интеграции веб-функционала в свои десктопные приложения. В данной статье мы рассмотрим, как можно добавить функционал поиска книг по ISBN в приложение VCL, используя Delphi 10.3.

Проблема

Вы создаете VCL-приложение в Delphi 10.3 и хотите добавить функционал для поиска книг по ISBN. Пользователь вводит ISBN в компонент TEdit, после чего значение должно быть передано на веб-сайт isbnsearch.org, который выполняет поиск и отображает автора книги. Ваша задача - получить информацию с результатов поиска и использовать ее в своем приложении.

Решение

Для реализации данного функционала можно использовать компонент TWebBrowser, но более эффективным решением будет использование HTTP-компонента, такого как TIdHTTP, для выполнения запросов к веб-сайту и парсинга HTML.

Шаг 1: Создание HTTP-запроса

Сначала необходимо сформировать URL-запрос для поиска книги. Например, поиск книг автора Сусс будет выглядеть так:

https://isbnsearch.org/search?s=suess

Шаг 2: Парсинг HTML

После получения ответа от сервера, используйте HTML-паразит, чтобы извлечь необходимые данные. На странице результатов поиска данные находятся в элементе ul с идентификатором searchresults. Каждый элемент списка li содержит отдельный результат.

Шаг 3: Обработка пагинации

Веб-сайт использует пагинацию, показывая по 10 результатов на странице. Для получения следующих страниц результатов, добавьте параметр &p=2, &p=3 и так далее в URL.

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

Использование парсинга HTML - не лучший способ получения данных. Более предпочтительный вариант - использование API, которое предоставляет данные в машиночитаемом формате. Например, Open Library предоставляет API, которое может быть использовано для получения информации о книгах:

https://openlibrary.org/dev/docs/api/books

Пример кода

procedure TForm1.Button1Click(Sender: TObject);
var
  IdHttp: TIdHTTP;
  SearchUrl: string;
begin
  SearchUrl := 'https://isbnsearch.org/search?s=';
  IdHttp := TIdHTTP.Create(nil);
  try
    // Добавить код для ввода ISBN пользователем и формирования SearchUrl
    // Использовать IdHttp.Get для получения HTML-страницы
    // Использовать HTML-паразит для парсинга HTML и извлечения данных
  finally
    IdHttp.Free;
  end;
end;

Заключение

Добавление функционала поиска книг по ISBN в приложение VCL с использованием Delphi 10.3 требует понимания веб-технологий, таких как HTTP-запросы и парсинг HTML. Использование API предпочтительнее, так как оно позволяет получать информацию в удобном для обработки формате. Надеемся, что предоставленный пример поможет вам в реализации данного функционала в вашем приложении.

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

Разработчики используют Delphi 10.3 для добавления функционала поиска книг по ISBN в VCL-приложение, выбирая между использованием TWebBrowser, HTTP-компонентов и парсинга HTML или предпочтительным использованием API для получения данн

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

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

:: Главная :: Браузер ::