TWebBrowser QueryInterface IID_IHTMLElement2 总是 returns E_NOINTERFACE

TWebBrowser QueryInterface IID_IHTMLElement2 always returns E_NOINTERFACE

我正在做一个简单的 QueryInterface() 来获取 IHTMLElement2 接口,但它总是失败 E_NOINTERFACE

更新: 我需要获取 body 元素的 IHTMLElement2 接口,因为它有一个 focus() 方法,所以我可以设置专注于 body。用IHTMLElement界面做不到。

知道为什么会出现此错误(或如何到达 body->focus())吗?

WebBrowser1->Navigate(L"c:\test.htm");
while (WebBrowser1->Busy) Application->ProcessMessages();

DelphiInterface<IHTMLDocument2> diDoc = WebBrowser1->Document;
if (diDoc) {
    DelphiInterface<IHTMLElement2> diBodyElement;

    // all good until this point
    if (SUCCEEDED(diDoc->QueryInterface(IID_IHTMLElement2, reinterpret_cast<void**>(&diBodyElement))) && diBodyElement) {
        // Never reaches this part - always E_NOINTERFACE when querying for IID_IHTMLElement2
        diBodyElement->focus();
        }
    }

我已经找到了如何达到 body->focus() 的自己的解决方案,如下所示:

DelphiInterface <IHTMLDocument2> diDoc2 = WebBrowser1->Document;

if (diDoc2) {
    DelphiInterface<IHTMLElement>     pBody1;
    DelphiInterface<IHTMLElement2>    pBody2;
    DelphiInterface<IHTMLBodyElement> pBodyElem;

    if (SUCCEEDED(diDoc2->get_body(&pBody1)) && pBody1) {
        if (SUCCEEDED(pBody1->QueryInterface(IID_IHTMLBodyElement, reinterpret_cast<void**>(&pBodyElem))) && pBodyElem) {
        if (SUCCEEDED(pBodyElem->QueryInterface(IID_IHTMLElement2, reinterpret_cast<void**>(&pBody2))) && pBody2) {
            pBody2->focus();
            }
        }
    }
}

编辑(Reby Lebeau 建议) - 简化版:

DelphiInterface <IHTMLDocument2> diDoc2 = WebBrowser1->Document;

if (diDoc2) {
    DelphiInterface<IHTMLElement>  pBody1;
    DelphiInterface<IHTMLElement2> pBody2;

    if (SUCCEEDED(diDoc2->get_body(&pBody1)) && pBody1) {
        if (SUCCEEDED(pBody1->QueryInterface(IID_IHTMLElement2, reinterpret_cast<void**>(&pBody2))) && pBody2) {
            // focus to <body> element
            pBody2->focus();
            }
        }
    }