CHtmlView中屏蔽脚本错误

首先从COleControlSite派生一个自己的类，重写Exec方法

STDMETHODIMP CMyBrowser::XOleCommandTarget::Exec( const GUID* pguidCmdGroup, DWORD nCmdID, DWORD nCmdexecopt, VARIANTARG* pvaIn, VARIANTARG* pvaOut )

{
 HRESULT hr = S_OK;
 
 if (pguidCmdGroup && IsEqualGUID(*pguidCmdGroup, CGID_DocHostCommandHandler))
 {
  
  switch (nCmdID)
  {
   
  case OLECMDID_SHOWSCRIPTERROR:
   {
    IHTMLDocument2*             pDoc = NULL;
    IHTMLWindow2*               pWindow = NULL;
    IHTMLEventObj*              pEventObj = NULL;
    BSTR                        rgwszNames[5] =
    {
     SysAllocString(L"errorLine"),
      SysAllocString(L"errorCharacter"),
      SysAllocString(L"errorCode"),
      SysAllocString(L"errorMessage"),
      SysAllocString(L"errorUrl")
    };

    DISPID                      rgDispIDs[5];
    VARIANT                     rgvaEventInfo[5];
    DISPPARAMS                  params;
    BOOL                        fContinueRunningScripts = true;
    int                         i;
    
    params.cArgs = 0;
    params.cNamedArgs = 0;
    
    // Get the document that is currently being viewed.
    hr = pvaIn->punkVal->QueryInterface(IID_IHTMLDocument2, (void **) &pDoc);    
    // Get document.parentWindow.
    hr = pDoc->get_parentWindow(&pWindow);
    pDoc->Release();
    // Get the window.event object.
    hr = pWindow->get_event(&pEventObj);
    // Get the error info from the window.event object.
    for (i = 0; i < 5; i++)
    { 
     // Get the property's dispID.
     hr = pEventObj->GetIDsOfNames(IID_NULL, &rgwszNames[i], 1,
      LOCALE_SYSTEM_DEFAULT, &rgDispIDs[i]);
     // Get the value of the property.
     hr = pEventObj->Invoke(rgDispIDs[i], IID_NULL,
      LOCALE_SYSTEM_DEFAULT,
      DISPATCH_PROPERTYGET, &params, &rgvaEventInfo[i],
      NULL, NULL);
     SysFreeString(rgwszNames[i]);
    }
    
    // At this point, you would normally alert the user with
    // the information about the error, which is now contained
    // in rgvaEventInfo[]. Or, you could just exit silently.
    
    (*pvaOut).vt = VT_BOOL;
    if (fContinueRunningScripts)
    {
     // Continue running scripts on the page.
     (*pvaOut).boolVal = VARIANT_TRUE;
    }
    else
    {
     // Stop running scripts on the page.
     (*pvaOut).boolVal = VARIANT_FALSE;   
    }
    break;
   }
  default:
            hr = OLECMDERR_E_NOTSUPPORTED;
            break;
  }
 }
 else
 {
  hr = OLECMDERR_E_UNKNOWNGROUP;
 }
 return (hr);

}

 

然后

class CCustomOccManager :public COccManager
{
public:
 CCustomOccManager(){}
 COleControlSite* CreateSite(COleControlContainer* pCtrlCont)
 {
  CCustomControlSite *pSite = new CCustomControlSite(pCtrlCont);
  return pSite;
 }
};    

到此为止，我们可以使用新的控件管理类CCustomOccManager了。在应用程序类的InitInstance()中找到AfxEnableControlContainer()调用，将它替换为�?

