VC知識庫BLOG-玻璃小屋-從 IHTMLDocument2 獲得/寫入 HTML 文本 (IPersistStreamInit)

xiaoqdu 2008-11-28

展開全文

/////////////////////////////////////////////////////////////////////////////
// CHtmlView operations

BOOL CHtmlView::GetSource(CString& refString)
{
    BOOL bRetVal = FALSE;
    CComPtr<IDispatch> spDisp = GetHtmlDocument();

    if (spDisp != NULL)
    {
        HGLOBAL hMemory;
        hMemory = GlobalAlloc(GMEM_MOVEABLE, 0);
        if (hMemory != NULL)
        {
            CComQIPtr<IPersistStreamInit> spPersistStream = spDisp;
            if (spPersistStream != NULL)
            {
                CComPtr<IStream> spStream;
                if (SUCCEEDED(CreateStreamOnHGlobal(hMemory, TRUE, &spStream)))
                {
                    spPersistStream->Save(spStream, FALSE);

                    LPCTSTR pstr = (LPCTSTR) GlobalLock(hMemory);
                    if (pstr != NULL)
                    {
                        // Stream is always ANSI, but CString
                        // assignment operator will convert implicitly.

                        bRetVal = TRUE;
                        TRY
                        {
                            refString = pstr;
                        }
                        CATCH_ALL(e)
                        {
                            bRetVal = FALSE;
                            DELETE_EXCEPTION(e);
                        }
                        END_CATCH_ALL

                        if(bRetVal == FALSE)
                            GlobalFree(hMemory);
                        else
                            GlobalUnlock(hMemory);
                    }
                }
            }
        }
    }

    return bRetVal;
}

向 IHTMLDocument2 寫入 HTML 文本

int CChildView::HqResize(void)
{
USES_CONVERSION;
CComPtr<IHTMLDocument2> pDoc;

CComPtr<IHTMLElementCollection> sphtmlAll;
CComPtr<IHTMLScriptElement> spObject;
CComPtr<IDispatch> spDisp;
CComVariant varName;
CComVariant varIndex;

if(FAILED(m_wndHq.GetDocument(&pDoc)) || pDoc==NULL)
return 0;

CString strHtml="<html><head><title>網(wǎng)頁行情</title></head>"
  "<body leftmargin=0 topmargin=0>"
  "<OBJECT ID=KYT CODEBASE='http://www./hq/webhq/webhq.cab#version=1,0,0,5'"
  "CLASSID='clsid:C952403E-C18D-4332-9F3D-0E1D7C486145'"
  "ALIGN='CENTER'"
  "width='%d'"
  "height='%d'>"
  "</OBJECT>"
  "<script language=javascript id=KYT1>"
  "window.focus();"
  "</script>"
  "</body>"
  "</html>";

CRect rc;
GetClientRect(&rc);

CString strIn;
strIn.Format(strHtml,rc.Width()-20,rc.Height()-15);

CComQIPtr<IPersistStreamInit> spPersistStream(pDoc);

if(spPersistStream==NULL)
return 0;

LPTSTR lpMem = (LPTSTR)::GlobalAlloc( GPTR,strIn.GetLength()+1);
lstrcpy(lpMem,strIn.GetBuffer());

CComPtr<IStream>spStream;
CreateStreamOnHGlobal( lpMem, TRUE, &spStream );
// 初始化后，裝載顯示
spPersistStream->InitNew();
spPersistStream->Load(spStream );

return 0;
}