Expose một event handler cho người dùng VBScript của đối tượng COM của tôi

Question

Giả sử tôi có một đối tượng COM mà người dùng có thể truy cập thông qua một cuộc gọi như:

Set s = CreateObject("Server") 

Những gì tôi muốn để có thể làm là cho phép sử dụng để xác định một event handler cho các đối tượng, như vậy:

Function ServerEvent 

    MsgBox "Event handled" 

End Function 

s.OnDoSomething = ServerEvent 

đây có phải là tốt, và nếu như vậy, làm thế nào để vạch trần này trong thư viện kiểu của tôi trong C++ (đặc biệt là BCB 2007)?

Answer 1

tôi là một mơ hồ nhỏ trên các chi tiết, nhưng có lẽ các liên kết dưới đây có thể giúp:

http://msdn.microsoft.com/en-us/library/ms974564.aspx

Dường như đối tượng máy chủ của bạn cần phải thực hiện IProvideClassInfo và sau đó bạn gọi ConnectObject trong mã VBScript của bạn . Xem thêm:

http://blogs.msdn.com/ericlippert/archive/2005/02/15/373330.aspx

Answer 2

Đây là cách tôi đã làm nó gần đây. Thêm một giao diện mà thực hiện IDispatch và coclass cho giao diện đó để IDL của bạn:

[ 
    object, 
    uuid(6EDA5438-0915-4183-841D-D3F0AEDFA466), 
    nonextensible, 
    oleautomation, 
    pointer_default(unique) 
] 
interface IServerEvents : IDispatch 
{ 
    [id(1)] 
    HRESULT OnServerEvent(); 
} 

//... 

[ 
    uuid(FA8F24B3-1751-4D44-8258-D649B6529494), 
] 
coclass ServerEvents 
{ 
    [default] interface IServerEvents; 
    [default, source] dispinterface IServerEvents; 
}; 

Đây là tuyên bố của lớp CServerEvents:

class ATL_NO_VTABLE CServerEvents : 
    public CComObjectRootEx<CComSingleThreadModel>, 
    public CComCoClass<CServerEvents, &CLSID_ServerEvents>, 
    public IDispatchImpl<IServerEvents, &IID_IServerEvents , &LIBID_YourLibrary, -1, -1>, 
    public IConnectionPointContainerImpl<CServerEvents>, 
    public IConnectionPointImpl<CServerEvents,&__uuidof(IServerEvents)> 
{ 
public: 
    CServerEvents() 
    { 
    } 

    // ... 

BEGIN_COM_MAP(CServerEvents) 
    COM_INTERFACE_ENTRY(IServerEvents) 
    COM_INTERFACE_ENTRY(IDispatch) 
    COM_INTERFACE_ENTRY(IConnectionPointContainer) 
END_COM_MAP() 

BEGIN_CONNECTION_POINT_MAP(CServerEvents) 
    CONNECTION_POINT_ENTRY(__uuidof(IServerEvents)) 
END_CONNECTION_POINT_MAP() 

    // .. 

    // IServerEvents 
    STDMETHOD(OnServerEvent)(); 

private: 
    CRITICAL_SECTION m_csLock;   
}; 

Mấu chốt ở đây là việc thực hiện IConnectionPointImpl và IConnectionPointContainerImpl giao diện và bản đồ điểm kết nối. Định nghĩa của phương pháp OnServerEvent trông giống như sau:

STDMETHODIMP CServerEvents::OnServerEvent() 
{ 
    ::EnterCriticalSection(&m_csLock); 

    IUnknown* pUnknown; 

    for (unsigned i = 0; (pUnknown = m_vec.GetAt(i)) != NULL; ++i) 
    {  
     CComPtr<IDispatch> spDisp; 
     pUnknown->QueryInterface(&spDisp); 

     if (spDisp) 
     { 
      spDisp.Invoke0(CComBSTR(L"OnServerEvent")); 
     } 
    } 

    ::LeaveCriticalSection(&m_csLock); 

    return S_OK; 
} 

Bạn cần cung cấp cách để khách hàng chỉ định trình xử lý cho các sự kiện của bạn. Bạn có thể làm điều này với một phương thức chuyên dụng như "SetHandler" hoặc một cái gì đó, nhưng tôi thích làm cho trình xử lý một đối số cho phương thức được gọi là không đồng bộ. Bằng cách này, người dùng chỉ phải gọi một phương pháp:

STDMETHOD(DoSomethingAsynchronous)(IServerEvents *pCallback); 

Store trỏ đến IServerEvents, và sau đó khi bạn muốn kích hoạt sự kiện của bạn, chỉ cần gọi phương thức:

m_pCallback->OnServerEvent(); 

Đối với mã VB, cú pháp để xử lý sự kiện hơi khác so với những gì bạn đề xuất:

Private m_server As Server 
Private WithEvents m_serverEvents As ServerEvents 

Private Sub MainMethod() 
    Set s = CreateObject("Server") 
    Set m_serverEvents = New ServerEvents 

    Call m_searchService.DoSomethingAsynchronous(m_serverEvents) 
End Sub 

Private Sub m_serverEvents_OnServerEvent() 
    MsgBox "Event handled" 
End Sub 

Tôi hy vọng điều này sẽ hữu ích.

Answer 3

Tôi đã kết thúc theo kỹ thuật được mô tả here.