Delphi中TWebBrowser的使用,实现IDocHostUIHandler接口

最新推荐文章于 2017-12-26 11:37:08 发布
最新推荐文章于 2017-12-26 11:37:08 发布
阅读量2.3k 收藏 3
点赞数
分类专栏： delphi

Delphi中TWebBrowser控件增强版，增加控制浏览器的滚动条，右键菜单，3D边框属性，可以通过设置属性隐藏TWebBrowser的滚动条，右键菜单，3D边框，使之不可见。控件代码如下：

unit WebBrowserWithUI;

interface



uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

  OleCtrls, SHDocVw, COmObj, ActiveX;



type

  TEnhancedWebBrowserUI = class(TPersistent)

  private

  FlatScrollBar: boolean;

  IE3DBorder: boolean;

  RightClickMenu: boolean;

  ScrollBar: boolean;

  public

  constructor Create;

  published

  property EnableScrollBars: boolean read ScrollBar write ScrollBar;

  property EnableFlatScrollBars: boolean read FlatScrollBar write

  FlatScrollBar;

  property EnableContextMenu: boolean read RightClickMenu write

  RightClickMenu;

  property Enable3DBorder: boolean read IE3DBorder write IE3DBorder;

  end;

  pDocHostUIInfo = ^TDocHostUIInfo;

  TDocHostUIInfo = packed record

  cbSize: ULONG;

  dwFlags: DWORD;

  dwDoubleClick: DWORD;

  pchHostCss: polestr;

  pchHostNS: polestr;

  end;

  IDocHostUIHandler = interface(IUnknown)

  ['{bd3f23c0-d43e-11cf-893b-00aa00bdce1a}']

  function ShowContextMenu(const dwID: DWORD; const ppt: PPOINT;

  const pcmdtReserved: IUnknown; const pdispReserved: IDispatch):

  HRESULT; stdcall;

  function GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT; stdcall;

  function ShowUI(const dwID: DWORD; const pActiveObject:

  IOleInPlaceActiveObject;

  const pCommandTarget: IOleCommandTarget; const pFrame:

  IOleInPlaceFrame;

  const pDoc: IOleInPlaceUIWindow): HRESULT; stdcall;

  function HideUI: HRESULT; stdcall;

  function UpdateUI: HRESULT; stdcall;

  function EnableModeless(const fEnable: BOOL): HRESULT; stdcall;

  function OnDocWindowActivate(const fActivate: BOOL): HRESULT; stdcall;

  function OnFrameWindowActivate(const fActivate: BOOL): HRESULT; stdcall;

  function ResizeBorder(const prcBorder: PRECT;

  const pUIWindow: IOleInPlaceUIWindow;

  const fRameWindow: BOOL): HRESULT; stdcall;

  function TranslateAccelerator(const lpMsg: PMSG; const pguidCmdGroup:

  PGUID;

  const nCmdID: DWORD): HRESULT; stdcall;

  function GetOptionKeyPath(var pchKey: POLESTR; const dw: DWORD):

  HRESULT; stdcall;

  function GetDropTarget(const pDropTarget: IDropTarget;

  out ppDropTarget: IDropTarget): HRESULT; stdcall;

  function GetExternal(out ppDispatch: IDispatch): HRESULT; stdcall;

  function TranslateUrl(const dwTranslate: DWORD; const pchURLIn: POLESTR;

  var ppchURLOut: POLESTR): HRESULT; stdcall;

  function FilterDataObject(const pDO: IDataObject;

  out ppDORet: IDataObject): HRESULT; stdcall;

  end;



  TWebBrowserWithUI = class(TWebBrowser, IDocHostUIHandler)

  private

  { Private declarations }

  UIProperties: TEnhancedWebBrowserUI;

  protected

  { Protected declarations }

  public

  { Public declarations }

  constructor Create(AOwner: TComponent); override;

  destructor Destroy; override;

  function ShowContextMenu(const dwID: DWORD; const ppt: PPOINT;

  const pcmdtReserved: IUnknown; const pdispReserved: IDispatch):

  HRESULT; stdcall;

  function GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT; stdcall;

  function ShowUI(const dwID: DWORD; const pActiveObject:

  IOleInPlaceActiveObject;

  const pCommandTarget: IOleCommandTarget; const pFrame:

  IOleInPlaceFrame;

  const pDoc: IOleInPlaceUIWindow): HRESULT; stdcall;

  function HideUI: HRESULT; stdcall;

  function UpdateUI: HRESULT; stdcall;

  function EnableModeless(const fEnable: BOOL): HRESULT; stdcall;

  function OnDocWindowActivate(const fActivate: BOOL): HRESULT; stdcall;

  function OnFrameWindowActivate(const fActivate: BOOL): HRESULT; stdcall;

  function ResizeBorder(const prcBorder: PRECT;

  const pUIWindow: IOleInPlaceUIWindow;

  const fRameWindow: BOOL): HRESULT; stdcall;

  function TranslateAccelerator(const lpMsg: PMSG; const pguidCmdGroup:

  PGUID;

  const nCmdID: DWORD): HRESULT; stdcall;

  function GetOptionKeyPath(var pchKey: POLESTR; const dw: DWORD):

  HRESULT; stdcall;

  function GetDropTarget(const pDropTarget: IDropTarget;

  out ppDropTarget: IDropTarget): HRESULT; stdcall;

  function GetExternal(out ppDispatch: IDispatch): HRESULT; stdcall;

  function TranslateUrl(const dwTranslate: DWORD; const pchURLIn: POLESTR;

  var ppchURLOut: POLESTR): HRESULT; stdcall;

  function FilterDataObject(const pDO: IDataObject;

  out ppDORet: IDataObject): HRESULT; stdcall;

  published

  { Published declarations }

  property UISettings: TEnhancedWebBrowserUI read UIProperties write

  UIProperties;

  end;

