使用C++实现SDK之WebBrowser容器

一.由来
         我还记还得当自认为学习完了C++语法后, 兴致勃勃的打开MFC向导,开始所谓"MFC高级自动化编程"时, 我不由喊道: 这他妈的都是些什么乱七八糟的东西啊.诚然,MFC为了方便愚蠢的程序员,的确是让人瞬间高级编程, 可是愚蠢的我们还是会用CString strTest;写出(PWSTR)strTest.GetBuffer() 这种自作聪明的用法,结果就是整个程序好像发了疯.
         终于有一天,我大喊一声: 滚蛋吧,MFC!
         太阳当空照,上帝对 我笑:  你Y去写个有WebBrowser控件的窗口吧
二.结构
          MFC的HTMLDialog 是一个魔盒, 他容易上手,可是却很难深入,究其缘由, 私以为无外乎MFC包装的太好, 不识庐山真面目,只缘身在此山中.  总是以为作为C类型的程序员,喜欢深入原理是职业特性.
        于是首先看到有强人写的纯C实现WebBrowser控件,他在这里: http://www.codeproject.com/KB/COM/cwebpage.aspx 这位同志很好的展示了在没有C++的支持下,支持ActiveX是多么痛苦的一件事情...........汗. 在下觉得,撇开C++的类的特性,虚拟特性,重载特性,而去用纯C实现,实在有点过犹不及,当然这种练习修炼内功很好,但是实际应用上显得麻烦.毕竟,ActiveX很好的使用了C++的特性,而不是C的特性.
        接着,开始使用纯SDK编写容器. 读者可以搜索csdn中关于SDK实现WebBrowser容器的帖子, 许多人说那是非常繁琐复杂.所谓人云亦云,各位看官不妨跟着我一试,且看到底何如?
       WebBrowser容器的实现需要许多接口, 也许正是这吓退了许多人, 实际情况是,许多接口的方法没几个需要实现,大部分只需要直接返回E_NOTIMPL和S_OK, E_FAIL.
       让我们命名我们编写的容器叫 WebBrowser (可能名字有点糊涂,但是因为源代码中就是这个名字,所以就不改了,大家只需要注意,这个是一个WebBrowser控件的容器 ),   在实现这个容器后, 我们把他作为一个窗口类的父类,这样 就能实现WebBrowser的页面窗口.
      首先一个WB( WebBrowser) 容器需要以下接口:
  1.     public IDispatch
  2.     public IOleClientSite
  3.     public IOleInPlaceSite
  4.     public IOleInPlaceFrame
       每个接口需要实现的方法分别是:
  1.         // IUnknown methods
  2.     virtual STDMETHODIMP QueryInterface(REFIID iid,void**ppvObject);
  3.     virtual STDMETHODIMP_(ULONG) AddRef();
  4.     virtual STDMETHODIMP_(ULONG) Release();
  6.     // IDispatch Methods
  7.     HRESULT _stdcall GetTypeInfoCount(unsigned int * pctinfo);
  8.     HRESULT _stdcall GetTypeInfo(unsigned int iTInfo,LCID lcid,ITypeInfo FAR* FAR* ppTInfo);
  9.     HRESULT _stdcall GetIDsOfNames(REFIID riid,OLECHAR FAR* FAR* rgszNames,unsigned int cNames,LCID lcid,DISPID FAR* rgDispId);
  10.     HRESULT _stdcall Invoke(DISPID dispIdMember,REFIID riid,LCID lcid,WORD wFlags,DISPPARAMS FAR* pDispParams,VARIANT FAR* pVarResult,EXCEPINFO FAR* pExcepInfo,unsigned int FAR* puArgErr);
  13.     // IOleClientSite methods
  14.     virtual STDMETHODIMP SaveObject();
  15.     virtual STDMETHODIMP GetMoniker(DWORD dwA,DWORD dwW,IMoniker**pm);
  16.     virtual STDMETHODIMP GetContainer(IOleContainer**pc);
  17.     virtual STDMETHODIMP ShowObject();
  18.     virtual STDMETHODIMP OnShowWindow(BOOL f);
  19.     virtual STDMETHODIMP RequestNewObjectLayout();
  22.     // IOleInPlaceSite methods
  23.     virtual STDMETHODIMP GetWindow(HWND *p);
  24.     virtual STDMETHODIMP ContextSensitiveHelp(BOOL);
  25.     virtual STDMETHODIMP CanInPlaceActivate();
  26.     virtual STDMETHODIMP OnInPlaceActivate();
  27.     virtual STDMETHODIMP OnUIActivate();
  28.     virtual STDMETHODIMP GetWindowContext(IOleInPlaceFrame** ppFrame,IOleInPlaceUIWindow **ppDoc,LPRECT r1,LPRECT r2,LPOLEINPLACEFRAMEINFO o);
  29.     virtual STDMETHODIMP Scroll(SIZE s);
  30.     virtual STDMETHODIMP OnUIDeactivate(int);
  31.     virtual STDMETHODIMP OnInPlaceDeactivate();
  32.     virtual STDMETHODIMP DiscardUndoState();
  33.     virtual STDMETHODIMP DeactivateAndUndo();
  34.     virtual STDMETHODIMP OnPosRectChange(LPCRECT);
  36.     // IOleInPlaceFrame methods
  37.     virtual STDMETHODIMP GetBorder(LPRECT l);
  38.     virtual STDMETHODIMP RequestBorderSpace(LPCBORDERWIDTHS);
  39.     virtual STDMETHODIMP SetBorderSpace(LPCBORDERWIDTHS w);
  40.     virtual STDMETHODIMP SetActiveObject(IOleInPlaceActiveObject*pV,LPCOLESTR s);
  41.     virtual STDMETHODIMP InsertMenus(HMENU h,LPOLEMENUGROUPWIDTHS x);
  42.     virtual STDMETHODIMP SetMenu(HMENU h,HOLEMENU hO,HWND hw);
  43.     virtual STDMETHODIMP RemoveMenus(HMENU h);
  44.     virtual STDMETHODIMP SetStatusText(LPCOLESTR t);
  45.     virtual STDMETHODIMP EnableModeless(BOOL f);
  46.     virtual STDMETHODIMP TranslateAccelerator(LPMSG,WORD);
   这里插几句题外话, 我讨厌看文章, 因为萝莉罗嗦也没看到那个爆炸点, 就是你看到他,一下子思路有了头绪, 不再是一头雾水了.可惜,我看到的大部分文章都不是这样, 为了避免这个问题, 我在这里放个屁, 嗯,也算是一个小小的爆破吧.
      好,上面已经罗列了需要的接口和接口的方法.  
      要想实现WB的容器,你必须有这段代码:
  1. WebBrowser::WebBrowser()
  2. {
  3.   //初始化OLE
  4.   OleInitialize(0);
  5.   //创建IStorage对象,其中_pStorage是WebBrowser的私有变量
  6.   StgCreateDocfile(0,STGM_READWRITE | STGM_SHARE_EXCLUSIVE | STGM_DIRECT | STGM_CREATE,0,&_pStorage);
  8.   //创建IOleObject对象,我们看到,短短的一条语句,已经几乎创建完成了WebBrowser!
  9.   //this在这里时表示当前类(即WebBrowser)作为容器,承载_pOleObj这个控件 
  10.   //这里就是放屁现场了,大家好好看看哈.   
  11.  OleCreate( CLSID_WebBrowser,IID_IOleObject,OLERENDER_DRAW, 0 , this, _pStorage, (void**)&_pOleObj );
  13.   //获得IOleInPlaceObject对象
  14.   _pOleObj->QueryInterface(IID_IOleInPlaceObject,(LPVOID*)&_pInPlaceObj);
  16. }
