Показать миниатюру страницы в TWebBrowser

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

Показать миниатюру страницы в TWebBrowser

Сидят два программера, пиво пьют. Ну, значит, один другому и говорит:
- Слышь, Серега, я вчера на одном чате с такой классной девчонкой познакомился. Она мне по Интернету такой минет сделала, просто обалдеть.
Второй:
- Димон, ты это... в этом Интернете поаккуратнее, пожалуйста. А то я тоже лазил, так меня там в задницу поимели.

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject; 
  const pDisp: IDispatch; var URL: OleVariant); 
begin 
  WebBrowser1.OleObject.Document.Body.Style.Zoom := 0.50; 
end; 

{A page must be already loaded into TWebBrowser} 
//.zoom:=0.25; //25% 
//.zoom:=0.5;  //50%
//.zoom:=1.5;  //100%
//.zoom:=2.0;  //200%
//.zoom:=5.0;  //500%
//.zoom:=10.0; //1000%

Код, предоставленный ниже, это процедура в Delphi, которая устанавливает уровень масштабирования веб-страницы, отображаемой в компоненте TWebBrowser, равным 50%.

Вот что происходит:

Событие NavigateComplete2 тригерируется, когда операция навигации, инициированная методом Navigate, завершается.
Процедура принимает три параметра: Sender, который является объектом, вызвавшим событие; pDisp, который является указателем на интерфейс dispatch для объекта,.triggered событие; и URL, который является вариантом, содержащим URL веб-страницы, которую навигирует.
Внутри процедуры устанавливается уровень масштабирования веб-страницы, отображаемой в компоненте TWebBrowser, равным 0.5 (50%). Это означает, что страница будет уменьшена вдвое.

Однако, нет кода, который бы загружал веб-страницу в TWebBrowser. Вам нужно использовать метод Navigate или загрузить содержимое HTML программно с помощью свойства Document объекта OleObject.

Вот пример:

procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('https://www.example.com');
end;

Или, если вы хотите загрузить содержимое HTML напрямую:

procedure TForm1.FormCreate(Sender: TObject);
var
  doc: IHTMLDocument2;
begin
  doc := WebBrowser1.Document as IHTMLDocument2;
  doc.body.innerHTML := '<html><body><h1>Hello World!</h1></body></html>';
end;

Обратите внимание, что приведенный код является только примером и может не работать в том виде, в котором он есть. Вам нужно будет его адаптировать к вашим конкретным требованиям.

В статье рассматривается способ отображения миниатюр страницы в TWebBrowser, а также предоставляется пример кода на Delphi для изменения масштаба отображаемой страницы.

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

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

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

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

Время компиляции файла: 2024-08-19 13:29:56
2024-10-12 16:45:45/0.0038511753082275/0