html获得文本,从 IHTMLDocument2 获得/写入 HTML 文本 (IPersistStreamInit)

/

// CHtmlView operations

BOOL CHtmlView::GetSource(CString& refString)

{

BOOL bRetVal = FALSE;

CComPtr spDisp = GetHtmlDocument();

if (spDisp != NULL)

{

HGLOBAL hMemory;

hMemory = GlobalAlloc(GMEM_MOVEABLE, 0);

if (hMemory != NULL)

{

CComQIPtr spPersistStream = spDisp;

if (spPersistStream != NULL)

{

CComPtr 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 pDoc;

CComPtr sphtmlAll;

CComPtr spObject;

CComPtr spDisp;

CComVariant varName;

CComVariant varIndex;

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

return 0;

CString strHtml="

网页行情"

"

"

"

"CLASSID='clsid:C952403E-C18D-4332-9F3D-0E1D7C486145'"

"ALIGN='CENTER'"

"width='%d'"

"height='%d'>"

"

"

"

"window.focus();"

""

""

"";

CRect rc;

GetClientRect(&rc);

CString strIn;

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

CComQIPtr spPersistStream(pDoc);

if(spPersistStream==NULL)

return 0;

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

lstrcpy(lpMem,strIn.GetBuffer());

CComPtrspStream;

CreateStreamOnHGlobal( lpMem, TRUE, &spStream );

// 初始化后，装载显示

spPersistStream->InitNew();

spPersistStream->Load(spStream );

return 0;

}