上面一段代码已经创建了wb的Ole对象, 接下来,你只需要打开WB,然后打开网页.我们用两个函数实现,他们是OpenWebBrowser() 和 OpenURL( VARIANT* pVarUrl )
OpenWebBrowser:
  1. BOOL    
  2. WebBrowser::OpenWebBrowser()
  3. {
  4.     BOOL bRet = FALSE;
  6.     // RECTWIDTH 和 RECTHEIGHT 是计算RECT长宽的宏函数
  7.     // _rcWebWnd 是WebBrowser的私有RECT成员,就是GetHWND()的大小.
  8.     // 下面的语句就是关联两者
  9.     // GetHWND()获取容器的框架窗口句柄,就是我们创建的窗口,关于这个函数,下面会单独讲
  10.     if( (RECTWIDTH(_rcWebWnd) && RECTHEIGHT(_rcWebWnd)) == 0 )
  11.     ::GetClientRect( GetHWND() ,&_rcWebWnd);//设置WebBrowser的大小为窗口的客户区大小.
  12.     
  13.     // _bInPlaced 是WebBrowser的一个私有BOOL成员,初始为false
  14.     // 一旦执行了OLEIVERB_INPLACEACTIVATE (就是下面的操作)后,立即设置为true,防止控件被多次放置在容器中
  15.     // _GetOleObject()是WebBrowser的一个保护函数成员,他只是简单的返回_pOleObj
  16.     // _pOleObj就是WB控件本身. 考虑到WebBrowser是一个基本类,以后必然被其他类继承,所以使用_GetOleObject()来返回_pOleObject,来实现防止_pOleObject本身不被修改的意外.
  17.     if( _bInPlaced == false )// Activate In Place
  18.     {
  19.       _bInPlaced = true;//_bInPlaced must be set as true, before INPLACEACTIVATE, otherwise, once DoVerb, it would return error;
  20.       _bExternalPlace = 0;//lParam;
  21.       _GetOleObject()->DoVerb(OLEIVERB_INPLACEACTIVATE,0,this,0, GetHWND(),&_rcWebWnd);
  22.       _bInPlaced = true;
  23.     }
  25.     bRet = TRUE;
  26. RETURN:
  27.     return bRet;
  28. }

OpenURL(...)
  1. BOOL    
  2. WebBrowser::OpenURL(VARIANT* pVarUrl)
  3. {
  4.     BOOL bRet = FALSE;
  5.         //GetWebBrowser2 返回IWebBrowser2
  6.         //他的实现是这样的:
  7.         //if( _pWB2 != NULL )//_pWB2是WebBrowser的私有IWebBrowser2指针
  8.     //   return _pWB2;//如果_pWB2已经不是NULL,即已经获取过内容,则直接返回
  9.         ////否则使用WB控件对象枚举IWebBrowser2指针
  10.     //_pOleObj->QueryInterface(IID_IWebBrowser2,(void**)&_pWB2);
  11.         //return _pWB2;
  12.     GetWebBrowser2()->Navigate2( pVarUrl,0,0,0,0);//打开网页
  13.     bRet = TRUE;
  14. RETURN:
  15.     return bRet;
  16. }