const

  DOCHOSTUIFLAG_DIALOG = $00000001;

  DOCHOSTUIFLAG_DISABLE_HELP_MENU = $00000002;

  DOCHOSTUIFLAG_NO3DBORDER = $00000004;

  DOCHOSTUIFLAG_SCROLL_NO = $00000008;

  DOCHOSTUIFLAG_DISABLE_SCRIPT_INACTIVE = $00000010;

  DOCHOSTUIFLAG_OPENNEWWIN = $00000020;

  DOCHOSTUIFLAG_DISABLE_OFFSCREEN = $00000040;

  DOCHOSTUIFLAG_FLAT_SCROLLBAR = $00000080;

  DOCHOSTUIFLAG_DIV_BLOCKDEFAULT = $00000100;

  DOCHOSTUIFLAG_ACTIVATE_CLIENTHIT_ONLY = $00000200;

  DOCHOSTUIFLAG_OVERRIDEBEHAVIOURFACTORY = $00000400;

  DOCHOSTUIFLAG_CODEPAGELINKEDFONTS = $00000800;

  DOCHOSTUIFLAG_URL_ENCODING_DISABLE_UTF8 = $00001000;

  DOCHOSTUIFLAG_URL_ENCODING_ENABLE_UTF8 = $00002000;

  DOCHOSTUIFLAG_ENABLE_FORMS_AUTOCOMPLETE = $00004000;

  IID_IDocHostUIHandler: TGUID = '{bd3f23c0-d43e-11CF-893b-00aa00bdce1a}';



procedure Register;



implementation



procedure Register;

begin

  RegisterComponents('Samples', [TWebBrowserWithUI]);

end;



{ TEnhancedWebBrowserUI }



constructor TEnhancedWebBrowserUI.Create;

begin

  ScrollBar := False;

  FlatScrollBar := False;

  IE3DBorder := False;

  RightClickMenu := False;

end;



{ TWebBrowserWithUI }



constructor TWebBrowserWithUI.Create(AOwner: TComponent);

begin

  inherited;

  UIProperties := TEnhancedWebBrowserUI.Create;

end;



destructor TWebBrowserWithUI.Destroy;

begin

  UIProperties.Free;

  inherited;

end;



function TWebBrowserWithUI.EnableModeless(const fEnable: BOOL): HRESULT;

begin

  result := S_FALSE;

end;



function TWebBrowserWithUI.FilterDataObject(const pDO: IDataObject;

  out ppDORet: IDataObject): HRESULT;

begin

  result := S_FALSE;

end;



function TWebBrowserWithUI.GetDropTarget(const pDropTarget: IDropTarget;

  out ppDropTarget: IDropTarget): HRESULT;

begin

  result := S_FALSE;

end;



function TWebBrowserWithUI.GetExternal(out ppDispatch: IDispatch): HRESULT;

begin

  result := S_OK;

end;



function TWebBrowserWithUI.GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT;

begin

  pInfo.cbSize := SizeOf(pInfo);

  pInfo.dwFlags := 0;

  if not UIProperties.EnableScrollBars then

  pInfo.dwFlags := pInfo.dwFlags or DOCHOSTUIFLAG_SCROLL_NO;

  if UIProperties.EnableFlatScrollBars then

  pInfo.dwFlags := pInfo.dwFlags or DOCHOSTUIFLAG_FLAT_SCROLLBAR;

  if not UIProperties.Enable3DBorder then

  pInfo.dwFlags := pInfo.dwFlags or DOCHOSTUIFLAG_NO3DBORDER;

  result := S_OK;

end;



function TWebBrowserWithUI.GetOptionKeyPath(var pchKey: POLESTR;

  const dw: DWORD): HRESULT;

