Получить информацию об элементе управления TWebBrowser

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

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TForm1.infoClick(Sender: TObject);
 begin
   // Shows the URL of the current page displayed 
  // Gibt die aktuell geladene URL des Webbrowsers aus 
  ShowMessage('URL: ' + TWebbrowser.OleObject.Document.Url);

   // Shows the Title of the current page displayed 
  // Gibt den Titel der Seite, die im Webbrowser ist aus 
  ShowMessage('Page Titel: ' + TWebbrowser.OleObject.Document.title);

   // Shows the Height, Width of the current page displayed 
  // zeigt an wie hoch, breit die Seite im TWebbrowser ist. 
  ShowMessage('ScrollHeight: ' + IntToStr(TWebbrowser.OleObject.Document.Body.ScrollHeight));
   ShowMessage('ScrollWidth: ' + IntToStr(TWebbrowser.OleObject.Document.Body.ScrollWidth));

   // amount that the document has been scrolled down 
  // Um wieviel das Dokumkent nach Unten gescrollt wurde 
  ShowMessage('ScrollTop: ' + IntToStr(TWebbrowser.OleObject.Document.Body.ScrollTop));
   ShowMessage('ScrollLeft: ' + IntToStr(TWebbrowser.OleObject.Document.Body.ScrollLeft));

   // Shows the physical height, width of the browser screen 
  // Zeigt die Hohe, Breite des Anzeigebereichs 
  ShowMessage('ClientHeight: ' + IntToStr(TWebbrowser.OleObject.Document.Body.ClientHeight));
   ShowMessage('ClientWidth: ' + IntToStr(TWebbrowser.OleObject.Document.Body.ClientWidth));

   // Show the document referrer 
  // Referer von Twebbrowser anzeigen. 
  ShowMessage('Referer: ' + TWebbrowser.OleObject.Document.referrer);
 end;

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

Разбивка каждого раздела:

1. URL: Извлекает URL текущей страницы с помощью свойства OleObject.Document.Url.
2. Page Title: Извлекает заголовок текущей страницы с помощью свойства OleObject.Document.title.
3. Height and Width: Извлекает высоту (ScrollHeight) и ширину (ScrollWidth) содержимого тела страницы с помощью свойств OleObject.Document.Body.ScrollHeight и OleObject.Document.Body.ScrollWidth, соответственно.
4. Scrolled Amount: Извлекает количество пикселей, на которое документ был прокручен вниз (ScrollTop) или влево (ScrollLeft) с помощью свойств OleObject.Document.Body.ScrollTop и OleObject.Document.Body.ScrollLeft, соответственно.
5. Browser Screen Dimensions: Извлекает физическую высоту (ClientHeight) и ширину (ClientWidth) экрана браузера с помощью свойств OleObject.Document.Body.ClientHeight и OleObject.Document.Body.ClientWidth, соответственно.
6. Document Referrer: Извлекает URL-адрес референта (URL, который привел к текущей странице) с помощью свойства OleObject.Document.referrer.

Сведения отображаются в сообщении с соответствующими ключ-значенными парами.

Альтернативный подход для достижения схожих результатов:

procedure TForm1.infoClick(Sender: TObject);
begin
  // Используем свойства и методы TWebBrowser напрямую
  ShowMessage('URL: ' + WebBrowser1.LocationUrl);

  ShowMessage('Page Title: ' + WebBrowser1.Title);

  if Supports(WebBrowser1.Document, IHTMLDocument2, doc) then
  begin
    ShowMessage('ScrollHeight: ' + IntToStr(doc.body.scrollHeight));
    ShowMessage('ScrollWidth: ' + IntToStr(doc.body.scrollWidth));

    ShowMessage('ScrollTop: ' + IntToStr(doc.body.scrollTop));
    ShowMessage('ScrollLeft: ' + IntToStr(doc.body.scrollLeft));
  end;

  ShowMessage('ClientHeight: ' + IntToStr(WebBrowser1.Height));
  ShowMessage('ClientWidth: ' + IntToStr(WebBrowser1.Width));

  if Supports(WebBrowser1.Document, IHTMLDocument2, doc) then
    ShowMessage('Referer: ' + doc.referrer)
  else
    ShowMessage('Referer: Not available');
end;

В этом варианте мы используем свойство LocationUrl для получения текущего URL и свойство Title для получения заголовка страницы. Мы также используем функцию Supports для кастинга свойства Document в интерфейс IHTMLDocument2, что позволяет нам доступиться болееadvanced свойств, таких как scrollHeight, scrollWidth, scrollTop и scrollLeft. Остальная часть кода остается аналогичной.

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

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

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

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