Автоматизация нажатия "OK" в JavaScript-подтверждениях при использовании WebBrowser

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

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

Проблема

Пользователь столкнулся с проблемой, когда в его приложении, включающем компонент WebBrowser, при выполнении JavaScript-кода на веб-странице появлялось подтверждение (alert или messagebox), требующее ручного нажатия кнопки "OK". Пример JavaScript-функции, создающей такое подтверждение:

function delete(){
    if (confirm('Are you sure you wish to delete this ?')){
        document.forms.item.action = "edit.asp?action=delete";
        document.forms.item.submit();
    }
}

Пользователь искал решение проблемы, но так и не нашел рабочего способа автоматизации этого процесса.

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

Для решения данной проблемы можно использовать несколько подходов. Один из них заключается в использовании инструментов, таких как Winspector, для идентификации класса или заголовка окна, в котором появляется подтверждение. Затем можно создать таймер на форме, который будет ожидать появления этого окна и, используя SendMessage, отправлять ему сообщение о нажатии кнопки мыши.

Пример кода

procedure TForm1.Timer1Timer(Sender: TObject);
const
  TargetCaption = 'Meddelande från webbsida';
var
  S: string;
  len: integer;
begin
  SetLength(S, 127);
  len := GetWindowText(Application.ActiveFormHandle, PChar(S), 127);
  if len = 0 then Exit;
  SetLength(S, len);
  if S = TargetCaption then
    SendMessage(Application.ActiveFormHandle, WM_COMMAND, ID_OK, 0);
end;

В данном примере TargetCaption — это известный заголовок всплывающего окна, подтверждения или диалога, которое появляется в TWebBrowser. Однако стоит отметить, что данный подход может быть нестабильным и зависит от версии операционной системы и локали, поэтому его следует использовать только в ограниченных, внутренних приложениях.

Альтернативное решение

Другой подход заключается в реализации интерфейса IDocHostShowUI и отображении собственного диалога или возврате значения S_OK. Это позволяет перехватить сообщение о подтверждении и автоматически обработать его.

IDocHostShowUI = interface(IUnknown)
  ['{c4d244b0-d43e-11cf-893b-00aa00bdce1a}']
  function ShowMessage(hwnd: THandle; lpstrText: POleStr; lpstrCaption: POleStr;
    dwType: Longint; lpstrHelpFile: POleStr; dwHelpContext: Longint;
    var plResult: LRESULT): HRESULT; stdcall;
end;

TShowMessageEvent = function(Sender: TObject; HWND: THandle;
  lpstrText: POleStr; lpstrCaption: POleStr; dwType: Longint; lpstrHelpFile: POleStr;
  dwHelpContext: Longint; var plResult: LRESULT): HRESULT of object;

// ... (здесь следует определение класса TWebBrowser с реализацией ShowMessage)

Этот подход является более предпочтительным, так как он обеспечивает более стабильное и надежное решение для автоматизации нажатия "OK" в JavaScript-подтверждениях.

Заключение

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

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

Автоматизация процесса нажатия 'OK' в JavaScript-подтверждениях в приложениях на Delphi с использованием компонента WebBrowser.

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

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

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