1,316
社区成员
发帖
与我相关
我的任务
分享
void __fastcall TKfMainForm::InsertHtml(AnsiString PositionStr,AnsiString HtmlStr)
{
//PositionStr用:"beforeEnd",或者查查MSDN中,insertAdjacentHTML有介绍。
IDispatch *docDisp = NULL;
IHTMLDocument3 *doc = NULL;
IHTMLElement *elem = NULL;
HRESULT hr = S_OK;
docDisp=KfCppWebBrowser->Document;
if ( SUCCEEDED( hr ) )
{
hr = docDisp->QueryInterface(IID_IHTMLDocument3, reinterpret_cast<void**>(&doc));
if ( SUCCEEDED( hr ) )
{
docDisp->Release();
hr = doc->get_documentElement(&elem);
if ( SUCCEEDED( hr ) )
{
hr = elem->insertAdjacentHTML(WideString(PositionStr), WideString(HtmlStr));
elem->Release();
}
doc->Release();
}
}
}
//-----------------------------------------------------------------------------------