在MFC对话框中显示html网页

最近在写一个小软件，想在MFC对话框中显示帮助文档，都是html格式的，上网找了好多资料，用一个CHtmlCtrl类的东西，但是网上找的这个类放在VS2005下编译不过去，老是提示错误。于是几经修改，可以使用，下面贴代码（环境：Win7 + VS2005 SP1）：

头文件：

#pragma once
#include <afxhtml.h>
#include <atlsafe.h>
////////////////////////////////////////////////////////////////
// 该结构在命令映射中定义一个入口，这个映射将文本串映射到命令IDs，
// 如果命令映射中有一个映射到 ID_APP_ABOUT 的入口 “about”，并且
// HTML 有一个链接锚 ,那么单击该链接时将执行
struct HTMLCMDMAP
{
    LPCTSTR name;
    int nID;
};// command name used in "app:name" HREF in
//这个类将 CHtmlView 转换为普通的能在对话框和框架中使用的控制
class CHtmlCtrl : public CHtmlView
{
    DECLARE_DYNCREATE(CHtmlCtrl)
public:
    CHtmlCtrl():m_bHideMenu(FALSE), m_cmdmap(NULL){}; // protected constructor used by dynamic creation
    virtual ~CHtmlCtrl(){};
    HTMLCMDMAP* m_cmdmap;// command map
    BOOL m_bHideMenu;// hide context menu
    // get/set HideContextMenu property
    BOOL GetHideContextMenu(){ return m_bHideMenu; }
    void SetHideContextMenu(BOOL val){ m_bHideMenu=val; }
    // Set doc contents from string
    HRESULT SetHTML(LPCTSTR strHTML);
    // set command map
    void SetCmdMap(HTMLCMDMAP* val){ m_cmdmap = val; }
    // create control in same place as static control
    BOOL CreateFromStatic(UINT nID, CWnd* pParent);
    // create control from scratch
    BOOL Create(const RECT& rc, CWnd* pParent, UINT nID,DWORD dwStyle = WS_CHILD|WS_VISIBLE,CCreateContext* pContext = NULL)
    {
        return CHtmlView::Create(NULL, NULL, dwStyle, rc, pParent,nID, pContext);
    }
    // 重写该函数可以截获子窗口消息，从而禁用上下文菜单。
    virtual BOOL PreTranslateMessage(MSG* pMsg);
    // 通常，CHtmlView 自己是在 PostNcDestroy 销毁的，但对于一个界面控制来说
    // 我们不想那样做，因为控制一般都是作为另一个窗口对象的成员实现的。
    virtual void PostNcDestroy(){}
    // 重写以便旁路掉对 MFC doc/view 框架的依赖，CHtmView 仅仅在这里依附于框架。
    afx_msg void OnDestroy();
    afx_msg int OnMouseActivate(CWnd* pDesktopWnd, UINT nHitTest,UINT msg);
    // 重写以便截获 "app:" 伪协议
    virtual void OnBeforeNavigate2( LPCTSTR lpszURL,DWORD nFlags,LPCTSTR lpszTargetFrameName,CByteArray& baPostedData,LPCTSTR lpszHeaders,BOOL* pbCancel );

    // 你可以重写处理 "app:" 命令的代码。注意只是在不使用命令映射机制时才需要重写
    virtual void OnAppCmd(LPCTSTR lpszCmd);
    DECLARE_MESSAGE_MAP();
};

源文件：

////////////////////////////////////////////////////////////////
// CHtmlCtrl 实现 -- 控件中的 web 浏览器，只要改写 CHtmlVie
// 你就可以摆脱框架 - 从而将此控制用于对话框和其它任何窗口。
//
// 特性s:
// - SetCmdMap 用于设置“app:command”链接的命令映射。.
// - SetHTML 用于将字符串转换为 HTML 文档。.

#include "StdAfx.h"
#include "HtmlCtrl.h"

#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

// macro to declare a typedef for ATL smart poitners; eg SPIHTMLDocument2
#define DECLARE_SMARTPTR(ifacename) typedef CComQIPtr<ifacename> SP##ifacename;

// smart pointer to IHTMLDocument2
DECLARE_SMARTPTR(IHTMLDocument2)

// useful macro for checking HRESULTs
#define HRCHECK(x) hr = x; if (!SUCCEEDED(hr)) { /
TRACE(_T("hr=%p/n"),hr);/
return hr;/
}

IMPLEMENT_DYNAMIC(CHtmlCtrl, CHtmlView)
BEGIN_MESSAGE_MAP(CHtmlCtrl, CHtmlView)
ON_WM_DESTROY()
ON_WM_MOUSEACTIVATE()
END_MESSAGE_MAP()

//////////////////
// Create control in same position as an existing static control with given
// the same ID (could be any kind of control, really)
//
BOOL CHtmlCtrl::CreateFromStatic(UINT nID, CWnd* pParent)
{
    CStatic wndStatic;
    if (!wndStatic.SubclassDlgItem(nID, pParent))
        return FALSE;
    // Get static control rect, convert to parent's client coords.
    CRect rc;
    wndStatic.GetWindowRect(&rc);
    pParent->ScreenToClient(&rc);
    wndStatic.DestroyWindow();
    return Create(rc, pParent, nID);
}