begin

  result := S_FALSE;

end;



function TWebBrowserWithUI.HideUI: HRESULT;

begin

  result := S_FALSE;

end;



function TWebBrowserWithUI.OnDocWindowActivate(

  const fActivate: BOOL): HRESULT;

begin

  result := S_FALSE;

end;



function TWebBrowserWithUI.OnFrameWindowActivate(

  const fActivate: BOOL): HRESULT;

begin

  result := S_FALSE;

end;



function TWebBrowserWithUI.ResizeBorder(const prcBorder: PRECT;

  const pUIWindow: IOleInPlaceUIWindow; const fRameWindow: BOOL): HRESULT;

begin

  result := S_FALSE;

end;



function TWebBrowserWithUI.ShowContextMenu(const dwID: DWORD;

  const ppt: PPOINT; const pcmdtReserved: IUnknown;

  const pdispReserved: IDispatch): HRESULT;

begin

  if UIProperties.EnableContextMenu then

  result := S_FALSE

  else

  result := S_OK;

end;



function TWebBrowserWithUI.ShowUI(const dwID: DWORD;

  const pActiveObject: IOleInPlaceActiveObject;

  const pCommandTarget: IOleCommandTarget; const pFrame: IOleInPlaceFrame;

  const pDoc: IOleInPlaceUIWindow): HRESULT;

begin

  result := S_FALSE;

end;



function TWebBrowserWithUI.TranslateAccelerator(const lpMsg: PMSG;

  const pguidCmdGroup: PGUID; const nCmdID: DWORD): HRESULT;

begin

  result := S_FALSE;

end;



function TWebBrowserWithUI.TranslateUrl(const dwTranslate: DWORD;

  const pchURLIn: POLESTR; var ppchURLOut: POLESTR): HRESULT;

begin

  result := S_FALSE;

end;



function TWebBrowserWithUI.UpdateUI: HRESULT;

begin

  result := S_FALSE;

end;

end.


 

将该代码保存为WebBrowserWithUI.pas，在delphi中通过unit安装该控件，在控件属性中新增uisetting属性，控制TWebBrowser的滚动条，右键菜单，3D边框是否可见。

建一个包，加入这个单元，安装就可以了。

转自：http://hi.baidu.com/bycong/blog/item/35d70bec611ce03362d09f49.html

另外也可以参考http://blog.sina.com.cn/s/blog_4b3c1f950102dtqx.html

 

 

yunshouhu
关注
专栏目录
Delphi的TWebBrowser编程综述
Phoenix Nirvana
10-15 1057
Delphi的TWebBrowser编程综述 Delphi3开始有了TWebBrowser构件，不过那时是以ActiveX控件的形式出现的，而且需要自己引入，在其后的4.0和5.0中，它就在封装好shdocvw.dll之后作为Internet构件组之一出现在构件面板上了。常常听到有人骂Delphi的帮助做得极差，这次的TWebBrowser又是Microsoft的东东，自然不会好到哪里去，虽说MS
老文章——TWebBrowser编程简述
热门推荐
eagleboost's blog
09-03 1万+
引　言　　这篇文章最先发表于2000年07月25日，最后一次修改是在2001年02月07日。这里再次贴出的目的，一是作为前一阶段的完结，所以文章中的错误都不作修改；二是希望作为一个新的起点。我准备整理一下至今所积累的浏览器编程的知识，比较完整地写出来，与网友共勉。TWebBrowser编程简述摘要：Delphi 3开始有了TWebBrowser构件，不过那时是以ActiveX控件的形式
[Delphi]如何挂上IDocHostUIHandler接口实现？
weixin_34364135的博客
11-25 111
  为了更好地控制WebBrowser，我们可以在一个com对象中实现IDocHostUIHandler（和IDocHostUIHandler2）接口，并把这个接口实现挂到WebBrowser实例上去，成功挂接之后，我们就可以通过实现这些接口的com对象控制WebBrowser的行为方式及其外观了。  为了演示如何挂接COM对象，我们假设我们在窗体上放置了一个TWebBrowser实例WB，并且实...