　CCustomOccManager *pMgr = new CCustomOccManager;
　AfxEnableControlContainer(pMgr);
　　 CHtmlView::Create()函数将再次调用AfxEnableControlContainer()，这个调用使得我们原先对控件客户站的声明无效。我们可以在派生类中将CHtmlView::Create()代码拷贝一份，并删除对AfxEnableControlContainer()的调用：
　BOOL CHtmlViewEx::Create(LPCTSTR lpszClassName, LPCTSTR lpszWindowName,
　    DWORD dwStyle, const RECT& rect, CWnd* pParentWnd,
　    UINT nID, CCreateContext* pContext)
　{
　    m_pCreateContext = pContext;
　    if (!CView::Create(lpszClassName, lpszWindowName,
　            dwStyle, rect, pParentWnd,  nID, pContext))
　    {
　        return FALSE;
　    }
　    RECT rectClient;
　    GetClientRect(&rectClient);
　
　    if (!m_wndBrowser.CreateControl(CLSID_WebBrowser, lpszWindowName,
　            WS_VISIBLE | WS_CHILD, rectClient, this, AFX_IDW_PANE_FIRST))
　    {
　        DestroyWindow();
　        return FALSE;
　    }
　
　    LPUNKNOWN lpUnk = m_wndBrowser.GetControlUnknown();
　    HRESULT hr = lpUnk-  >QueryInterface(IID_IWebBrowser2, (void**) &m_pBrowserApp);
　    if (!SUCCEEDED(hr))
　    {
　        m_pBrowserApp = NULL;
　        m_wndBrowser.DestroyWindow();
　        DestroyWindow();
　        return FALSE;
　    }
　
　    return TRUE;
　}
至此就可以屏蔽脚本错误了�?/P>

参考资料：http://support.microsoft.com/kb/261003

http://www.webasp.net/article/4/3177_print.htm

正如VC ++ 6.0的演示程序MFCIE所示，用应用程序向导创建一个具有Web导航能力的MFC应用可谓轻而易举。本文在此基础上，进一步讨论两个问题：资源自包含的实现，上下文菜单以及快捷键的完全控制�?
一、资源自包含及res协议

　　 所谓的资源自包含，指的是在最终产品中HTML文档（包括相关资源如脚本、图片）成为执行文件的一部分，就象其它资源（如应用程序图标）一样，而不是以独立文件形式分发�?

　　 资源自包含不仅使产品分发更为方便，而且在最终用户面前隐藏了更多的实现细节，具有一定的现实意义�?

　　 MFC类CHtmlView不仅把WebBrowser控件的所有功能（如导航，用户接口配置等）重新整理成为C++方法和MFC事件映射，还提供了许多“原创”的功能。其中之一便是从包含它的应用程序中读取Web页面的能力。完成这个任务的主要方法为CHtmlView::LoadFromResource()，其原型如下�?

　BOOL LoadFromResource( LPCTSTR lpszResource ); //用字符串指定资源ID
　BOOL LoadFromResource( UINT nRes ); //用数字指定资源ID
　　 LoadFromResource()依赖于res://协议（IE在找不到URL指定的服务器时，所显示的错误提示页面即使用res协议引出。）res协议的URL和常见的http或ftp协议所用URL格式不同，它的完整语法为�?

　res://resource_file[/resource_type]/resource_id
　　 其中resource_file为包含目标资源的执行文件名字。resource_type为资源类型，它可能用数字表示，也可能用字符串表示。当资源为定制或不直接支持类型时用字符串指出资源类型（如GIF，JPEG等，可在.RC文件中定义）；当资源为已知类型时该值往往用数字表示（如位图为2，HTML�?3）。已知资源类型的完整列表可以参见winuser.h，它是一组RT_常量�?

　　 CHtmlView::LoadFromResource()总是假定目标资源所在的执行文件为当前模块。但在实际应用中，我们往往要把资源分类放在不同文件中。为解决此问题，可以定义一个派生类CHtmlViewEx覆盖此方法，只需要对原方法略作修改引入模块参数即可：

　『清�?�?BR>　BOOL CHtmlViewEx::LoadFromResource(LPCTSTR lpszModule, LPCTSTR lpszResource)
　{
　  CString strResourceURL;
　  strResourceURL.Format(_T("res://%s/%s"), lpszModule, lpszResource);
　  Navigate(strResourceURL, 0, 0, 0);
　  return TRUE;
　}
　　 二、上下文菜单和快捷键控制

　　 在实际应用中，为了避免用户查看页面源文件或防止用户用快捷键打开当前页面的另外一个窗口，我们往往要对由WebBrowser控件提供的上下文菜单（在页面上按鼠标右键）或快捷键（如Ctrl+N打开新窗口）加以定制�?

