COM中事件驱动技术探讨
邹飞
版本v1.0
2004年7月
目 录
1. 问题的提出.... 3
2. 名次术语.... 3
3. 常用技术.... 3
3.1 紧密耦合事件（Tightly Coupled Events，TCE）... 3
3.1.1 连接点技术... 3
3.1.2 消息队列技术... 11
3.2 松散耦合事件（Loosely Coupled Events，LCE）... 11
3.2.1 COM+的事件驱动... 11
4. 总结.... 18
1. 问题的提出
类似于设计模式中Observer模式，在COM编程中，希望实现一种机制，使得对数据变化感兴趣的若干部分能够接受到数据的变化通知。一个典型的应用：计算机监控程序在计算机状态数据发生变化时通知系统管理员、系统日志程序、发送电子邮件等等。
2. 名次术语
订阅者Subscriber：对数据感兴趣的程序
发布者Publisher：发布数据变化通知的程序
激发事件Firing Event：发布者发起的通知过程
源接口（Source）/出（Outgoing）接口：发布者和订阅者之间达成的一致接口
接收器（Sink）：订阅者提供给发布者的对象
3. 常用技术
3.1 紧密耦合事件（Tightly Coupled Events，TCE）
3.1.1 连接点技术
COM中提供了连接点的技术用于实现事件驱动。
连接点技术的工作方式为：
n 订阅者通过查询标准COM接口IConnectionPointContainer，询问发布者是否支持连接点机制
n 通过IConnectionPointContainer的FindConnectionPoint方法得到某种特定类型的连接点，通过接口IConnectionPoint返回
n 订阅者创建一个接收器（Sink）对象
n 订阅者通过IConnectionPoint的Advise方法把接收器对象加入到发布者的接收者名单中，返回一个cookie（DWORD的标识）
n 订阅者通过IConnectionPoint的Unadvise取消对该事件的关注
从上面的工作方式可以发现，要实现连接点技术，只要订阅者和发布者遵循一定的接口规范，并对这些接口进行实现即可。
发布者：实现IConnectionPointContainer的容器、支持IConnectionPoint的连接点
订阅者：实现Sink对象
在VC中，提供了多种机制对连接点的实现进行了简化，使得开发连接点程序变得很简单，在VC6和VC7中均对连接点有很好的支持，同时又有一定差别，本文分别介绍。
实例介绍
首先介绍一下我们要实现的实例的功能描述：
发布者：实现一个Add方法的接口，当Add方法被调用时，如果结果大于100，则调用OnAdd事件，将Add的参数传出去，实现为一个COM的DLL
订阅者：订阅OnAdd事件，当OnAdd事件被调用时，输出参数值，实现为Dialog Based Application。
Visual C++ 6.0
Visual C++从5.0后提供了ATL（Active Template Library，活动模板库），它一套可用于开发轻量级COM组件的开发库（在ATL里使用非常复杂难懂的Template，理解起来很麻烦~~~）
我们的第一种方法就是通过ATL来实现连接点：
发布者：
n 通过ATL COM Wizard新建一个COM组件
项目名称为XAdd
n 通过ATL Object Wizard新建一个COM对象（Simple Object）
Short Name设为Add（其他的名字Wizard会自动产生），同时，在Attributes中钩上Support Connection Points，以使得该COM对象支持连接点，这会自动产生一个_IAddEvents的接口。
n 给Add增加Add方法
HRESULT Add([in] LONG a, [in] LONG b, [out] LONG* pVal);
n 给_IAddEvents增加OnAdd方法
HRESULT OnAdd([in] LONG a, [in] LONG b);
n F7编译，自动注册COM组件
n 在CAdd的右键菜单中选择Implement Connection Point，选择_IAddEvents
Wizard会自动给CAdd增加上对IConnectionPointContainer接口的实现，并会增加CProxy_IAddEvents，它对IConnectionPoint接口进行了实现。
n 在CAdd的Add方法实现中增加对事件的触发：
STDMETHODIMP CAdd::Add(LONG a, LONG b, LONG* pVal)
{
*pVal = a + b;
Fire_OnAdd(a, b); // 触发OnAdd事件
return S_OK;
}
n 重新编译、注册即可。
订阅者：
n 新建一个MFC AppWizard(exe)，名为XAddClient，类型为Dialog based，其余采用默认即可。
n 添加对ATL的支持（一种简单的方法是选择New ATL Class，由于不能在MFC Application中加入ATL Class，但这是ATL的支持已经被加入）
n 在项目中加入XAdd.h文件（发布者的接口定义头文件）
n 在项目中导入COM的类型库
在stdafx.h中加入：
#import "../XAdd.tlb" no_namespace, named_guids
n 新建一个类CEventSink，public继承自IDispEventImpl<1, CEventSink, &DIID__IAddEvents, &LIBID_XADDLib>
namespace {
_ATL_FUNC_INFO OnAddInfo =
{
CC_STDCALL,
VT_EMPTY,
2 ,
{VT_I4, VT_I4}
};
}
class CEventSink : public IDispEventImpl<1, CEventSink, &DIID__IAddEvents, &LIBID_XADDLib>
{
public:
CEventSink();
virtual ~CEventSink();
void __stdcall OnAdd(int a, int b);
BEGIN_SINK_MAP(CEventSink)
SINK_ENTRY_INFO(1, DIID__IAddEvents, 1, OnAdd, &OnAddInfo)
END_SINK_MAP()
};
n 实现CEventSink的OnAdd方法
void __stdcall CEventSink::OnAdd(int a, int b)
{
CString str;
str.Format("%d %d", a, b);
AfxMessageBox(str);
}
n 这样，接收器对象就已经实现完成，下面只要把接收器Advise到XAdd对象上即可。
n 在Dialog中加入Sink对象的Advise、并调用Add()方法，这个步骤比较简单，可以参考例程
n 定义private变量：
IAddPtr pAdd;
DWORD dwCookie;
CEventSink* pSink;
n 在OnInitDialog()中创建COM对象
CoInitialize(NULL);
pAdd.CreateInstance(__uuidof(Add));
n 在DestroyWindow中销毁COM对象
pAdd = NULL;
CoUninitialize();
n 增加3个按钮方法：OnCallAdd、OnAdvise、OnUnadvise
void CXAddClientDlg::OnCallAdd()
{
LONG ret;
pAdd->Add(1, 2, &ret);
}
void CXAddClientDlg::OnAdvise()
{
if (pSink == NULL)
{
pSink = new CEventSink();
AtlAdvise(pAdd, (IUnknown*)pSink, DIID__IAddEvents, &dwCookie);
}
}
void CXAddClientDlg::OnUnadvise()
{
if (pSink != NULL)
{
AtlUnadvise(pAdd, DIID__IAddEvents, dwCookie);
delete pSink;
}
}
我们可以发现，ATL为我们定义了一组Wizard、Macro、Template等，使得实现COM对象变得很简单，我们不需要去关心AddRef()、Release()等很多通用方法的实现，ATL已经帮我们做得很好。
除了使用ATL作为开发COM的开发库，MFC也提供了很好的COM支持，因此也可以通过MFC实现连接点技术，本文不再介绍。
Visual C++ 7.0
在Microsoft推出Visual Studio.NET后，同时也对VC进行了升级，在Visual C++ 7.0中，提供了很多对C++的扩充，包括更好的对COM的支持。
在VC 7.0种可以通过__hook、__unhook关键字更方便地实现事件驱动。
这里给出一个具体的实现例子（开发环境为：Microsoft Visual C++.NET 中文版）：
发布者：
n 在VC 7.0中新建一个ATL项目，名为XAdd
n 添加ATL 简单对象，名为Add，在选项中增加对连接点的支持：
n
这里有个小小的问题，通过Wizard自动产生的接口定义是和接口的实现类定义放在一起的（Add.h），但接口定义应该是客户可见的，而接口的实现类则
不应该客户可见，因此我们做个改动，把Add.h中的接口定义copy到另一个文件IAdd.h中，并在Add.h中#include “IAdd.h”
n 在IAdd中添加方法Add
HRESULT Add([in] LONG a, [in] LONG b, [out,retval] LONG* pVal);
n 在_IAddEvents中添加事件方法OnAdd
HRESULT OnAdd([in] LONG a, [in] LONG b);
n 实现CAdd中的Add方法
STDMETHODIMP CAdd::Add(LONG a, LONG b, LONG* pVal)
{
*pVal = a + b;
__raise OnAdd(a, b); // 触发事件
return S_OK;
}
n 编译、注册
订阅者：
n 新建Win32 控制台项目，名为AddClient，应用程序设置中添加ATL支持
n 添加ATL支持
在stdafx.h中增加：
#define _ATL_ATTRIBUTES
#include
#include
#include
n 添加类AddProxy，用于实现Sink对象，同时作为客户端事件驱动代理
头文件AddProxy.h
#pragma once
#include
#include "../IAdd.h"
[ module(name = "Receiver") ];
[ event_receiver(com) ]
class CAddProxy
{
public:
CAddProxy(void);
virtual ~CAddProxy(void);
void OnAdd(LONG a, LONG b);
private:
void Hook(IAdd* pS);
void UnHook(IAdd* pS);
LONG Add(LONG a, LONG b); // 对COM对象的包装
_COM_SMARTPTR_TYPEDEF(IAdd, __uuidof(IAdd));
IAddPtr m_pAdd;
};
实现文件AddProxy.cpp
#include "StdAfx.h"
#include ".\addproxy.h"
#include
using namespace std;
CAddProxy::CAddProxy(void)
{
m_pAdd.CreateInstance("XAdd.Add"); // 创建COM对象
Hook(m_pAdd); // 挂接事件
}
CAddProxy::~CAddProxy(void)
{
UnHook(m_pAdd); // 取消挂接
m_pAdd = NULL; // 销毁COM对象
}
void CAddProxy::OnAdd(LONG a, LONG b)
{
cout << a << b << endl; // 事件代码
}
void CAddProxy::Hook(IAdd* pS)
{
__hook(&_IAddEvents::OnAdd, pS, &CAddProxy::OnAdd); // 挂接
}
void CAddProxy::UnHook(IAdd* pS)
{
__unhook(pS); // 取消挂接
}
LONG CAddProxy::Add(LONG a, LONG b)
{
LONG ret;
m_pAdd->Add(a, b, &ret);
return ret;
}
n 在main()函数中创建Proxy对象，执行Add()方法。
int _tmain(int argc, _TCHAR* argv[])
{
CAddProxy add;
add.Add(1, 2);
return 0;
}
n 编译，执行。
如
果我们看一下Wizard帮我们生成的代码，我们可以发现，在VC
7.0里对COM的支持多出了很多关键字，如__event、__interface、__raise、__hook、__unhook等，通过这些关键
字要实现COM事件驱动是很简单的（即使完全不采用Wizard，而手工编码，也不复杂）
此外，需要说明的是：虽然VC 7.0是在VS.net中提供的，但采用这种方法写出来的COM组件和接收器都可以在Windows 2000等没有.Net Framework的机器上运行，即不需要.NET Framework的支持。
3.1.2 消息队列技术
通过Microsoft提供的MSMQ（Microsoft Message Queue Server，微软消息队列服务器）也可以实现紧密耦合的事件驱动，这不是本文的重点，这里不叙述。
说明：MSMQ只在Windows 2000以后的操作系统提供，且不作为系统的必选安装，需要在安装系统后再增加。
3.2 松散耦合事件（Loosely Coupled Events，LCE）
3.2.1 COM+的事件驱动
虽然通过连接点技术可以实现COM中的事件驱动，但它存在着一些缺点：
n 发布者和订阅者生命周期紧密相关，对于企业应用不很合适
n 连接点在建立和断开连接时需要多次交互，效率较低，对于分布式应用环境存在问题
n TCE没有事件过滤的机制
针
对这些问题，COM+中引入了一种发布和订阅LCE事件的机制，称为COM+事件（COM+
Event）。它有着很多好的特性，本文无法对COM+作更详细的介绍，这里只是结合一个实例说明COM+
Event的实现，而对于事件过滤、安全设定等高级选项请参考COM+相关书籍。
实例说明：设计一个股票价格发布和订阅系统，当股票价格发生变动时，发布者自动通知订阅者（调用订阅者的方法）
实现步骤：
1、编写事件组件
n 通过ATL COM Wizard创建COM组件工程XEvent
n 通过ATL Object Wizard创建组件StockEvent，无须设置Attributes中的Support Connection Points
n 给IStockEvent增加方法NewQuote
HRESULT NewQuote([in] BSTR bsSymbol, [in] double dValue);
无须为该方法实现，只须返回S_OK即可。
n 编译，注册
2、安装事件组件（以Windows 2000 Professional为例）
n 打开“控制面板”==〉“管理工具”下的组件服务
n 在COM+应用程序上点右键，“新建”==〉“应用程序”，为事件组件新建一个Application，名为StockApp
n 在新建出的StockApp应用程序下的组件菜单中，点右键，“新建”==〉“组件”
n 选择“安装新的事件类”
n 将第一步编写的事件组件导入，向导会自动发现组件以及组件中的接口。
n 安装完成
3、编写事件订阅服务
n 通过ATL COM AppWizard新建一个COM组件项目，名为StockSubscriber
n 导入事件组件接口
在stdafx.h中加入
#import "../Test.tlb" raw_interfaces_only no_namespace, named_guids
n 在项目中加入文件XEvent.h
n
通过ATL Object Wizard新建一个Simple
Object，名为StockEventSubscriber，这一步工作只是为了让ATL自动帮我们产生idl文件以及coclass的C++类包装，
所以接口IStockEventSubscriber对我们是没有什么用途的，可以把它删掉（下面会介绍怎么删除），当然也可以不通过ATL
Object Wizard而是自己写idl和CStockEventSubscriber。
n 在StockEventSubscriber.idl中修改coclass，使它的默认接口为IStockEvent
修改library部分：
library STOCKSUBSCRIBERLib
{
importlib("stdole32.tlb");
importlib("stdole2.tlb");
importlib("../XEvent/XEvent.tlb");
[
uuid(E04C02F3-F8B4-489C-B91F-A04D3DB5AEFD),
helpstring("StockEventSubscriber Class")
]
coclass StockEventSubscriber
{
[default] interface IStockEvent;
interface IStockEventSubscriber;
};
};
n 给CStockEventSubscriber增加IStockEvent的实现（即当触发事件会执行的代码）
头文件StockEventSubscriber.h
…
class ATL_NO_VTABLE CStockEventSubscriber :
public CComObjectRootEx<CComSingleThreadModel>,
public CComCoClass<CStockEventSubscriber, &CLSID_StockEventSubscriber>,
public IDispatchImpl<IStockEventSubscriber, &IID_IStockEventSubscriber, &LIBID_STOCKSUBSCRIBERLib>,
public IDispatchImpl<IStockEvent, &IID_IStockEvent, &LIBID_XEVENTLib>
…
BEGIN_COM_MAP(CStockEventSubscriber)
COM_INTERFACE_ENTRY(IStockEventSubscriber)
COM_INTERFACE_ENTRY(IStockEvent)
COM_INTERFACE_ENTRY2(IDispatch, IStockEvent)
END_COM_MAP()
…
// IStockEvent
public:
STDMETHOD(NewQuote) (BSTR bsSymbol, double dValue);
…
实现文件StockEventSubscriber.cpp
…
STDMETHODIMP CStockEventSubscriber::NewQuote(BSTR bsSymbol, double dValue)
{
TCHAR buf[100];
_stprintf(buf, _T("%s %lf"), bsSymbol, dValue);
::MessageBox(NULL, buf, _T("Stock Price"), MB_OK);
return S_OK;
}
n 编译，注册
n 附：上面的步骤其实产生了一个没有任何用途的“空”接口IStockEventSubscriber，下面给出一个步骤去除它
n 在StockEventSubscriber.idl文件中，删除接口定义
[
object,
uuid(1FBF1C53-35B5-4E59-B821-AE68D16E4536),
dual,
helpstring("IStockEventSubscriber Interface"),
pointer_default(unique)
]
interface IStockEventSubscriber : IDispatch
{
};
删除coclass中的接口说明
interface IStockEventSubscriber;
n 在StockEventSubscriber.h头文件中，删除对IstockEventSubscriber接口的实现
public IDispatchImpl<IStockEventSubscriber, &IID_IStockEventSubscriber, &LIBID_STOCKSUBSCRIBERLib>,
…
COM_INTERFACE_ENTRY(IStockEventSubscriber)
修改COM_INTERFACE_ENTRY2(IDispatch, IStockEvent)为COM_INTERFACE_ENTRY(IDispatch)
n 编译，注册
4、安装事件订阅服务
n 在“组件服务”==〉“StockApp”的组件下新建组件，选择“安装新组件”，安装StockSubscriber.dll
5、订阅服务
n 在“组件服务”==〉“StockApp”的组件==〉“StockSubscriber.StockEventSubscriber.1”==〉“订阅”点右键，“新建”==〉“订阅”
n 选择订阅方法，直接选中IstockEvent，点“下一步”
n 选择事件类，选中某个事件类，点“下一步”
n 订阅选项，为订阅起一个名称StockSubscriber，选中“立即启用该订阅”，点“下一步”
n 完成订阅
5、测试事件驱动
我们用VB写一个简单的COM组件调用（用VC写也是完全一样的），在里面对Xevent的NewStock()方法进行调用，会发现StockSubscriber中的NewStock方法也被调用了（弹出对话框），证明事件被正确的订阅了。
代码如下：
Private Sub Command1_Click()
Set StockPriceEvent = CreateObject("XEvent.StockEvent")
StockPriceEvent.NewQuote "Test", 100
End Sub
6、制作COM+安装文件
COM+组件服务自动提供了对组件打包分发的功能，可以在“组件服务”==〉“StockApp”点右键，“导出”
然后可以自动生成安装文件，以后可以直接在其他机器上安装，COM+组件就可以正确安装。
其他说明：
n 采用COM+实现还可以获得COM+的其他很多特性，比如JIT、对象池、安全特性等。
n COM+至少要在Windows 2000以上的机器才能够使用。
4. 总结
实现COM的事件驱动包括TCE和LCE两种模式，TCE可以通过Connection Point或消息队列实现，LCE通过COM+订阅者模型实现。
实现连接点：VC7实现起来更简单，对ATL的支持更全面、更稳定，而VC6.0的ATL则经常容易出现一些小问题。
COM+订阅者模型：COM+可以提供更好的运行特性，以及更灵活的配置管理，但只能在Windows 2000以上的机器运行。
在实现事件驱动时根据具体情况选择一种实现。