Обработка ошибок загрузки XML через TWebBrowser в Delphi 2009

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

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

Вопрос затрагивает события OnNavigateError и OnBeforeNavigate2, которые, как оказалось, не срабатывают при обновлении страницы. Однако, в контексте обсуждения, было предложено несколько альтернативных решений:

1. Использование компонента TEmbeddedWB, который представляет собой замену TWebBrowser и предоставляет дополнительные возможности, включая событие OnRefresh.

2. Перехват нажатия клавиши F5 в событии OnKeyUp формы. Для этого необходимо установить свойство KeyPreview формы в значение True, чтобы можно было самостоятельно вызывать обновление. В этом случае, вместо использования метода TWebBrowser.Refresh, который не вызывает события навигации, вызывается событие TWebBrowser.Navigate с сохранением ранее загруженного URL. Это позволяет снова срабатывать события OnBeforeNavigate2, OnNavigateComplete2 и OnDocumentComplete, что дает возможность проверить наличие файла и отобразить страницу по умолчанию в случае его отсутствия.

Вот пример кода на Object Pascal (Delphi), который реализует второй подход:

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  Edit1.Text := URL; // Сохраняем URL в редакторе
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_F5) then // Если нажата клавиша F5
  begin
    if Edit1.Text <> '' then // Проверяем, что URL не пустой
      WebBrowser1.Navigate(Edit1.Text); // Обновляем страницу, используя сохраненный URL
  end;
end;

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

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

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

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

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

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