　　 无论是WebBrowser控件还是CHtmlView类都没有直接提供定制上述操作的方法，因而必须通过实现IDocHostUIHandler接口来完成。在该接口中，可以实现上下文菜单和快捷键控制的方法分别为ShowContextMenu()和TranslateAccelerator()�?

　　 由于使用MFC封装类CHtmlView比直接应用WebBrowser控件更为方便，因而可以考虑把定制之后的接口支持功能集成到MFC框架内。具体实现的基本思路如下�?

创建一个新的OLE客户站并在其中实现接口IDocUIHandler
在InitInstance()中用一个新的管理类取代缺省配置以引入该客户�?
　　 基于以上思路，我们可以从COleControlSite创建派生类CCustomWebBrowserSite，并在派生类中实现IDocHostUIHandler。COleControlSite在VC++的mfcsrcoccimpl.h中定义，用于封装控件客户站。新的客户站定义为：

　『清�?�?BR>　class CCustomWebBrowserSite : public COleControlSite
　{
　public:
　  CCustomWebBrowserSite(COleControlContainer *pCnt):   
　     COleControlSite(pCnt){}
　protected:
　DECLARE_INTERFACE_MAP();
　BEGIN_INTERFACE_PART(DocHostUIHandler, IDocHostUIHandler)
　  STDMETHODIMP ShowContextMenu(DWORD, POINT*, IUnknown*, IDispatch*);
　  STDMETHODIMP TranslateAccelerator(LPMSG, const GUID*, DWORD);
　  STDMETHODIMP GetHostInfo(DOCHOSTUIINFO);
　  STDMETHODIMP EnableModeless(BOOL);
　  STDMETHODIMP OnDocWindowActivate(BOOL);
　  STDMETHODIMP OnFrameWindowActivate(BOOL);
　  STDMETHODIMP ResizeBorder(LPCRECT, IOleInPlaceUIWindow*, BOOL);
　  STDMETHODIMP GetOptionKeyPath(LPOLESTR*, DWORD);
　  STDMETHODIMP GetDropTarget(IDropTarget*, IDropTarget**);
　  STDMETHODIMP GetExternal(IDispatch**);
　  STDMETHODIMP TranslateUrl(DWORD, OLECHAR*, OLECHAR**);
　  STDMETHODIMP FilterDataObject(IDataObject*, IDataObject**);
　  STDMETHODIMP ShowUI(DWORD, IOleInPlaceActiveObject*,
　      IOleCommandTarget*, IOleInPlaceFrame*, IOleInPlaceUIWindow*);
　  STDMETHODIMP HideUI(void);
　  STDMETHODIMP UpdateUI(void);
　END_INTERFACE_PART(DocHostUIHandler)
　};
　　 如上所介绍，在这个接口中我们感兴趣的方法主要有ShowContextMenu()和TranslateAccelerator()两个。以完全禁止上下文菜单显示为例，在派生类CCustomWebBrowserSite中ShowContextMenu()的实现代码为�?

　『清�?�?BR>　STDMETHODIMP CCustomWebBrowserSite::XDocHostUIHandler::ShowContextMenu(
　    DWORD, POINT*, IUnknown*, IDispatch*)
　{
　    METHOD_PROLOGUE(CCustomWebBrowserSite, DocHostUIHandler)
　     return S_OK; // 禁止菜单显示
　}
　　 用类似的方法可以关闭由控件直接响应的快捷�?

