Распечатать страницу в TWebBrowser

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

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  WebBrowser1.Navigate('http://www.SwissDelphiCenter.com'); 
end; 

// Print without Printer Dialog 

procedure TForm1.Button2Click(Sender: TObject); 
var 
  vaIn, vaOut: OleVariant; 
begin 
  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, 
    vaIn, vaOut); 
end; 

// Print with Printer Dialog 

procedure TForm1.Button3Click(Sender: TObject); 
var 
  vaIn, vaOut: OleVariant; 
begin 
  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, 
    vaIn, vaOut); 
end; 

// Print Preview 

procedure TForm1.Button4Click(Sender: TObject); 
var 
  vaIn, vaOut: OleVariant; 
begin 
  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINTPREVIEW, 
    OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut); 
end; 

// Page Setup Dialog 

procedure TForm1.Button5Click(Sender: TObject); 
var 
  vaIn, vaOut: OleVariant; 
begin 
  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_PROMPTUSER, 
    vaIn, vaOut); 
end; 

// as of Internet Explorer 4

Код, который вы предоставили, является частью приложения Delphi, использующего компонент TWebBrowser для навигации и печати веб-страниц. Вот подробное описание каждой процедуры:

1. Button1Click: Эта процедура навигирует WebBrowser-контроль к указанному URL (http://www.SwissDelphiCenter.com).

2. Button2Click, Button3Click, Button4Click и Button5Click: Эти процедуры используют метод ExecWB свойства ControlInterface WebBrowser-контроля для печати, просмотра или настройки страницы.

Вот более подробное объяснение:

• Метод ExecWB: Этот метод выполняет команду на активной документе WebBrowser-контроля. Он принимает четыре параметра:

  • OLECMDID: ID команды для выполнения.
  • OLECMDEXECOPT: Опция для выполнения команды (например, запросить у пользователя, не запросить у пользователя).
  • vaIn: Вариант входных данных для команды.
  • vaOut: Вариант выходных данных для команды.

• Параметры в процедурах:

  • Button2Click и Button4Click используют OLECMDID_PRINT и OLECMDID_PRINTPREVIEW, соответственно, для печати или просмотра без запроса у пользователя.
  • Button3Click использует OLECMDID_PRINT для печати с запросом у пользователя.
  • Button5Click использует OLECMDID_PAGESETUP для открытия диалога настройки страницы.

Обратите внимание, что эти процедуры являются специфичными для Internet Explorer 4 и могут не работать как ожидалось в новых версиях Internet Explorer или других веб-браузерах.

В статье рассматриваются различные способы печати страницы в TWebBrowser из Delphi при использовании различных типов диалоговых окон для управления печатью.

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

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

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