实现COM消息广播-lixianjing-ChinaUnix博客

转载时请注明出处和作者联系方式

文章出处：http://www.limodev.cn/blog
作者联系方式：李先静

大家都知道，为ActiveX控件添加事件处理函数是件容易的事情，IDE已经提供相应的Wizard，为ActiveX控件添加事件处理函数和为一般控件添加事件处理函数没有什么两样。而为普通COM组件添加事件处理函数，就没有这么直观了，必须手工编写相关代码。

如果完全手工去编写这些代码，可以说是相当的麻烦，实际上相当编写另外一个COM组件给原组件调用，至少要实现IDispatch接口才行。不过在ATL的帮助下，事情简化了很多。

另外一方面，一个组件的事件，只有对应的客户端才能收到，如何把事件变为广播消息，让所有的客户端都知道呢？这个问题容易解决：组件端记录所有的客户端，把事件发给每一个客户端就行了。下面我们看一个简单的例子。

一、实现COM组件服务端

(COM组件作为一个服务器在一个单独的EXE内部运行。)

o 用VC6新建一个ATL项目server，服务器类型为Executable。

o Insert à New ATL ObjectàObjectsàSimple Object

o 名称为Chat，在属性中选中Support Connection Points(即支持事件)。

o 为IChat增加接口函数：HRESULT Send(BSTR str);

o 为_IchatEvents增加事件：HRESULT OnMessage(BSTR str);

o ReBuild All

o 右键点击类Cchat, Implement Connection Points

o 为Cchat增加一个静态成员，记录所有Cchat对象实例。static std::list s_AllInstances;

o 实现Send函数，该函数中对所有Cchat对象实例触发OnMessage事件。

STDMETHODIMP CChat::Send(BSTR str)
{
     // TODO: Add your implementation code here
     for(std::list<CChat*>::iterator iter = s_AllInstances.begin(); iter != s_AllInstances.end(); iter++)
     {
          CChat* obj = *iter;
 
          obj->Fire_OnMessage(str);
     }
 
     return S_OK;
}

二、实现客户端

用VC6创建ATL/WTL项目，应用程序类型为Dialog based。

让CmainDlg继承IdispEventImpl接口。

class CMainDlg : public CAxDialogImpl<CMainDlg>, public CUpdateUI<CMainDlg>,
          public CMessageFilter, public CIdleHandler,
          public IDispEventImpl<0, CMainDlg, &DIID__IChatEvents, &LIBID_SERVERLib>

增加事件函数描述信息。

_ATL_FUNC_INFO g_OnMessageInfo = {CC_STDCALL, VT_EMPTY, 1, {VT_BSTR} };

实现消息处理函数，不要忘了加_stdcall修饰。

void _stdcall OnRecv(BSTR str)
{
     USES_CONVERSION;
     CListBox lb(GetDlgItem(IDC_LIST_ALL_MESSAGE));
     lb.InsertString(-1, OLE2A(str));
     return ;
 
}

增加事件映射。SINK_ENTRY_INFO 的第一个参数要与IdispEventImpl的第一个参数一致，其取值没有限制。

     BEGIN_SINK_MAP(CMainDlg)
          SINK_ENTRY_INFO(0, DIID__IChatEvents, 1, OnRecv, &g_OnMessageInfo)
     END_SINK_MAP()

调用组件函数。

     LRESULT OnSend(WORD wNotifyCode, WORD wID, HWND hWndCtl, BOOL& bHandled)
     {
          char szBuff[1024] = {0};
          sprintf(szBuff, "(%d):", GetCurrentProcessId());
 
          this->GetDlgItemText(IDC_EDIT_MESSAGE, szBuff+strlen(szBuff), 1000);
 
          m_ichat->Send(CComBSTR(szBuff));
          // TODO : Add Code for control notification handler.
          return 0;
     }

在OnInitDialog中增加初始化代码。

     if(SUCCEEDED(m_ichat.CoCreateInstance(CComBSTR(L"Server.Chat"))))
     {
          if(FAILED(DispEventAdvise(m_ichat, &DIID__IChatEvents)))
          {
              MessageBox("DispEventAdvise failed!");
          }
     }
     else
     {
         MessageBox("CoCreateInstance failed!");
     }

在CloseDialog中增加~初始化代码。

if(FAILED(DispEventUnadvise(m_ichat, &DIID__IChatEvents)))
{
    MessageBox("DispEventUnadvise failed!");
}