如何在VC中使用IHTMLDocument2::createElement()函数创建一个 IHTMLScriptElement?

[questionboy]

IHTMLDocument2::createElement()函数可以创建一个新的IHTMLElement,但是我在创建一个IHTMLScriptElement的时候却遇到了问题。虽然使用“script”关键字创建了一个新的element，但是它并不是一个IHTMLScriptElement，这是为什么？代码如下：
IHTMLElementCollectionPtr pColl;
if( m_pDoc2 != 0 && S_OK == m_pDoc2->get_all( &pColl ) )
{
long l;
if( S_OK == pColl->get_length( &l ) )
{
for( long i=0; i<l; i++ )
{
VARIANT vt;
vt.vt = VT_I4;
vt.lVal = i;
IDispatchPtr pDis;
if( S_OK == pColl->item( vt, vt, &pDis ) )
{
CComBSTR str;
IHTMLDOMNodePtr pNode = pDis;
if( pNode )
{
if( S_OK == pNode->get_nodeName( &str ) )
{
IHTMLElementPtr pEle;
//获取body element
if( str == CComBSTR("BODY") || str == CComBSTR("body") )
{
//创建一个script关键字的element
if( S_OK == m_pDoc2->createElement( L"script", &pEle ) )
{
IHTMLDOMNodePtr p = pEle;
if( p )
{
IHTMLDOMNodePtr pReturn;
//将新的element插入到body最后
if( S_OK == pNode->appendChild( p, &pReturn ) )
{
break;
}
}
}
}
}
}
}
}
}
}

[yonghengdizhen]

它返回的是一个IHTMLElement 接口
你应该调用IHTMLElement::QueryInterface
并要求获得IHTMLScriptElement接口
如果对象实现了该接口将返回对应的接口指针并返回S_OK
否则将返回E_NOINTERFACE

[questionboy]

如果能够这样直接转换我就不用愁了

[saucer]

should work, look here (in Japanese, but you read the code):

http://member.nifty.ne.jp/LILILIN/HOWTO/activex_javascript.htm

or use document's get_scripts methods

[yzxlyd]

up

[questionboy]

感谢大家，是我调用有问题，应该如下调用
CComBSTR str("script");
m_pDoc2->createElement( str, &pEle ) );
IHTMLScriptElementPtr p = pEle;
assert( p != 0 );
我在调用createElement的时候第一个参数传递有问题。
m_pDoc2->createElement( L"script", &pEle ) )