三.细节
         前面说过,那几个接口的方法,大部分都是直接返回E_NOTIMPL和S_OK, E_FAIL.,我说大部分,说明必然有些函数需要做一些事情,而且其作用很不小, 请看官别马虎了这段. :)
        IDispatch 接口中的 IUnknown 的实现实在是不必多言, 稍微说一下接口枚举:
  1. STDMETHODIMP WebBrowser::QueryInterface(REFIID iid,void**ppvObject)
  2. {
  3.     *ppvObject = 0;
  4.     if ( iid == IID_IOleClientSite )
  5.         *ppvObject = (IOleClientSite*)this;
  6.     if ( iid == IID_IUnknown )
  7.         *ppvObject = this;
  8.     if ( iid == IID_IDispatch )
  9.         *ppvObject = (IDispatch*)this;
  10.     if ( _bExternalPlace == false)
  11.     {
  12.         if ( iid == IID_IOleInPlaceSite )
  13.             *ppvObject = (IOleInPlaceSite*)this;
  14.         if ( iid == IID_IOleInPlaceFrame )
  15.             *ppvObject = (IOleInPlaceFrame*)this;
  16.         if ( iid == IID_IOleInPlaceUIWindow )
  17.             *ppvObject = (IOleInPlaceUIWindow*)this;
  18.     }
  19.     if ( iid == DIID_DWebBrowserEvents2 )
  20.         *ppvObject = (DWebBrowserEvents2 *)this;
  21.     if ( iid == IID_IDocHostUIHandler)
  22.         *ppvObject = (IDocHostUIHandler*)this;
  24.     if ( *ppvObject )
  25.     {
  26.         AddRef();
  27.         return S_OK;
  28.     }
  29.     return E_NOINTERFACE;
  30. }

        下面先说GetWindow
  1. //IOleInPlaceSite methods
  2. STDMETHODIMP WebBrowser::GetWindow(HWND *p)
  3. {
  4.     *p = GetHWND();//需要设置p为当前框架的窗口,否则Ole对象不知道框架
  5.     return S_OK;
  6. }
       再来说: CanInPlaceActivate(); Ole对象会询问容器,我能不能插进来(脸红中~)? 得到准许后才能温柔的插入,粗暴是不行的哦!
  1. //IOleInPlaceSite methods
  2. STDMETHODIMP WebBrowser::CanInPlaceActivate()//If this function return S_FALSE, AX cannot activate in place!
  3. {
  4.     if ( _bInPlaced )//Does WebBrowser Control already in placed?
  5.     {
  6.         _bCalledCanInPlace = true;
  7.         return S_OK;
  8.     }
  9.     return S_FALSE;
  10. }
         WebBrowser::GetWindowContext(...) 获取窗口上下文(内容)
  1. STDMETHODIMP WebBrowser::GetWindowContext(IOleInPlaceFrame** ppFrame,IOleInPlaceUIWindow **ppDoc,LPRECT r1,LPRECT r2,LPOLEINPLACEFRAMEINFO o)
  2. {
  3.     //因为IOleInPlaceFrame接口已经被我们的WebBrowser实现
  4.         //所以直接设置为this
  5.     *ppFrame = (IOleInPlaceFrame*)this;
  6.     AddRef();
  7.     *ppDoc = NULL;
  9.         // r1, r2设置为框架的大小, 让WB充满整个窗口
  10.     ::GetClientRect(  GetHWND() ,&_rcWebWnd );
  11.     *r1 = _rcWebWnd;
  12.     *r2 = _rcWebWnd;
  14.         //我们没有这方面的要求,所以仅仅初始化.
  15.     o->cb = sizeof(OLEINPLACEFRAMEINFO);
  16.     o->fMDIApp = false;
  17.     o->hwndFrame = GetParent( GetHWND() );
  18.     o->haccel = 0;
  19.     o->cAccelEntries = 0;
  20.     
  21.     return S_OK;
  22. }
        好了,下面是最后一个需要加料的函数了: IOleInPlaceFrame 接口的方法: GetBorder
        注意这个接口正是上面说过的函数GetWindowContent 传递给OleObj对象的
  1. //IOleInPlaceFrame methods|
  2. STDMETHODIMP WebBrowser::GetBorder(LPRECT l)
  3. {
  4.     ::GetClientRect(  GetHWND() ,&_rcWebWnd );
  5.     *l = _rcWebWnd;
  6.     return S_OK;
  7. }
        到现在为止,对于容器本身的实现已经全部完成了, 但是细心的读者会问到, GetHWND(void)还没有实现那!?
        实际上,WebBrowser 作为一个基本类,不应当实现GetHWND(), 相反地, 他应当作为一个纯虚函数,要求其子类实现.
        然后,我做了一个实验, 发现作为纯虚函数, 不能在类的构造函数中被调用, 或者间接调用. 而我们在WebBrowser::WebBrowser()中已经间接调用了GetHWND(),所以会有问题, 于是我们耍赖,把GetHWND(){return NULL;}
这样可以解决虚函数的问题.

四. 所有实现

