請問如何從WebBrower中取得Head?
討論區裡的文章都是告訴如何取得Body
但是Body之前的部份含Head要藉由什麼函數取得呢?

我的程式供參考
IHTMLDocument2 *document;
IHTMLElement *body;
BSTR source,content,head,cookie;
(void *)document=WebBrowser1->Document;

document->get_body(&body);
body->get_outerHTML(&source);
Memo1->Text=source;//網頁html代碼


//-----------------------------------------------------------------------

!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd"
html
head
.
.
.
/head
這之前的部份如何取得?
BODY
.
.
/BODY

編輯記錄

請先參考以下的範例程式碼，再自行修改

[code cpp]
IDispatch *pDispatch=NULL;
IHTMLDocument3 *pDocument3=NULL;
IHTMLElementCollection *pElementCollection=NULL;
IHTMLElement *pElement=NULL;

if(SUCCEEDED(CppWebBrowser1->Document->QueryInterface(IID_IHTMLDocument3, (LPVOID*)&pDocument3)))
{
if(SUCCEEDED(pDocument3->getElementsByTagName(L"head", &pElementCollection)))
{
TVariant varName;
TVariant varIndex=0;
if(SUCCEEDED(pElementCollection->item(varName, varIndex, &pDispatch)))
{
if(SUCCEEDED(pDispatch->QueryInterface(IID_IHTMLElement, (LPVOID*)&pElement)))
{
BSTR bstrHTML;
pElement->get_innerHTML(&bstrHTML);
TVariant varHTML=bstrHTML;
Memo1->Text=VarToStr(varHTML);
SysFreeString(bstrHTML);
pElement->Release();
}
pDispatch->Release();
}
pElementCollection->Release();
}
pDocument3->Release();
}
[/code]

------
-- 若您已經得到滿意的答覆，請適時結案!! --
-- 欲知前世因，今生受者是；欲知來世果，今生做者是 --
-- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 --

document->get_head;