Почему не срабатывают события `OnDocumentComplete` в `TWebBrowser` из Delphi 2009

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

Создание TWebBrowser во время выполнения в Delphi: почему не срабатывают события OnDocumentComplete

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

Проблема с OnDocumentComplete

Пользователь столкнулся с проблемой, когда создается объект TWebBrowser во время выполнения программы и используется в фоновом режиме, не отображаясь на экране. Событие OnDocumentComplete не срабатывает или не запускается. Это может быть связано с тем, что TWebBrowser внутренне тесно связан с окном родительского формы для получения сообщений из окон.

Пример создания TWebBrowser

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  FWebBrowser:= TWebBrowser.Create(Self);
  FWebBrowser.RegisterAsBrowser:= True;
  FWebBrowser.OnDocumentComplete:= WhenDocIsCompleted;
end;

procedure TfrmMain.WhenDocIsCompleted(ASender: TObject; const pDisp: IDispatch;
  var URL: OleVariant);
begin
  ShowMessage('Документ загружен!');
end;

Возможные решения

Разница между Navigate и Navigate2

Пользователь также спрашивает о разнице между методами Navigate и Navigate2 и о том, как включить куки. Важно отметить, что Navigate2 позволяет более тонкую настройку параметров запроса, включая куки.

Включение куки

Для включения поддержки куки можно использовать встроенный компонент TEmbeddedWB от BSalsa, который бесплатен и хорошо работает с куки. Однако, стоит отметить, что сайт BSalsa недоступен, и для получения последних версий можно воспользоваться архивом Wayback Machine.

Проблема с родительским окном

Чтобы решить проблему с родительским окном, можно создать скрытую форму с TWebBrowser, который будет создан во время выполнения. Также стоит исследовать методы HandleAllocated и HandleNeeded.

Пример пересоздания TWebBrowser

procedure TForm1.ReCreateBrowser;
begin
  if (WebBrowser <> nil) then
  begin
    WebBrowser.Stop;
    WebBrowser.Destroy;
  end;
  WebBrowser := TWebBrowser.Create(Form1);
  TWinControl(WebBrowser).Name := 'WebBrowser';
  TWinControl(WebBrowser).Parent := Form1; // Установка родителя...
  WebBrowser.Silent := true; // Не отображать ошибки JS
  WebBrowser.Visible := false; // Невидимый... по умолчанию true
  // Не устанавливайте width/heigh/top/left до TWinControl(WebBrowser).Parent := Form1;
  WebBrowser.Top := 10;
  WebBrowser.Left := 10;
  WebBrowser.Height := 600;
  WebBrowser.Width := 800;
  WebBrowser.OnDocumentComplete := WebBrowserDocumentComplete;
end;

Необходимость вызова HandleNeeded

Перед вызовом WebBrowser.Navigate, необходимо вызвать WebBrowser.HandleNeeded. Это может быть ключевым моментом для решения проблемы с не срабатыванием OnDocumentComplete.

FWebBrowser.HandleNeeded;
FWebBrowser.Navigate('http://example.com');

Альтернативные решения

Как альтернатива, можно использовать HTTP-клиент, например, Indy's TIdHTTP или WinInet API, которые не требуют отображения браузера и также поддерживают работу с куки.

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

Обычно проблема с OnDocumentComplete в TWebBrowser из Delphi 2009 решается путем установки родительского окна и вызова метода HandleNeeded перед навигацией.

Заключение

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

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

Пользователь столкнулся с проблемой, когда при создании объекта `TWebBrowser` во время выполнения программы в Delphi 2009 не срабатывает событие `OnDocumentComplete`, и рассматриваются возможные способы её решения.

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

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

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