////////////////
// Override to avoid CView stuff that assumes a frame.
//
void CHtmlCtrl::OnDestroy()
{
m_pBrowserApp = NULL; // will call Release
CWnd::OnDestroy(); // bypass CView doc/frame stuff
}

////////////////
// Override to avoid CView stuff that assumes a frame.
//
int CHtmlCtrl::OnMouseActivate(CWnd* pDesktopWnd, UINT nHitTest, UINT msg)
{
// bypass CView doc/frame stuff
return CWnd::OnMouseActivate(pDesktopWnd, nHitTest, msg);
}

// Return TRUE iff hwnd is internet explorer window.
inline BOOL IsIEWindow(HWND hwnd)
{
    static LPCSTR IEWNDCLASSNAME = "Internet Explorer_Server";
    char classname[32]; // always char, never TCHAR

    GetClassName(hwnd, (LPSTR)classname, sizeof(classname));
    return strcmp(classname, IEWNDCLASSNAME)==0;
}

//////////////////
// Override to trap "Internet Explorer_Server" window context menu messages.
//
BOOL CHtmlCtrl::PreTranslateMessage(MSG* pMsg)
{
    if (m_bHideMenu)
    {
        switch (pMsg->message)
        {
        case WM_CONTEXTMENU:
        case WM_RBUTTONUP:
        case WM_RBUTTONDOWN:
        case WM_RBUTTONDBLCLK:
            if (IsIEWindow(pMsg->hwnd))
            {
                if (pMsg->message==WM_RBUTTONUP)
                    // let parent handle context menu
                    GetParent()->SendMessage(WM_CONTEXTMENU, pMsg->wParam, pMsg->lParam);
                return TRUE; // eat it
            }
        }
    }
    return CHtmlView::PreTranslateMessage(pMsg);
}

//////////////////
// Override to pass "app:" links to virtual fn instead of browser.
//
void CHtmlCtrl::OnBeforeNavigate2( LPCTSTR lpszURL,
                                  DWORD nFlags, LPCTSTR lpszTargetFrameName, CByteArray& baPostedData,
                                  LPCTSTR lpszHeaders, BOOL* pbCancel )
{
    LPCTSTR APP_PROTOCOL = _T("app:");
    int len = (int)_tcslen(APP_PROTOCOL);

    if (_tcsnicmp(lpszURL, APP_PROTOCOL, len)==0)
    {
        OnAppCmd(lpszURL + len);    // call virtual handler fn
        *pbCancel = TRUE;       // cancel navigation
    }
}

//////////////////
// Called when the browser attempts to navigate to "app:foo". Default handler
// searches command map for "foo" command, and sends parent a WM_COMMAND
// message with the ID if found. Call SetCmdMap to set the command map. Only
// override OnAppCmd if you want to do something more complex.
//
void CHtmlCtrl::OnAppCmd(LPCTSTR lpszCmd)
{
    if (m_cmdmap)
    {
        for (int i=0; m_cmdmap[i].name; i++)
        {
            if (_tcsicmp(lpszCmd, m_cmdmap[i].name) == 0)
                // Use PostMessage to avoid problems with exit command. (Let
                // browser finish navigation before issuing command.)
                GetParent()->PostMessage(WM_COMMAND, m_cmdmap[i].nID);
        }
    }
}

//////////////////
// Set document contents from string
//
HRESULT CHtmlCtrl::SetHTML(LPCTSTR strHTML)
{
    HRESULT hr;
    // Get document object
    SPIHTMLDocument2 doc = GetHtmlDocument();
    // Create string as one-element BSTR safe array for IHTMLDocument2::write.
    CComSafeArray<VARIANT> sar;
    sar.Create(1,0);
    sar[0] = CComBSTR(strHTML);
    // open doc and write
    LPDISPATCH lpdRet;
    HRCHECK(doc->open(CComBSTR("text/html"),
        CComVariant(CComBSTR("_self")),
        CComVariant(CComBSTR("")),
        CComVariant((bool)1),
        &lpdRet));

    HRCHECK(doc->write(sar)); // write contents to doc
    HRCHECK(doc->close()); // close
    lpdRet->Release();   // release IDispatch returned
    return S_OK;
}
使用方法，在自己的对话框上拖进来一个static，然后修改一下ID为IDC_STATIC_HELP，然后在对话框的初始化函数，也就是OnInitDialog()中添加下面代码，注意下面的m_html是一个类成员变量，定义在头文件中，CHtmlCtrl m_html; ：

BOOL CHelpDialog::OnInitDialog()
{
    CDialog::OnInitDialog();

    m_html.SetHideContextMenu(TRUE);
    m_html.CreateFromStatic(IDC_STATIC_HELP,this);
    m_html.Navigate(m_strUrl); 
    //CString m_Text = " 李民录 ";
    //m_html.SetHTML(m_strUrl);
   
    return TRUE;  // 除非将焦点设置到控件，否则返回TRUE
}

至此，调用你的对话框，就可以看到效果了。

如果你想直接显示html文本的话，可以这样写：

m_html.SetHideContextMenu(TRUE);
m_html.CreateFromStatic(IDC_STATIC_HELP,this);
m_html.Navigate("about:blank");  //这句话一定要写

CString m_Text = 李***";
m_html.SetHTML(m_Text );"