Интеграция Chromium в Delphi: управление действиями веб-страницы через компоненты

Delphi , Компоненты и Классы , Кнопки

Интеграция Chromium в Delphi: управление действиями веб-страницы через компоненты

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

Введение

Chromium Embedded Framework (CEF) позволяет встраивать функциональность Chromium в ваше приложение Delphi, что дает возможность использовать веб-страницы как часть пользовательского интерфейса. Это может быть полезно для различных задач, например, для отображения интерактивных отчетов, веб-форм или для предоставления пользователю веб-интерфейса для работы с приложением.

Проблема

Пользователь хочет, чтобы при нажатии на определенную кнопку в веб-странице, запускалась команда в приложении Delphi, например, запуск внешней программы.

Решение

Для реализации такого поведения можно использовать события, предоставляемые CEF. В частности, событие OnBeforeBrowse позволяет отслеживать запросы на переход по ссылке, что может быть использовано для определения необходимых действий.

Пример кода

uses
  ShellAPI, cefvcl, ceflib;

procedure TForm1.Chromium1BeforeBrowse(const browser: ICefBrowser; const frame: ICefFrame; const request: ICefRequest; var cancel: Boolean);
begin
  if (request.Method = 'POST') and (request.Url = 'https://login.example.com/login') then
  begin
    // Здесь можно запустить внешнюю программу
    ShellExecute(Form1.Handle, nil, 'notepad.exe', nil, nil, SW_SHOWNORMAL);
    cancel := True; // Отмена дальнейшего выполнения запроса
  end;
end;

Также можно использовать слушателей событий DOM для отслеживания кликов по элементам веб-страницы:

procedure OnClickEvent(const AEvent: ICefDomEvent);
begin
  // Здесь код для выполнения команды в приложении
  ShellExecute(Form1.Handle, nil, 'notepad.exe', nil, nil, SW_SHOWNORMAL);
end;

procedure OnExploreDOM(const ADocument: ICefDomDocument);
var
  DOMNode: ICefDomNode;
begin
  DOMNode := ADocument.GetElementById('gbqfba');
  if Assigned(DOMNode) then
    DOMNode.AddEventListenerProc('click', True, OnClickEvent);
end;

procedure TForm1.Chromium1LoadEnd(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; httpStatusCode: Integer; out Result: Boolean);
begin
  if Assigned(frame) then
  begin
    frame.VisitDomProc(OnExploreDOM);
  end;
end;

Уведомления от Chromium

Для получения уведомлений от Chromium после выполнения определенных действий, таких как ответ на POST-запрос, можно использовать обратные вызовы запросов (request callbacks). Это позволяет отслеживать результаты действий пользователя и реагировать на них.

Заключение

Интеграция Chromium в Delphi позволяет создавать мощные и интерактивные приложения. Использование событий и слушателей DOM в сочетании с возможностями CEF дает разработчикам инструменты для управления действиями веб-страницы и взаимодействия с ними из приложения.

Эта статья представляет собой краткий обзор возможностей интеграции Chromium в приложения Delphi и управления действиями веб-страницы. Приведенные примеры кода демонстрируют, как можно запускать команды в приложении в ответ на действия пользователя в веб-браузере.

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

Интеграция Chromium в Delphi для управления действиями веб-страницы через компоненты позволяет запускать команды в приложении в ответ на действия пользователя в веб-браузере.

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

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

:: Главная :: Кнопки ::