Использование TWebBrowser в Delphi для взаимодействия с JavaScript: практические решения

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

В современном мире разработки программного обеспечения часто возникает необходимость интеграции веб-технологий в настольные приложения. Одним из популярных инструментов для такой интеграции является компонент TWebBrowser в среде разработки Delphi. В данной статье мы рассмотрим, как использовать TWebBrowser для взаимодействия с JavaScript, на примере Delphi XE8 и FireMonkey.

Проблема взаимодействия с JavaScript

Разработчики, использующие компонент TWebBrowser в Delphi для взаимодействия с веб-сайтами, часто сталкиваются с необходимостью запуска JavaScript-функций и получения результатов их выполнения. Один из таких случаев - это клик по кнопке в приложении Delphi, который должен выполнять JavaScript-функцию внутри браузера и возвращать результат в приложение.

Решение проблемы

Существует несколько способов решения этой проблемы, но одним из проверенных является использование callback-функций. В контексте TWebBrowser это означает, что JavaScript должен вызывать функцию в Delphi, которая будет обрабатывать результат выполнения скрипта.

Пример кода на Object Pascal (Delphi):

procedure WebBrowser1ScriptError(Sender: TObject; const VscrptErr: OleVariant);
begin
  // Здесь можно обработать ошибку, если JavaScript вызовет функцию Delphi во время выполнения скрипта, который вызывает ошибку
end;

procedure WebBrowser1NewWindow(Sender: TObject; var URL: OleVariant; var InNewProcess: Boolean; var PostData: OleVariant; var Headers: OleVariant; var StatusCode: OleVariant);
begin
  // Обработчик для предотвращения создания новых окон браузера
end;

procedure WebBrowser1NavigateComplete2(const Sender: TObject; const GUIDoc: OleVariant);
begin
  // Получаем ссылку на объект JavaScript-окна
  var jsWindow: OleVariant;
  jsWindow := WebBrowser1.OleObject.Window;

  // Получаем ссылку на JavaScript-окне, JavaScript Document объекта
  var jsDocument: OleVariant;
  jsDocument := jsWindow.Document;

  // Регистрируем функцию Delphi, которую сможет вызвать JavaScript
  jsDocument.Call('registerDelphiCallback', [{name: 'DelphiCallbackFunction', callback: TWebBrowser1DelphiCallback(DelphiCallback)}]);
end;

function DelphiCallback(param: OleVariant): Boolean;
begin
  // Здесь перехватываем возвращаемое JavaScript значение и обрабатываем в Delphi
  // Например, выводим значение в консоль
  Writeln('JavaScript вызвал Delphi и передал значение: ', param);
  // Возвращаем результат обратно JavaScript
  Result := True; // или любое другое значение, которое ожидает JavaScript
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Выполняем JavaScript внутри браузера
  var jsResult: OleVariant;
  jsResult := WebBrowser1.Document.Call('myJavaScriptFunction');

  // Получаем значение из JavaScript и используем его в Delphi
  // Например, выводим результат в MessageBox
  MessageBox(0, jsResult, 'Результат JavaScript', MB_OK);
end;

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

function callDelphiFunction() {
  return window.chrome.webview.host.registeredFunction('DelphiCallbackFunction')();
}

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

Если требуется более сложное взаимодействие, можно использовать механизмы, такие как WebSockets, для создания двухстороннего обмена сообщениями между JavaScript и Delphi. Также можно рассмотреть использование серверного API для обмена данными между клиентской частью на JavaScript и серверной частью на Delphi.

Заключение

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

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

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

Использование компонента TWebBrowser в Delphi для взаимодействия с JavaScript включает в себя различные методы, такие как использование callback-функций, для обеспечения обмена данными между веб-контентом и настольным приложением.

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

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

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