C++（MFC）中WebBrowser去除3D边框的方法（实现IDocHostUIHandler接口）
mail_cm的专栏
07-31 3233
先说实在的：最终解决办法是实现IDocHostUIHandler接口，在GetHostInfo方法里解决，但“实现接口”意味着QueryInterface、AddRef、Release三个方法必须实现，所以相关代码是： class CMyWebBrowser : public IDocHostUIHandler { public:     CMyWebBrowser() { m_cRef
Delphi TWebBrowser
weixin_30835923的博客
06-19 691
Delphi WebBrowser控件的使用 WebBrowser控件属性：1、Application如果该对象有效，则返回掌管WebBrowser控件的应用程序实现的自动化对象(IDispatch)。如果在宿主对象中自动化对象无效，程序将返回WebBrowser控件的自动化对象2、Parent 返回WebBrowser控件的父自动化对象，通常是一个容器，例如是宿...
delphi的TWebBrowser控件，实际上是IE，版本比较低，经济打不开网页，可以通过修改注册表的方法进行修改成IE11
03-18
在Delphi编程环境中，TWebBrowser控件是一个非常实用的组件，它允许开发者在应用程序中嵌入一个基于Internet Explorer（IE）的Web浏览器。然而，由于TWebBrowser控件是基于IE内核的，它的功能和性能受限于系统中安装...
delphi 中使用TWebBrowser控件
06-01
例如，在HTML中，我们可以使用标签来定义变量，然后在Delphi程序中使用OleObject.Document.script来访问该变量。例如： htm中： <script> var currID=123 Delphi中： id := Form1.WebBrowser1.OleObject.Document....
DELPHI TWebBrowser控件使用
12-24
本文将深入探讨如何在Delphi中有效地使用`TWebBrowser`控件，并详细介绍其实现的一些关键特性与技巧。 #### 二、基本概念 `TWebBrowser`控件基于ActiveX技术，可以用来显示和交互网页内容。它提供了丰富的API来实现...
delphi twebbrowser小例子。
10-24
Delphi中的TWebBrowser组件是开发桌面应用程序时用于嵌入Web浏览器功能的重要工具。这个组件基于Internet Explorer（IE）的ActiveX控件，允许开发者在Delphi程序中展示网页、执行JavaScript以及与网页内容进行交互。...
Delphi能用TWebBrowser制作网页编辑器吗demo宣贯.pdf
10-30
### Delphi 使用 TWebBrowser 制作网页编辑器的知识点详解 #### 一、引言 随着互联网技术的发展，网页编辑器的需求日益增加。而 Delphi 作为一种强大的跨平台开发工具，提供了丰富的组件库，包括 TWebBrowser 组件...
delphi TWebBrowser 使用
pdw2009的专栏
11-16 723
delphi TWebBrowser 使用
Delphi 如何挂上IDocHostUIHandler接口实现？
01-11 211
为了更好地控制WebBrowser，我们可以在一个com对象中实现IDocHostUIHandler（和IDocHostUIHandler2）接口，并把这个接口实现挂到WebBrowser实例上去，成功挂接之后，我们就可以通过实现这些接口的com对象控制WebBrowser的行为方式及其外观了。   为了演示如何挂接COM对象，我们假设我们在窗体上放置了一个TWebBrowser实例WB，并且实
Delphi下TWebBrowser控件的使用
时光旅行者
02-10 1844
<br />程序需要访问网页时，delphi一般可以两种方式实现。一种是通过Tidhttp，这种方式post数据需要通过网页抓包等方式，模拟网页的post提交。<br />第二种是通过Twebbrowser控件访问，这种方式比较简单，现在将近期一个程序的关键部分记录下来，以备各位朋友参考。<br />一、访问网页<br />WebBrowser1.Navigate('http://www.baidu.com');<br />二、防止弹出的对话框或页面关闭webrowser控件<br />procedure
Delphi中TWebBrowser中注入Js
diligentcat的专栏
11-27 2072
最近帮朋友做一个软件，其中要自动化某网页中的操作，最简的操作是调用自己写的代码。 代码如下： procedure TForm1.Button2Click(Sender: TObject); var   i:integer;   h:IHTMLHeaderElement;   o:OleVariant; begin   o:=webbrowser1.OleObject.documen
Delphi中TWebBrowser的用法
daiswy的博客
12-26 3044
WebBrowser1.GoHome; //到浏览器默认主页  WebBrowser1.Refresh; //刷新  WebBrowser1.GoBack; //后退  WebBrowser1.GoForward; //前进  WebBrowser1.Navigate('...'); //打开指定页面  WebBrowser1.Navigate('about:blank'); //打开空页面  /
IDocHostUIHandler
ericzhou99的专栏
12-31 799
 http://www.codeproject.com/KB/miscctrl/WBCArticle.aspx http://www.vckbase.net/document/viewdoc/?id=789http://www.qqgb.com/Program/VC/VCJQ/Program_166693.html
delphi 动态建立WebBrower
weixin_30376453的博客
08-01 200
//Delphi动态建立WebBrowerunit Main;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;...
delphi中TWebBrowser控件增强版
冷月宫主的专栏
02-27 1120
<br />delphi中TWebBrowser控件增强版，增加控制浏览器的滚动条，右键菜单，3D边框属性，可以通过设置属性隐藏TWebBrowser的滚动条，右键菜单，3D边框，使之不可见。控件代码如下：<br />unit WebBrowserWithUI;<br />interface<br />uses<br />  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br />  OleCtrls, S
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值