WebBroser.h
  2. class WebBrowser:
  3.     public IDispatch,
  4.     public IOleClientSite,
  5.     public IOleInPlaceSite,
  6.     public IOleInPlaceFrame,
  7.     public IDocHostUIHandler
  8. {
  9. public:
  10.     WebBrowser();
  11.     ~WebBrowser(void);
  12.     public:
  13.     // IUnknown methods
  14.     virtual STDMETHODIMP QueryInterface(REFIID iid,void**ppvObject);
  15.     virtual STDMETHODIMP_(ULONG) AddRef();
  16.     virtual STDMETHODIMP_(ULONG) Release();
  18.     // IDispatch Methods
  19.     HRESULT _stdcall GetTypeInfoCount(unsigned int * pctinfo);
  20.     HRESULT _stdcall GetTypeInfo(unsigned int iTInfo,LCID lcid,ITypeInfo FAR* FAR* ppTInfo);
  21.     HRESULT _stdcall GetIDsOfNames(REFIID riid,OLECHAR FAR* FAR* rgszNames,unsigned int cNames,LCID lcid,DISPID FAR* rgDispId);
  22.     HRESULT _stdcall Invoke(DISPID dispIdMember,REFIID riid,LCID lcid,WORD wFlags,DISPPARAMS FAR* pDispParams,VARIANT FAR* pVarResult,EXCEPINFO FAR* pExcepInfo,unsigned int FAR* puArgErr);
  25.     // IOleClientSite methods
  26.     virtual STDMETHODIMP SaveObject();
  27.     virtual STDMETHODIMP GetMoniker(DWORD dwA,DWORD dwW,IMoniker**pm);
  28.     virtual STDMETHODIMP GetContainer(IOleContainer**pc);
  29.     virtual STDMETHODIMP ShowObject();
  30.     virtual STDMETHODIMP OnShowWindow(BOOL f);
  31.     virtual STDMETHODIMP RequestNewObjectLayout();
  34.     // IOleInPlaceSite methods
  35.     virtual STDMETHODIMP GetWindow(HWND *p);
  36.     virtual STDMETHODIMP ContextSensitiveHelp(BOOL);
  37.     virtual STDMETHODIMP CanInPlaceActivate();
  38.     virtual STDMETHODIMP OnInPlaceActivate();
  39.     virtual STDMETHODIMP OnUIActivate();
  40.     virtual STDMETHODIMP GetWindowContext(IOleInPlaceFrame** ppFrame,IOleInPlaceUIWindow **ppDoc,LPRECT r1,LPRECT r2,LPOLEINPLACEFRAMEINFO o);
  41.     virtual STDMETHODIMP Scroll(SIZE s);
  42.     virtual STDMETHODIMP OnUIDeactivate(int);
  43.     virtual STDMETHODIMP OnInPlaceDeactivate();
  44.     virtual STDMETHODIMP DiscardUndoState();
  45.     virtual STDMETHODIMP DeactivateAndUndo();
  46.     virtual STDMETHODIMP OnPosRectChange(LPCRECT);
  48.     // IOleInPlaceFrame methods
  49.     virtual STDMETHODIMP GetBorder(LPRECT l);
  50.     virtual STDMETHODIMP RequestBorderSpace(LPCBORDERWIDTHS);
  51.     virtual STDMETHODIMP SetBorderSpace(LPCBORDERWIDTHS w);
  52.     virtual STDMETHODIMP SetActiveObject(IOleInPlaceActiveObject*pV,LPCOLESTR s);
  53.     virtual STDMETHODIMP InsertMenus(HMENU h,LPOLEMENUGROUPWIDTHS x);
  54.     virtual STDMETHODIMP SetMenu(HMENU h,HOLEMENU hO,HWND hw);
  55.     virtual STDMETHODIMP RemoveMenus(HMENU h);
  56.     virtual STDMETHODIMP SetStatusText(LPCOLESTR t);
  57.     virtual STDMETHODIMP EnableModeless(BOOL f);
  58.     virtual STDMETHODIMP TranslateAccelerator(LPMSG,WORD);
  60. protected:
  61.     virtual HWND GetHWND(){return NULL;};//继承的类应该实现这个方法,告诉WebBrowser,到底用哪一个HWND放置WebBrowser
  63.     // 内部工具函数
  64. private:
  65.     inline IOleObject* _GetOleObject(){return _pOleObj;};
  66.     inline IOleInPlaceObject* _GetInPlaceObject(){return _pInPlaceObj;};
  68.     //外部方法
  69. public:
  70.     IWebBrowser2*      GetWebBrowser2();
  71.     IHTMLDocument2*    GetHTMLDocument2();
  72.     IHTMLDocument3*    GetHTMLDocument3();
  73.     IHTMLWindow2*      GetHTMLWindow2();
  74.     IHTMLEventObj*     GetHTMLEventObject();
  76.     
  77.     BOOL       SetWebRect(LPRECT lprc);
  78.     BOOL       OpenWebBrowser();
  79.         BOOL       OpenURL(VARIANT* pVarUrl);
  81.     
  82.     // 内部数据
  83. protected:
  84.     long   _refNum;
  85. private:
  86.     RECT  _rcWebWnd;
  87.     bool  _bInPlaced;
  88.     bool  _bExternalPlace;
  89.     bool  _bCalledCanInPlace;
  90.     bool  _bWebWndInited;
  91. private:
  92.     //指针
  93.     IOleObject*                 _pOleObj; 
  94.     IOleInPlaceObject*          _pInPlaceObj;
  95.     IStorage*                   _pStorage;
  96.     IWebBrowser2*               _pWB2;
  97.     IHTMLDocument2*             _pHtmlDoc2;
  98.     IHTMLDocument3*             _pHtmlDoc3;
  99.     IHTMLWindow2*               _pHtmlWnd2;
  100.     IHTMLEventObj*              _pHtmlEvent;
  101. };
WebBrowser.cpp
注意: 里面有许多讨厌的东西,  是我加的饲料. 解释一下,我个人很喜欢这种错误处理方式.

读者可以简单的认为: (因为实际上我的实现不是那么简单,因为这个再说就有点复杂,所以简单化)
NULLTEST_SE( fn , wstr ) ;          如果 fn == 0 , 则显示 wstr, 并且跳转到RETURN
HRTEST_SE( fn, wstr);                  如果 fn!=S_OK ,则显示wstr,并且跳转到RETURN