　『清�?�?BR>　STDMETHODIMP CustomWebBrowserSite::XDocHostUIHandler::TranslateAccelerator(LPMSG lpMsg,const GUID __RPC_FAR *pguidCmdGroup, DWORD nCmdID)
　{
　    METHOD_PROLOGUE(CCustomWebBrowserSite, DocHostUIHandler)
　        return S_OK;  // 关闭快捷�?BR>　}
　　 在IDocHostUIHandler接口实现之后，我们还需要一个管理类CCustomOccManager来支持CCustomWebBrowserSite，新的管理类CCustomOccManager从COccManager派生，COccManager也在mfcsrcoccimpl.h中定义：

　『清�?�?BR>　class CCustomOccManager : public COccManager
　{
　public:
　  CCustomOccManager() {}
　  COleControlSite* CreateSite(COleControlContainer* pCC)
　  {
　    CCustomWebBrowserSite *pSite = new CCustomWebBrowserSite(pCC);
　    return pSite;
　  }
　};
　　 到此为止，我们可以使用新的控件管理类CCustomOccManager了。在应用程序类的InitInstance()中找到AfxEnableControlContainer()调用，将它替换为�?

　『清�?�?BR>　CCustomOccManager *pMgr = new CCustomOccManager;
　AfxEnableControlContainer(pMgr);
　　 CHtmlView::Create()函数将再次调用AfxEnableControlContainer()，这个调用使得我们原先对控件客户站的声明无效。我们可以在派生类中将CHtmlView::Create()代码拷贝一份，并删除对AfxEnableControlContainer()的调用：

　『清�?�?BR>　BOOL CHtmlViewEx::Create(LPCTSTR lpszClassName, LPCTSTR lpszWindowName,
　    DWORD dwStyle, const RECT& rect, CWnd* pParentWnd,
　    UINT nID, CCreateContext* pContext)
　{
　    m_pCreateContext = pContext;
　    if (!CView::Create(lpszClassName, lpszWindowName,
　            dwStyle, rect, pParentWnd,  nID, pContext))
　    {
　        return FALSE;
　    }
　    RECT rectClient;
　    GetClientRect(&rectClient);
　
　    if (!m_wndBrowser.CreateControl(CLSID_WebBrowser, lpszWindowName,
　            WS_VISIBLE | WS_CHILD, rectClient, this, AFX_IDW_PANE_FIRST))
　    {
　        DestroyWindow();
　        return FALSE;
　    }
　
　    LPUNKNOWN lpUnk = m_wndBrowser.GetControlUnknown();
　    HRESULT hr = lpUnk-  >QueryInterface(IID_IWebBrowser2, (void**) &m_pBrowserApp);
　    if (!SUCCEEDED(hr))
　    {
　        m_pBrowserApp = NULL;
　        m_wndBrowser.DestroyWindow();
　        DestroyWindow();
　        return FALSE;
　    }
　
　    return TRUE;
　}
　
　　 三、一个示例程�?

　　 本示例MyBrowser具体演示以上讨论的技术，它显示一个包含在MyBrowser.exe中的HTML页面，并通过IDocHostUIHandler接口关闭控件的上下文菜单和快捷键，运行界面如下图1�?

　　  

　　 　　 　　 　　 　　 　　 【图1�?

　　 程序在Visual C++ 6.0企业版中调试通过，以下列出具体步骤：

创建MFC EXE工程MyBrowser，选项依次为：单文档界面（步骤1）、不需要数据库支持（步�?）需要ActiveX控件支持（步�?）、不需要复合文档支持（步骤3）、步�?采用缺省值、步�?采用缺省值、将视图基类改为CHtmlView(步骤6）；
加入HTML文件及相关资源（如HTML文件“DEFAULT.HTM”）�?
加入类CCustomWebBrowserSite和CCustomOccManager，文件为CustomWebBrowserSite.h和CustomWebBrowser.cpp�?
修改MyBrowser.cpp文件，在消息映射声明之前加入�?
#include < ..srcoccimpl.h >
#include "CustomWebBrowserSite.h"
修改CMyBrowserApp::InitInstance()，用清单6替换AfxEnableControlContainer()�?
用类向导创建CHtmlView的派生类CHtmlViewEx，覆盖Create()和LoadFromResource()，文件为HtmlViewEx.h和HtmlViewEx.cpp�?
修改CMyBrowserView声明，在类声明之前加�?include "HtmlViewEx.h"，使CMyBrowserView从CHtmlViewEx继承�?
修改CMyBrowserView:: OnInitialUpdate()，在这里运行初始界面，如�?
CHtmlView::LoadFromResource(_T("DEFAULT.HTM"))。�?/P>