VC HTML IHtmlDocument相关代码片段
据说是根据InternetExplorer_Server窗口得到IHtmlDocument2接口
#include <mshtml.h>
#include <atlbase.h>
#include <oleacc.h>
BOOL CALLBACK EnumChildProc(HWND hwnd,LPARAM lParam)
{
TCHAR buf[100];
::GetClassName( hwnd, (LPTSTR)&buf, 100 );
if ( _tcscmp( buf, _T("Internet EXPlorer_Server") ) == 0 ) /
{
*(HWND*)lParam = hwnd;
return FALSE;
}
else
return TRUE;
};
//You can store the interface pointer in a member variable
//for easier Access
void CDlg::OnGetDocInterface(HWND hWnd)
{
CoInitialize( NULL );
// EXPlicitly load MSAA so we know if it's installed
HINSTANCE hInst = ::LoadLibrary( _T("OLEACC.DLL") );
if ( hInst != NULL )
{
if ( hWnd != NULL )
{
HWND hWndChild=NULL;
// Get 1st document window
::EnumChildWindows( hWnd, EnumChildProc, (LPARAM)&hWndChild );
if ( hWndChild )
{
CComPtr<IHTMLDocument2> spDoc;
LRESULT lRes;
UINT nMsg = ::RegisterWindowMessage( _T("WM_HTML_GETOBJECT") );
::SendMessageTimeout( hWndChild, nMsg, 0L, 0L, SMTO_ABORTIFHUNG, 1000, (Dword*)&lRes );
LPFNOBJECTFROMLRESULT pfObjectFromLresult = (LPFNOBJECTFROMLRESULT)::GetProcAddress( hInst, _T("ObjectFromLresult") );
if ( pfObjectFromLresult != NULL )
{
HRESULT hr;
hr = (*pfObjectFromLresult)( lRes, IID_IHTMLDocument, 0, (void**)&spDoc );
if ( SUCCEEDED(hr) )
{
CComPtr<IDispatch> spDisp;
CComQIPtr<IHTMLWindow2> spWin;
spDoc->get_Script( &spDisp );
spWin = spDisp;
spWin->get_document( &spDoc.p );
// Change background color to red
spDoc->put_bgColor( CComVariant("red") );
}
}
} // else document not ready
} // else Internet EXPlorer is not running
::FreeLibrary( hInst );
} // else Active Accessibility is not installed
CoUninitialize();
}
想通过CHtmlView设定自己Cookie的代码,思路大致这样,但是下面代码还有些问题.
CComBSTR bstr;
// Cookie
// Read My Browser Cookie
IDispatch *pDispCur = m_HtmlPage.GetHtmlDocument();
CComPtr<IDispatch> pDispCurAuto(pDispCur);
pDispCur->Release();
CComPtr<IHTMLDocument2> pDoc2Cur;
pDispCurAuto.QueryInterface(&pDoc2Cur);
pDoc2Cur->get_cookie(&bstr);
// Set Popup Browser Cookie
CComPtr<IDispatch> pDispDoc;
CComQIPtr<IHTMLWindow2> spWin;
spWin->get_document(&pDispDoc.p);
CComPtr<IHTMLDocument2> pDoc2;
pDispDoc.QueryInterface(&pDoc2);
pDoc2->put_cookie(bstr);
下面代码看起来像是实现遍历HTML 中的元素
BOOL CParamDlg::LoadValues()
{
TRY{
CHTMLElementCollection ecAll=m_wndDhtmlEdit.GetDom().GetAll();
long lecLength=ecAll.GetLength();
COleVariant varIndex,varTemp;//var2 is not used because accessing index,not name
varIndex.vt=VT_I4;
CString strElementID,strTemp;
CHtmlparam* pHtmlparam;
CObject* pOb;
for(int i=0;i<lecLength;i++){
varIndex.lVal=i;
CHTMLElement el(ecAll.item(varIndex,varTemp));
strTemp=HTMLElement_GetValueAttributeName(&el);
if(!strTemp.IsEmpty()){//can have values
strElementID=HTMLElement_GetIDOrName(&el);
if(m_mapNameToParam.Lookup(strElementID,pOb)){//found
pHtmlparam=(CHtmlparam*)pOb;
el.setAttribute(strTemp,pHtmlparam->m_varVal,0);
}
}
strTemp=HTMLElement_GetToolTipAttributeName(&el);
if(!strTemp.IsEmpty()){//can have ToolTip
varTemp=pHtmlparam->m_strAlt;
el.setAttribute(strTemp,varTemp,0);
}
}
}
CATCH(CException,pEx)
{
CGlobal::ProcessException(pEx);
return FALSE;
}
END_CATCH
return TRUE;
}
下面代码是实现从 IHTMLDocument2 获得/写入 HTML 文本 (IPersistStreamInit)
// 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>网页行情</title></head>"
"<body leftmargin=0 topmargin=0>"
"<OBJECT ID=KYT CODEBASE='http://www.sostock.com.cn/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;
}