9

次のような呼び出しを介してユーザーがアクセスできる COM オブジェクトがあるとします。

Set s = CreateObject("Server")

私ができるようにしたいのは、次のように、ユーザーがオブジェクトのイベント ハンドラーを指定できるようにすることです。

Function ServerEvent

   MsgBox "Event handled"

End Function

s.OnDoSomething = ServerEvent

これは可能ですか?可能であれば、C++ のタイプ ライブラリ (具体的には BCB 2007) でこれを公開するにはどうすればよいですか?

4

3 に答える 3

5

これは私が最近やった方法です。IDispatch を実装するインターフェイスとそのインターフェイスのコクラスを IDL に追加します。

[
    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;
};

これは、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;        
};

ここで重要なのは、IConnectionPointImpl および IConnectionPointContainerImpl インターフェイスと接続ポイント マップの実装です。OnServerEvent メソッドの定義は次のようになります。

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;
}

クライアントがイベントのハンドラーを指定する方法を提供する必要があります。「SetHandler」などの専用メソッドを使用してこれを行うこともできますが、ハンドラーを非同期で呼び出されるメソッドの引数にすることを好みます。このように、ユーザーは 1 つのメソッドを呼び出すだけで済みます。

STDMETHOD(DoSomethingAsynchronous)( IServerEvents *pCallback );

IServerEvents へのポインターを格納し、イベントを発生させたい場合は、メソッドを呼び出すだけです。

m_pCallback->OnServerEvent();

VBコードに関しては、イベントを処理するための構文は、あなたが提案したものとは少し異なります:

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

これが役立つことを願っています。

于 2008-09-15T00:40:02.383 に答える
2

詳細は不明ですが、以下のリンクが参考になるかもしれません。

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

サーバー オブジェクトを実装する必要があるようで、VBScript コードIProvideClassInfoを呼び出します。ConnectObject以下も参照してください。

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

于 2008-09-14T23:37:55.950 に答える
1

ここで説明されている手法に従うことになりました。

于 2008-09-15T22:07:17.297 に答える