Проблема Срабатывания JavaScript в WebBrowser на Delphi 2009: Совместимость с Современными Веб-Страницами

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

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

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

Автор вопроса создал две программы: одну на Delphi 2009, другую на Visual Studio 2019, для просмотра одной и той же HTML-страницы с использованием компонента TWebBrowser или контрола WebBrowser. При клике по кнопке на странице в окне WebBrowser не происходило срабатывания соответствующего JavaScript, и страница отображала сообщение о том, что браузер устарел. Попытки программного нажатия на кнопку также не привели к ожидаемому результату (ничего не происходило, ошибок не возникало). В то же время, кнопка работала корректно в Internet Explorer 11. Код кнопки:

<div id="showAll" class="showAllClass block" onclick="showAll(1, this)">
  <a href="javascript:void(0);">Show all</a>
</div>

Код для Delphi:

var
  A: IHTMLElement3;
  doc: IHTMLDocument3;
  v: OleVariant;
begin
  A := (MyWebbrowser.Document as IHTMLDocument3).getElementById('showAll') as IHTMLElement3;
  v:=Unassigned;
  (A as IHTMLElement3).FireEvent('onclick', v);
end;

Код для C#:

webBrowser1.Document.GetElementById("showAll").InvokeMember("onclick");

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

В контексте альтернативного ответа подчеркивается, что div не является кнопкой, и сообщение о устаревании браузера, скорее всего, связано с JavaScript-фреймворком, используемым на странице, название которого не упоминается. Также отмечается, что TWebBrowser в Visual Studio выполняет JavaScript на своем стороне.

Подтвержденный ответ

Автор вопроса нашел решение проблемы в следующем методе: добавление в реестр значений, позволяющих TWebBrowser эмулировать современные версии Internet Explorer:

"YourApplicationFileName.exe"=dword:00002af9
"YourApplicationFileName.vshost.exe"=dword:00002af9

в ветку:

HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION

Это позволяет TWebBrowser корректно обрабатывать современные веб-технологии, включая JavaScript-фреймворки.

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

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

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

procedure UpdateBrowserEmulation(applicationName: string; IEVersion: string);
var
  RegistryKey: TRegistry;
begin
  RegistryKey := TRegistry.Create(KEY_READ or KEY_WRITE);
  try
    RegistryKey.RootKey := HKEY_CURRENT_USER;
    RegistryKey.OpenKeyReadWrite('Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION', False);
    RegistryKey.SetStringValue(applicationName, 'ie' + IEVersion);
  finally
    RegistryKey.Free;
  end;
end;

Этот код можно использовать в вашем приложении на Delphi для обновления настроек эмуляции браузера.

Заключение

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

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

Проблема заключается в некорректной работе JavaScript в компоненте `TWebBrowser` приложения, созданного на Delphi 2009, из-за несоответствия с современными веб-технологиями и фреймворками.

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

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

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