Реализация установки страницы и печати для TWebBrowser

Delphi , ОС и Железо , Принтеры и Печать

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

{ 
  TWebBrowser can use native IE API to print and do other things. 
  Implement on a Form a TWebBrowser component, and a button to print. 
  The code attached to this button is as follow : 
}

 //-------------------------------------------- 

procedure TForm.OnClickPrint(Sender: TObject);
 begin
   WebBrowser.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER);
 end;

 //-------------------------------------------- 

You can replace "OLECMDID_PRINT" by other possibilities :

 OLECMDID_OPEN OLECMDID_NEW OLECMDID_SAVE
 OLECMDID_SAVEAS OLECMDID_SAVECOPYAS OLECMDID_PRINT
 OLECMDID_PRINTPREVIEW OLECMDID_PAGESETUP OLECMDID_SPELL
 OLECMDID_PROPERTIES OLECMDID_CUT OLECMDID_COPY
 OLECMDID_PASTE OLECMDID_PASTESPECIAL OLECMDID_UNDO
 OLECMDID_REDO OLECMDID_SELECTALL OLECMDID_CLEARSELECTION
 OLECMDID_ZOOM OLECMDID_GETZOOMRANGE OLECMDID_UPDATECOMMANDS

 OLECMDID_REFRESH OLECMDID_STOP OLECMDID_HIDETOOLBARS
 OLECMDID_SETPROGRESSMAX OLECMDID_SETPROGRESSPOS
 OLECMDID_SETPROGRESSTEXT

 OLECMDID_SETTITLE OLECMDID_SETDOWNLOADSTATE OLECMDID_STOPDOWNLOAD

 OLECMDID_FIND OLECMDID_ONTOOLBARACTIVATED OLECMDID_DELETE

 OLECMDID_HTTPEQUIV OLECMDID_ENABLE_INTERACTION OLECMDID_HTTPEQUIV_DONE

 OLECMDID_ONUNLOAD OLECMDID_PROPERTYBAG2 OLECMDID_PREREFRESH

Код-снippet, предназначенный для печати веб-страницы с помощью компонента TWebBrowser в Delphi. Процедура OnClickPrint прикреплена к кнопке на форме и выполняет метод ExecWB компонента TWebBrowser с идентификатором OLECMDID_PRINT.

Метод ExecWB позволяет выполнить native команды Internet Explorer (IE), такие как печать. В этом случае OLECMDID_PRINT используется для запроса пользователя о печати текущей веб-страницы.

Распределение функций каждого части кода:

• procedure TForm1.OnClickPrint( Sender: TObject );: Это процедура вызывается, когда кнопка, связанная с ней, нажата.
• WebBrowser.ExecWB( OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER );:
  • OLECMDID_PRINT - константа, представляющая ID команды печати. Вы можете заменить это на другие IDs для выполнения различных действий, таких как открытие нового окна (OLECMDID_OPEN), сохранение файла (OLECMDID_SAVE) и т.д.
  • OLECMDEXECOPT_PROMPTUSER - указывает, как выполнять команду. В этом случае пользователь будет запрошен для ввода.

Пример модификации кода для печати веб-страницы:

procedure TForm1.OnClickPrint( Sender: TObject );
begin
  WebBrowser.ExecWB( OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER );
end;

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

Обратите внимание, что это код-снippet требует установки Internet Explorer (IE) на вашем системе и работает только если IE установлен как default браузер.

В статье описывается реализация установки страницы и печати для компонента TWebBrowser, используя native IE API, а также предоставляется код, который можно использовать для запуска процесса печати.

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

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

:: Главная :: Принтеры и Печать ::