另外,考虑到WebBrowser以后总是作为另外一个类的父类,所以他完全不会因为计数器归零而自删除.

  1. #include "WebBrowser.h"
  5. /*
  6. ==================
  7. |   构造和析构   |
  8. ==================
  9. */
  10. WebBrowser::WebBrowser(void):
  11. _refNum(0),
  12. //_rcWebWnd(0),
  13. _bInPlaced(false),
  14. _bExternalPlace(false),
  15. _bCalledCanInPlace(false),
  16. _bWebWndInited(false),
  17. _pOleObj(NULL), 
  18. _pInPlaceObj(NULL), 
  19. _pStorage(NULL), 
  20. _pWB2(NULL), 
  21. _pHtmlDoc2(NULL), 
  22. _pHtmlDoc3(NULL), 
  23. _pHtmlWnd2(NULL), 
  24. _pHtmlEvent(NULL)
  25. {
  26.     ::memset( (PVOID)&_rcWebWnd,0,sizeof(_rcWebWnd));
  27.     HRTEST_SE( OleInitialize(0),L"Ole初始化错误");
  28.     HRTEST_SE( StgCreateDocfile(0,STGM_READWRITE | STGM_SHARE_EXCLUSIVE | STGM_DIRECT | STGM_CREATE,0,&_pStorage),L"StgCreateDocfile错误");
  29.     HRTEST_SE( OleCreate(CLSID_WebBrowser,IID_IOleObject,OLERENDER_DRAW,0,this,_pStorage,(void**)&_pOleObj),L"Ole创建失败");
  30.     HRTEST_SE( _pOleObj->QueryInterface(IID_IOleInPlaceObject,(LPVOID*)&_pInPlaceObj),L"OleInPlaceObject创建失败");
  31. RETURN:
  32.     return;
  33. }
  35. WebBrowser::~WebBrowser(void)
  36. {
  37. }
  40. /*
  41. ==================
  42. |IUnknown methods|
  43. ==================
  44. */
  45. STDMETHODIMP WebBrowser::QueryInterface(REFIID iid,void**ppvObject)
  46. {
  47.     *ppvObject = 0;
  48.     if ( iid == IID_IOleClientSite )
  49.         *ppvObject = (IOleClientSite*)this;
  50.     if ( iid == IID_IUnknown )
  51.         *ppvObject = this;
  52.     if ( iid == IID_IDispatch )
  53.         *ppvObject = (IDispatch*)this;
  54.     if ( _bExternalPlace == false)
  55.     {
  56.         if ( iid == IID_IOleInPlaceSite )
  57.             *ppvObject = (IOleInPlaceSite*)this;
  58.         if ( iid == IID_IOleInPlaceFrame )
  59.             *ppvObject = (IOleInPlaceFrame*)this;
  60.         if ( iid == IID_IOleInPlaceUIWindow )
  61.             *ppvObject = (IOleInPlaceUIWindow*)this;
  62.     }
  63.         /*
  64.         这里是一点走私货, 留在以后讲,如果有机会,你可以发现,原来如此简单.
  65.     if ( iid == DIID_DWebBrowserEvents2 )
  66.         *ppvObject = (DWebBrowserEvents2 *)this;
  67.     if ( iid == IID_IDocHostUIHandler)
  68.         *ppvObject = (IDocHostUIHandler*)this;
  69.         */
  70.     if ( *ppvObject )
  71.     {
  72.         AddRef();
  73.         return S_OK;
  74.     }
  75.     return E_NOINTERFACE;
  76. }
  78. STDMETHODIMP_(ULONG)  WebBrowser::AddRef()
  79. {
  80.     return ::InterlockedIncrement( &_refNum );
  81. }
  83. STDMETHODIMP_(ULONG)  WebBrowser::Release()
  84. {
  85.     return ::InterlockedDecrement( &_refNum );
  86. }
  88. /*
  89. =====================
  90. | IDispatch Methods |
  91. =====================
  92. */
  93. HRESULT _stdcall WebBrowser::GetTypeInfoCount(
  94.     unsigned int * pctinfo) 
  95. {
  96.     return E_NOTIMPL;
  97. }
  99. HRESULT _stdcall WebBrowser::GetTypeInfo(
  100.     unsigned int iTInfo,
  101.     LCID lcid,
  102.     ITypeInfo FAR* FAR* ppTInfo) 
  103. {
  104.     return E_NOTIMPL;
  105. }
  107. HRESULT _stdcall WebBrowser::GetIDsOfNames(REFIID riid, 
  108.   OLECHAR FAR* FAR* rgszNames, 
  109.   unsigned int cNames, 
  110.   LCID lcid, 
  111.   DISPID FAR* rgDispId )
  112. {
  113.     return E_NOTIMPL;
  114. }
  116. HRESULT _stdcall WebBrowser::Invoke(
  117.     DISPID dispIdMember,
  118.     REFIID riid,
  119.     LCID lcid,
  120.     WORD wFlags,
  121.     DISPPARAMS* pDispParams,
  122.     VARIANT* pVarResult,
  123.     EXCEPINFO* pExcepInfo,
  124.     unsigned int* puArgErr)
  125. {
  126.         /*走私货,留在以后讲,是关于DWebBrowserEvents2让人激动的实现,而且简单.
  127.     // DWebBrowserEvents2
  128.     if( dispIdMember == DISPID_DOCUMENTCOMPLETE)
  129.     {
  130.         DocumentComplete(pDispParams->rgvarg[1].pdispVal,pDispParams->rgvarg[0].pvarVal);
  131.         return S_OK;
  132.     }
  133.     if( dispIdMember == DISPID_BEFORENAVIGATE2)
  134.     {
  135.         BeforeNavigate2( pDispParams->rgvarg[6].pdispVal,
  136.                          pDispParams->rgvarg[5].pvarVal,
  137.                          pDispParams->rgvarg[4].pvarVal,
  138.                          pDispParams->rgvarg[3].pvarVal,
  139.                          pDispParams->rgvarg[2].pvarVal,
  140.                          pDispParams->rgvarg[1].pvarVal,
  141.                          pDispParams->rgvarg[0].pboolVal);
  142.         return S_OK;
  143.     }
  144.         */
  145.     return E_NOTIMPL;
  146. }
  148. /*
  149. ========================
  150. |IOleClientSite methods|
  151. ========================
  152. */
  153. STDMETHODIMP WebBrowser::SaveObject()
  154. {
  155.     return S_OK;
  156. }
  158. STDMETHODIMP WebBrowser::GetMoniker(DWORD dwA,DWORD dwW,IMoniker**pm)
  159. {
  160.     *pm = 0;
  161.     return E_NOTIMPL;
  162. }
  164. STDMETHODIMP WebBrowser::GetContainer(IOleContainer**pc)
  165. {
  166.     *pc = 0;
  167.     return E_FAIL;
  168. }
  170. STDMETHODIMP WebBrowser::ShowObject()
  171. {
  172.     return S_OK;
  173. }
  175. STDMETHODIMP WebBrowser::OnShowWindow(BOOL f)
  176. {
  177.     return S_OK;
  178. }
  180. STDMETHODIMP WebBrowser::RequestNewObjectLayout()
  181. {
  182.     return S_OK;
  183. }
  186. /*
  187. =========================
  188. |IOleInPlaceSite methods|
  189. =========================
  190. */
  191. STDMETHODIMP WebBrowser::GetWindow(HWND *p)
  192. {
  193.     *p = GetHWND();
  194.     return S_OK;
  195. }
  197. STDMETHODIMP WebBrowser::ContextSensitiveHelp(BOOL)
  198. {
  199.     return E_NOTIMPL;
  200. }
  202. STDMETHODIMP WebBrowser::CanInPlaceActivate()//If this function return S_FALSE, AX cannot activate in place!
  203. {
  204.     if ( _bInPlaced )//Does WebBrowser Control already in placed?
  205.     {
  206.         _bCalledCanInPlace = true;
  207.         return S_OK;
  208.     }
  209.     return S_FALSE;
  210. }
  212. STDMETHODIMP WebBrowser::OnInPlaceActivate()
  213. {
  214.     return S_OK;
  215. }
  217. STDMETHODIMP WebBrowser::OnUIActivate()
  218. {
  219.     return S_OK;
  220. }
  222. STDMETHODIMP WebBrowser::GetWindowContext(IOleInPlaceFrame** ppFrame,IOleInPlaceUIWindow **ppDoc,LPRECT r1,LPRECT r2,LPOLEINPLACEFRAMEINFO o)
  223. {
  224.     
  225.     *ppFrame = (IOleInPlaceFrame*)this;
  226.     AddRef();
  227.     *ppDoc = NULL;
  229.     ::GetClientRect(  GetHWND() ,&_rcWebWnd );
  230.     *r1 = _rcWebWnd;
  231.     *r2 = _rcWebWnd;
  233.     o->cb = sizeof(OLEINPLACEFRAMEINFO);
  234.     o->fMDIApp = false;
  235.     o->hwndFrame = GetParent( GetHWND() );
  236.     o->haccel = 0;
  237.     o->cAccelEntries = 0;
  238.     
  239.     return S_OK;
  240. }
  242. STDMETHODIMP WebBrowser::Scroll(SIZE s)
  243. {
  244.     return E_NOTIMPL;
  245. }
  247. STDMETHODIMP WebBrowser::OnUIDeactivate(int)
  248. {
  249.     return S_OK;
  250. }
  252. STDMETHODIMP WebBrowser::OnInPlaceDeactivate()
  253. {
  254.     return S_OK;
  255. }
  257. STDMETHODIMP WebBrowser::DiscardUndoState()
  258. {
  259.     return S_OK;
  260. }
  262. STDMETHODIMP WebBrowser::DeactivateAndUndo()
  263. {
  264.     return S_OK;
  265. }
  267. STDMETHODIMP WebBrowser::OnPosRectChange(LPCRECT)
  268. {
  269.     return S_OK;
  270. }
  273. /*
  274. ==========================
  275. |IOleInPlaceFrame methods|
  276. ==========================
  277. */
  278. STDMETHODIMP WebBrowser::GetBorder(LPRECT l)
  279. {
  280.     ::GetClientRect(  GetHWND() ,&_rcWebWnd );
  281.     *l = _rcWebWnd;
  282.     return S_OK;
  283. }
  285. STDMETHODIMP WebBrowser::RequestBorderSpace(LPCBORDERWIDTHS b)
  286. {
  287.     return S_OK;
  288. }
  290. STDMETHODIMP WebBrowser::SetBorderSpace(LPCBORDERWIDTHS b)
  291. {
  292.     return S_OK;
  293. }
  295. STDMETHODIMP WebBrowser::SetActiveObject(IOleInPlaceActiveObject*pV,LPCOLESTR s)
  296. {
  297.     return S_OK;
  298. }
  300. STDMETHODIMP WebBrowser::SetStatusText(LPCOLESTR t)
  301. {
  302.     return E_NOTIMPL;
  303. }
  305. STDMETHODIMP WebBrowser::EnableModeless(BOOL f)
  306. {
  307.     return E_NOTIMPL;
  308. }
  310. STDMETHODIMP WebBrowser::TranslateAccelerator(LPMSG,WORD)
  311. {
  312.     return E_NOTIMPL;
  313. }
  315. HRESULT _stdcall WebBrowser::RemoveMenus(HMENU h)
  316. {
  317.     return E_NOTIMPL;
  318. }
  320. HRESULT _stdcall WebBrowser::InsertMenus(HMENU h,LPOLEMENUGROUPWIDTHS x)
  321. {
  322.     return E_NOTIMPL;
  323. }
  324. HRESULT _stdcall WebBrowser::SetMenu(HMENU h,HOLEMENU hO,HWND hw)
  325. {
  326.     return E_NOTIMPL;
  327. }
  330. /*
  331. ====================
  332. |DWebBrowserEvents2|
  333. ====================
  334. */
  335. /* 走私货,以后再讲
  336. void 
  337. WebBrowser::DocumentComplete( IDispatch *pDisp,VARIANT *URL)
  338. {
  339.         //老天保佑,多好的函数啊.
  340.     return ;
  341. }
  345. void 
  346. WebBrowser::BeforeNavigate2( IDispatch *pDisp,VARIANT *&url,VARIANT *&Flags,VARIANT *&TargetFrameName,VARIANT *&PostData,VARIANT *&Headers,VARIANT_BOOL *&Cancel)
  347. {
  348.     PCWSTR pcwApp = L"app:";
  349.     if( url->vt != VT_BSTR )
  350.         return;
  351.     if( 0 == _wcsnicmp( pcwApp, url->bstrVal,wcslen(pcwApp)) )
  352.     {
  353.         *Cancel = VARIANT_TRUE;
  354.         _OnHtmlCmd( url->bstrVal+wcslen(pcwApp) );
  355.         return;
  356.     }
  357.     *Cancel = VARIANT_FALSE;
  358. }
  359. */
  360. /*
  361. =====================
  362. | IDocHostUIHandler |
  363. =====================
  364. */
  365. /*
  366. 传说中的IDocHostUIHanler,同样留在以后讲
  367. HRESULT WebBrowser:: ShowContextMenu( 
  368.     DWORD dwID,
  369.     POINT *ppt,
  370.     IUnknown *pcmdtReserved,
  371.     IDispatch *pdispReserved){return E_NOTIMPL;}
  373. HRESULT WebBrowser:: GetHostInfo( 
  374.                                         DOCHOSTUIINFO *pInfo){return E_NOTIMPL;}
  376. HRESULT WebBrowser:: ShowUI( 
  377.                                    DWORD dwID,
  378.                                    IOleInPlaceActiveObject *pActiveObject,
  379.                                    IOleCommandTarget *pCommandTarget,
  380.                                    IOleInPlaceFrame *pFrame,
  381.                                    IOleInPlaceUIWindow *pDoc){return E_NOTIMPL;}
  383. HRESULT WebBrowser:: HideUI( void){return E_NOTIMPL;}
  385. HRESULT WebBrowser:: UpdateUI( void){return E_NOTIMPL;}
  387. //HRESULT WebBrowser:: EnableModeless( 
  388. //  BOOL fEnable){return E_NOTIMPL;}
  390. HRESULT WebBrowser:: OnDocWindowActivate( 
  391.     BOOL fActivate){return E_NOTIMPL;}
  393. HRESULT WebBrowser:: OnFrameWindowActivate( 
  394.     BOOL fActivate){return E_NOTIMPL;}
  396. HRESULT WebBrowser:: ResizeBorder( 
  397.     LPCRECT prcBorder,
  398.     IOleInPlaceUIWindow *pUIWindow,
  399.     BOOL fRameWindow){return E_NOTIMPL;}
  401. HRESULT WebBrowser:: TranslateAccelerator( 
  402.     LPMSG lpMsg,
  403.     const GUID *pguidCmdGroup,
  404.     DWORD nCmdID){return E_NOTIMPL;}
  406. HRESULT WebBrowser:: GetOptionKeyPath( 
  407.     LPOLESTR *pchKey,
  408.     DWORD dw){return E_NOTIMPL;}
  410. HRESULT WebBrowser:: GetDropTarget( 
  411.     IDropTarget *pDropTarget,
  412.     IDropTarget **ppDropTarget)
  413. {
  414.     return E_NOTIMPL;//使用默认拖拽
  415.     //return S_OK;//自定义拖拽
  416. }
  418. HRESULT WebBrowser:: GetExternal( IDispatch **ppDispatch)
  419. {
  420.     return E_NOTIMPL;
  421. }
  423. HRESULT WebBrowser:: TranslateUrl( 
  424.     DWORD dwTranslate,
  425.     OLECHAR *pchURLIn,
  426.     OLECHAR **ppchURLOut){return E_NOTIMPL;}
  428. HRESULT WebBrowser:: FilterDataObject( 
  429.     IDataObject *pDO,
  430.     IDataObject **ppDORet){return E_NOTIMPL;}
  431. */
  434. /*
  435. ===============
  436. |Other Methods|
  437. ===============
  438. */
  439. IWebBrowser2* 
  440. WebBrowser::GetWebBrowser2()
  441. {
  442.     if( _pWB2 != NULL )
  443.         return _pWB2;
  444.     NULLTEST_SE( _pOleObj,L"Ole对象为空");
  445.     HRTEST_SE( _pOleObj->QueryInterface(IID_IWebBrowser2,(void**)&_pWB2),L"QueryInterface IID_IWebBrowser2 失败");
  446.     return _pWB2;
  447. RETURN:
  448.     return NULL;
  449. }
  451. IHTMLDocument2*    
  452. WebBrowser::GetHTMLDocument2()
  453. {
  454.     if( _pHtmlDoc2 != NULL )
  455.         return _pHtmlDoc2;
  456.     IWebBrowser2* pWB2 = NULL;
  457.     NULLTEST(pWB2 = GetWebBrowser2());//GetWebBrowser2已经将错误原因交给LastError.
  458.     IDispatch* pDp =  NULL;
  459.     HRTEST_SE(pWB2->get_Document(&pDp),L"DWebBrowser2::get_Document 错误");
  460.     HRTEST_SE(pDp->QueryInterface(IID_IHTMLDocument2,(void**)&_pHtmlDoc2),L"QueryInterface IID_IHTMLDocument2 失败");
  461.     return _pHtmlDoc2;
  462. RETURN:
  463.     return NULL;
  464. }
  465. IHTMLDocument3*    
  466. WebBrowser::GetHTMLDocument3()
  467. {
  468.     if( _pHtmlDoc3 != NULL )
  469.         return _pHtmlDoc3;
  471.     IWebBrowser2* pWB2 = NULL;
  472.     NULLTEST(pWB2 = GetWebBrowser2());//GetWebBrowser2已经将错误原因交给LastError.
  473.     IDispatch* pDp =  NULL;
  474.     HRTEST_SE(pWB2->get_Document(&pDp),L"DWebBrowser2::get_Document 错误");
  475.     HRTEST_SE(pDp->QueryInterface(IID_IHTMLDocument3,(void**)&_pHtmlDoc3),L"QueryInterface IID_IHTMLDocument3 失败");
  476.     return _pHtmlDoc3;
  477. RETURN:
  478.     return NULL;
  479. }
  481. IHTMLWindow2*
  482. WebBrowser::GetHTMLWindow2()
  483. {
  484.     if( _pHtmlWnd2 != NULL)
  485.         return _pHtmlWnd2;
  486.     IHTMLDocument2*  pHD2 = GetHTMLDocument2();
  487.     NULLTEST( pHD2 );
  488.     HRTEST_SE( pHD2->get_parentWindow(&_pHtmlWnd2),L"IHTMLWindow2::get_parentWindow 错误" );
  489.     return _pHtmlWnd2;
  490. RETURN:
  491.     return NULL;
  492. }
  494. IHTMLEventObj*   
  495. WebBrowser::GetHTMLEventObject()
  496. {
  497.     if( _pHtmlEvent != NULL )
  498.         return _pHtmlEvent;
  499.     IHTMLWindow2* pHW2;
  500.     NULLTEST( pHW2 = GetHTMLWindow2() );
  501.     HRTEST_SE( pHW2->get_event(&_pHtmlEvent),L"IHTMLWindow2::get_event 错误");
  502.     return _pHtmlEvent;
  503. RETURN:
  504.     return NULL;
  505. }
  507. BOOL       
  508. WebBrowser::SetWebRect(LPRECT lprc)
  509. {
  510.     BOOL bRet = FALSE;
  511.     if( false == _bInPlaced )//尚未OpenWebBrowser操作,直接写入_rcWebWnd
  512.     {
  513.        _rcWebWnd = *lprc;
  514.     }
  515.     else//已经打开WebBrowser,通过 IOleInPlaceObject::SetObjectRects 调整大小
  516.     {
  517.         SIZEL size;
  518.         size.cx = RECTWIDTH(*lprc);
  519.         size.cy = RECTHEIGHT(*lprc);
  521.         IOleObject* pOleObj;
  522.         NULLTEST( pOleObj= _GetOleObject());
  523.         HRTEST_E( pOleObj->SetExtent(  1,&size ),L"SetExtent 错误");
  525.         IOleInPlaceObject* pInPlace;
  526.         NULLTEST( pInPlace = _GetInPlaceObject());
  527.         HRTEST_E( pInPlace->SetObjectRects(lprc,lprc),L"SetObjectRects 错误");
  528.         _rcWebWnd = *lprc;
  529.     }
  530.     bRet = TRUE;
  531. RETURN:
  532.     return bRet;
  533. }
  535. BOOL    
  536. WebBrowser::OpenWebBrowser()
  537. {
  538.     BOOL bRet = FALSE;
  539.     NULLTEST_E( _GetOleObject(),L"ActiveX对象为空" );//对于本身的实现函数,其自身承担错误录入工作
  540.     
  541.     if( (RECTWIDTH(_rcWebWnd) && RECTHEIGHT(_rcWebWnd)) == 0 )
  542.         ::GetClientRect( GetHWND() ,&_rcWebWnd);//设置WebBrowser的大小为窗口的客户区大小.
  543.     
  544.     if( _bInPlaced == false )// Activate In Place
  545.     {
  546.         _bInPlaced = true;//_bInPlaced must be set as true, before INPLACEACTIVATE, otherwise, once DoVerb, it would return error;
  547.         _bExternalPlace = 0;//lParam;
  548.     
  549.         HRTEST_E( _GetOleObject()->DoVerb(OLEIVERB_INPLACEACTIVATE,0,this,0, GetHWND()  ,&_rcWebWnd),L"关于INPLACE的DoVerb错误");
  550.         _bInPlaced = true;
  551.         
  552.         
  553.         //* 挂接DWebBrwoser2Event
  554.         IConnectionPointContainer* pCPC = NULL;
  555.         IConnectionPoint*          pCP  = NULL;
  556.         HRTEST_E( GetWebBrowser2()->QueryInterface(IID_IConnectionPointContainer,(void**)&pCPC),L"枚举IConnectionPointContainer接口失败");
  557.         HRTEST_E( pCPC->FindConnectionPoint( DIID_DWebBrowserEvents2,&pCP),L"FindConnectionPoint失败");
  558.         DWORD dwCookie = 0;
  559.         HRTEST_E( pCP->Advise( (IUnknown*)(void*)this,&dwCookie),L"IConnectionPoint::Advise失败");
  560.     }
  563.     bRet = TRUE;
  564. RETURN:
  565.     return bRet;
  566. }
  568. BOOL    
  569. WebBrowser::OpenURL(VARIANT* pVarUrl)
  570. {
  571.     BOOL bRet = FALSE;
  572.     HRTEST_E( GetWebBrowser2()->Navigate2( pVarUrl,0,0,0,0),L"GetWebBrowser2 失败");
  573.     bRet = TRUE;
  574. RETURN:
  575.     return bRet;
  576. }
五.例子
     
  1. class WebBrowserWindow :
  2.     public WebBrowser
  3. {
  4. public:
  5.     WebBrowserWindow(void);
  6.     ~WebBrowserWindow(void);
  7. public:
  8.     virtual HWND GetHWND(){ return YourWindow};
  10. private:
  11.     LRESULT OnCreate( WPARAM wParam,LPARAM lParam);
  12.     //您可以在OnCreate中调用OpenWebBrowser 然后调用 OpenURL
  13. };

六.下期预告,如果有的话
      如果有人感兴趣的话, 以后会说道如何扩展WebBrowser, 让他包罗万象, 你会发现很简单.
      如果有问题,欢迎提问. 谢谢.

posted on 2008-09-13 07:44  norsd  阅读(154)  评论(0)  编辑  收藏  举报

导航