VC6中使用CHtmlView在对话框控制中显示HTML文件

 　　在Visual Studio 6.0中出现了一个新类CHtmlView，利用这个类，我们可以实现在对话框的控制中显示HTML文件。 要想使用CHtmlView类，对它的定义和实现就必须有全面深入的理解。我们不妨拿CHtmlView和CListView做一个比较，通过比较这两个类，我们会发现一些有趣的差别。首先，MFC中CListView有一个对应的CListCtrl类，而CHtmlView却没有一个CHtmlCtrl类与之对应；其次，CListView的使用依赖于MFC的文档/视结构，而CHtmlView的实现是基于COM的。通过IWebBrowser2接口来实现，而且IWebBrowser2与MFC文档/视图结构之间没有任何关系。 为了实现在对话框的控制中显示HTML文件，我们也可以为CHtmlView创建一个对应的类CHtmlCtrl。 以下是类CHtmlCtrl程序源代码： 

创建一个静态控制（也可以是其他控制），这个控制的ID及大小位置与界面上的控制相同。 
BOOL CHtmlCtrl::CreateFromStatic(UINT nID, CWnd* pParent) 
{ 
　　CStatic wndStatic; 
　　if (!wndStatic.SubclassDlgItem(nID, pParent)) 
　　return FALSE; 
　　// 获取静态控制的矩形区域并转换为父窗口的客户区坐标 
　　CRect rc; 
　　wndStatic.GetWindowRect(&rc); 
　　pParent->ScreenToClient(&rc); 
　　wndStatic.DestroyWindow(); 
　　// 创建 HTML 控制 (CHtmlView) 

　　return;
　　Create(NULL, // 类名 
　　　　 NULL, // 标题 
　　　　 (WS_CHILD | WS_VISIBLE ), // 风格 
　　　　 rc, // 矩形区域 
　　　　 pParent, //父窗口 
　　　　 nID, // 控制 ID 
　　　　 NULL); //框架/文档 
} 



为了避免主控程序将CHtmlView对象看作是文档/视图框架，需要重载，CView::OnMouseActivate和CView::OnDestroy。此外，当用户在控制中单击时，OnMouseActivate要负责响应（WM_MOUSEACTIVATE）。 
int CHtmlCtrl::OnMouseActivate(CWnd* pDesktopWnd, UINT nHitTest, UINT msg) 
{ 
      //旁路 CView 文档/框架 
      return CWnd::OnMouseActivate(pDesktopWnd, nHitTest, msg); 
} 

void CHtmlCtrl::OnDestroy() 
{ 
      if (m_pBrowserApp) 
      { 
            m_pBrowserApp->Release(); 
            m_pBrowserApp = NULL; 
      } 
      CWnd::OnDestroy(); // 旁路 CView 文档/框架 

} 

通常，CHtmlView是在virtual void PostNcDestroy()中释放空间，但对话框中的控制常常是作为堆栈对象实现的，所以，在PostNcDestroy()中不必在做什么。 

virtual void PostNcDestroy() { } 

为了实现“app:” 假协议，重载导航处理器OnBeforeNavigate2()。传递“app:”链接到一个虚拟协议处理器。因为app:是假协议，所以在浏览起重要取消掉这个导航。 

void CHtmlCtrl::OnBeforeNavigate2( LPCTSTR lpszURL, DWORD nFlags, LPCTSTR lpszTargetFrameName, 
      CByteArray& baPostedData, LPCTSTR lpszHeaders, BOOL* pbCancel ) 
{ 
      const char APP_PROTOCOL[] = "app:"; 
      int len = _tcslen(APP_PROTOCOL); 
      if (_tcsnicmp(lpszURL, APP_PROTOCOL, len)==0) 
      { 
            OnAppCmd(lpszURL + len); 
            *pbCancel = TRUE; 
      } 
} 

重载OnAppCmd（），处理app:命令，当浏览器准备导航到“app:foo”时，这个函数被调用，参数lpszWhere的值为“foo”。 

