c++ - 如何在C++ XE2中收听使用IWebBrowser2运行IE的事件？

目前，我想自动化正在运行的IE。我已使用以下代码成功附加了正在运行的IE(我假设一个选项卡中只有一个IE)

#include "atl/atlbase.h"
#include <exdisp.h>
#include <mshtml.h>
CComQIPtr<IWebBrowser2> pCurIE;
void __fastcall TForm4::Button3Click(TObject *Sender)
{
    bool SuccessToHook = false;
    CComPtr<IShellWindows> m_spSHWinds;
    if (FAILED(m_spSHWinds.CoCreateInstance( __uuidof( ShellWindows)))){

        return ;
    }


    LONG nCount;
    m_spSHWinds->get_Count( &nCount);
    ShowMessage(nCount);
    for (int i = 0; i < nCount; i++) {
        CComPtr<IDispatch> pDisp;
        m_spSHWinds->Item( CComVariant(i), &pDisp);
        CComQIPtr<IWebBrowser2> pIE(pDisp);
        if (pIE == NULL){

            continue ;
        }
        CComPtr<IDispatch> pDispDoc;
        pIE->get_Document(&pDispDoc);
        CComQIPtr<IHTMLDocument2> pHtmlDoc(pDispDoc);
        if (pHtmlDoc){
            pCurIE = pIE;
            SuccessToHook = true;
            break ;
        }
    }
    ShowMessage(SuccessToHook ? "Success to hook." : "Failed to hook." );
}

现在，我可以像导航一样控制当前正在运行的IE，并读取当前状态。但正如我想在触发onDocumentComplete Event之类的事件时显示消息。我不知道如何按照我的当前代码监听事件。一个简单的带有BCB的示例代码将不胜感激，因为有一些VC++的示例，但是我的项目在C++ XE2上。

感谢@Remy Lebeau和this link，我终于解决了我的问题。
我将代码留在这里，希望它可能对其他人有所帮助。

从TEventDispatcher派生的类

#include <exdisp.h>
#include <exdispid.h>
#include <mshtml.h>
#include <mshtmdid.h>
#include <utilcls.h>
//---------------------------------------------------------------------------
class TForm4;
class EventHandler:public TEventDispatcher<EventHandler,&DIID_DWebBrowserEvents2>{
    private:
        bool connected;
        TForm4 *theform;
        IUnknown* server;
    protected:
        HRESULT InvokeEvent(DISPID id, TVariant *params){
            switch(id){
                case DISPID_DOCUMENTCOMPLETE:
                    ShowMessage("On Document Complete");
                    break;
                default:
                    break;
            }
        }
    public:
        EventHandler(){
            connected = false; //not connected;
            theform = false; //backptr to form is null
        }
        ~EventHandler(){
            if (connected)
                Disconnect();
        }
        void Connect(TForm4 *form,  IUnknown* srv){
            server = srv;
            theform = form; //back pointer to form to do stuff with it.
            server->AddRef(); //addref the server
            ConnectEvents(server);
        }
        void Disconnect(){
            DisconnectEvents(server);   //disconnect the events
            server->Release();
        }
};

开始听

void __fastcall TForm4::Button5Click(TObject *Sender)
{
    Event = new EventHandler();
    Event->Connect(this, pCurIE);
}

别听了

void __fastcall TForm4::Button6Click(TObject *Sender)
{
    Event->Disconnect();
}

最佳答案

您必须在代码中编写一个实现DWebBrowserEvents2接口(interface)的类。然后，您可以在浏览器中查询其IConnectionPointContainer接口(interface)，调用IConnectionPointContainer::FindConnectionPoint()方法以找到与IConnectionPoint对应的DWebBrowserEvents2，并调用IConnectionPoint::Advise()方法，将其传递给您的类的实例。使用事件完成后，请不要忘记调用IConnectionPoint::Unadvise()。

为了帮助您，您可以从utilcls.h中的VCL的TEventDispatcher类派生您的类。它的ConnectEvents()和DisconnectEvents()方法可以为您处理IConnectionPoint内容。然后，您只需覆盖抽象的InvokeEvent()方法(每个浏览器事件都有其自己的DISPID值)。

关于c++ - 如何在C++ XE2中收听使用IWebBrowser2运行IE的事件？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/11642964/