如何通过IHTMLDocument2接口获取网页中的meta信息

[sblsongdongf]

VC 7.0环境, IE

[蒋晟]

HRESULT TBaseWebBrowserPageletCtrl::GetMetaCollection(IHTMLElementCollection** pCollec, IHTMLDocument2* pDocument)
{
CComPtr<IDispatch> lDispatch;
CComQIPtr<IHTMLDocument2> lDocument;
HRESULT lResult;

if (pDocument == NULL)
{
if (!m_BrowserTree)
return E_FAIL;

lResult = m_BrowserTree->get_Document(&lDispatch);
lDocument = lDispatch;
lDispatch = NULL;
ASSERT(SUCCEEDED(lResult) && lDocument);
if (FAILED(lResult) || (lDocument == NULL))
return E_FAIL;
}
else
{
lDocument = pDocument;
}

CComPtr<IHTMLElementCollection> lCollec;

lResult = lDocument->get_all(&lCollec);
ASSERT(SUCCEEDED(lResult) && lCollec);

if (FAILED(lResult) || (lCollec == NULL))
return E_FAIL;

lResult = lCollec->tags(CComVariant("META"), &lDispatch);
return lDispatch->QueryInterface(pCollec);
}


HRESULT TBaseWebBrowserPageletCtrl::CheckMetaTags()
{
CComQIPtr<IHTMLElementCollection> lCollec;
CComQIPtr<IHTMLMetaElement> lMetaElement;
CComPtr<IDispatch> lDispatch;
HRESULT lResult;
long lIndex = 0;
long lLength = 1;

lResult = GetMetaCollection(&lCollec);

if (SUCCEEDED(lResult) && lCollec)
{
lResult = lCollec->get_length(&lLength);
ASSERT(SUCCEEDED(lResult));
}

while (lIndex < lLength)
{
if (lCollec)
{
lResult = lCollec->item(CComVariant(lIndex), CComVariant(), &lDispatch);
lMetaElement = lDispatch;
lDispatch = NULL;
ASSERT(SUCCEEDED(lResult) && lMetaElement);
}

if (SUCCEEDED(lResult) && lMetaElement)
{
//
CComBSTR lName;

lResult = lMetaElement->get_name(&lName);
if (SUCCEEDED(lResult)
&& lName
&& (!wcsicmp(CComBSTR(KEEBOO_PRODUCT_NAME), lName)
|| !wcsicmp(CComBSTR(KEEBOO_COMPANY), lName)))
{
CComBSTR lMetaContent;

lResult = lMetaElement->get_content(&lMetaContent);

if (SUCCEEDED(lResult) && lMetaContent)
{
if (!wcsicmp(L"no-stretch", lMetaContent))
{
m_bNoStretch = TRUE;
}
else if (!wcsicmp(L"no-cache", lMetaContent))
{
CComQIPtr<IPageletSink> lPageletSink(m_pControlSite);

if (lPageletSink)
{
CComObject<TDeleteCacheEntryCallback>* lCallback;
CComQIPtr<IPageletDestroyCallback> lCBInterface;

CComObject<TDeleteCacheEntryCallback>::CreateInstance(&lCallback);
lCallback->SetPage(getModel());

lCBInterface = lCallback;
lPageletSink->SetDestroyCallback(lCallback);
}
}
else
{
TModelPtr<TPropertyObjectModel> lProp;
TModelPtr<TContentModel> lContentModel;

if (!wcsicmp(L"online-reload", lMetaContent))
{
getModel()->getContent(&lContentModel);
GetModelProperty<TContentModel>(lContentModel, T_CONTENT_NETWORK_PROPERTIES, &lProp, TRUE);
ASSERT(lProp);

if (lProp)
lProp->putBooleanField("online-reload", true);
}
else if (!wcsicmp(L"online-flush", lMetaContent))
{
getModel()->getContent(&lContentModel);
GetModelProperty<TContentModel>(lContentModel, T_CONTENT_NETWORK_PROPERTIES, &lProp, TRUE);
ASSERT(lProp);

if (lProp)
lProp->putBooleanField("online-flush", true);
}
}
}
}
}

lIndex++;
}

return S_OK;
}