void CHtmlCtrl::OnAppCmd(LPCTSTR lpszWhere)
{ // default: do nothing} 

重载OnMouseActivate, OnDestroy, 和 PostNcDestroy以后，CHtrmlCtrl在对话框中就可以象个控制一样工作。详细的使用方法请参见例子程序：AboutHtml。 

运行AboutHtml.exe，并打开About对话框……音乐多么美妙！更有趣的是程序所用到的HTML源文件、图像、声音等文件都作为资源存储在EXE文件中： 

// in AboutHtml.rc 

ABOUT.HTM HTML DISCARDABLE "res//about.htm" 

PD.JPG HTML DISCARDABLE "res//pd.jpg" 

OKUP.GIF HTML DISCARDABLE "res//okup.gif" 

OKDN.GIF HTML DISCARDABLE "res//okdn.gif" 

MOZART.WAV HTML DISCARDABLE "res//mozart.wav" 

      注意：用文件的实际名字作为资源名很重要，以便浏览器能够找到他们。在一个普通的Web页面中，我们使用图像是用下列语法： 此代码假设图像文件"pd.jpg"存在当前目录（页面文件所在目录）中。 

      如果图像文件是作为资源存在EXE文件中，我们如何引用呢？方法一样，此时，我们必须告诉浏览器Web页面文件的位置。为此要在Web页面文件的开头加上如下代码： 这一行代码告诉浏览器当前目录是“res://AboutHtml.exe”，当浏览器遇到代码时，它会按照路径res://AboutHtml.exe/pd.jpg查找。否则，它会在程序文件的路径查找。 通常用res://modulename可以访问动态库或可执行文件中的资源。这里res:的意思与http:，ftp:，file:，及mailto的意思相同。即：“在这个路径中的第一个名字是一个文件名，第二个名字是文件中的资源名”。其余的工作由浏览器完成。 

      为了实现About对话框，先建一个对话框类：CAboutDialog，其中声明一个CHtmlCtrl对象：m_page。CAboutDialog本身的初始化代码如下： 
BOOL CAboutDialog::OnInitDialog() 
{ 
      VERIFY(CDialog::OnInitDialog()); 
      VERIFY(m_page.CreateFromStatic(IDC_HTMLVIEW, this)); 
      m_page.LoadFromResource(_T("about.htm")); 
      return TRUE; 
} 

      CHtmlCtrl::CreateFromStatic是个很简单的函数，它用于简化对话框的设计。因为用插入COM对象的方法太麻烦，所以我在对话框中插入了一个静态控件，改变它的缺省ID号。然后调用CreateFromStatic，以完全相同的ID号、大小、位置创建一个静态CStatic对象。然后在调用DestroyWindow，这个方法很有效。为了加载web页面，调用CHtmlCtrl::LoadFromResource函数，它是由CHtmlView继承而来的。也可以用全路径res://AboutHtml.exe/about.htm作为参数。 

      现在您已经知道了CHtmlCtrl是如何在对话框中绕过CView来替代框架；知道了如何创建HTML文件，其中包含文字、图像和声音，并把它作为资源在程序中使用。 

      除此之外，还有一个问题就是：CAboutDialog对话框中“OK”按钮的处理，其实，它根本就不是一个按钮，而是一个在HTML文件中嵌入的图像，用JScript来控制图像被按下时和弹起时的状态。处理“OK”按钮的技巧主要是解决对话框与主控程序之间的通讯。 

      利用动态HTML文档层(COM)技术可以处理用户单击图像或链接，方法是获得图像元素，然后侦听OnClick事件。但这是一种非常非常麻烦的方法。有没有更简单的方法呢……对于编程者来说，懒惰是一种美德。 

假设HTML有如下的图像链接： 

      当用户单击它时，浏览器显示这个“OK”文件，但是在显示之前，控制先执行CHtmlCtrl::OnBeforeNavigate2。CHtmlCtrl能够在这个函数中做想做的任何事情。 
void CMyHtmlCtrl::OnBeforeNavigate2( LPCTSTR lpszURL, ..., BOOL* pbCancel)