连接 COM 与 .NET 的桥梁（三）COM 服务器的 COM Interop 方式

转载:VC知识库 http://www.vckbase.com/document/viewdoc/?id=1630

连接 COM 与 .NET 的桥梁（三）
COM 服务器的 COM Interop 方式

作者：caeser2

源代码下载

• 连接 COM 与 .NET 的桥梁（一）——预备知识
• 连接 COM 与 .NET 的桥梁（二）——COM 服务器的 P-Invoke 方式

本节部分内容要求读者熟悉COM的消息调用原理，原理请参见杨老师的 专栏文章。

前文内容：

COM 服务器 --> COM 客户端
...
COM 服务器 --> .net客户端
　1、P/Invoke
　2、COM Interop（本节内容）

　　上回介绍了COM服务器端未知或没有接口时的调用方法P/Invoke，这回我们来探讨一下已知接口的情况，COM Interop 方式。

一、普通的接口函数调用

　　这部分的示例代码叫做ComP6srcDNet中的ComP5工程，呵呵，有点眼熟吧，其实我的目的只是想介绍.net部分，所以COM和MFC部分引自杨老师的“COM 组件设计与应用（七）——编译、注册、调用” ，只有Use_Net的代码是我写的，我在这里多谢杨老师啦，没有您前面栽的树，咱也没法乘凉哈^_^
　　虽然.net本身就是COM凤凰涅磐后的产物，从很多.net结构的工作原理中都能看到 COM 的影子，但是从.net的COM调用中可以很明显的看出，.net在淡化（隐藏）接口的作用，这一点从下面的代码中可以看到。

对于COM服务器的调用，需要先做以下三个操作：
　　1>用regsvr32.exe注册COM。
　　2>用Tlbimp.exe导出类型库。被导出文件可以是dll文件，也可以是tlb文件；导出后生成的文件默认命名为原COM名称后加Lib。
　　3>"添加引用",详见下
　　然后就可以写调用代码了。

/*Simple2是杨老师写的COM服务器，带有Add(int,int)和Cat(BSTR,BSTR)两个函数
Use1、2、3、4、5是杨老师写的8种COM调用方法....不是我不会数数哦，不信你自己去看代码
Use_Net是我写的.net调用

在"解决方案"面版中选择"引用"项，鼠标右键"添加引用"，将Tlbimp.exe生成的类型库文件添加进程序集。结果如图



也可以用[DllImport(...)]方法引用COM
*/
//写个引用，方便使用
　　using namespace Simple2Lib;

　　FunClass *m_pCom;　　　　　　　//FunClass有点像MFC中包装过的智能指针xxxPtr

//初始化
　　try
　　{
　　　　m_pCom=new FunClass;　　　//.net框架自动连接到COM服务器，不用我们动手^_^
　　}
　　catch(...)
　　{
　　　　MessageBox::Show("COM没有注册吧？");
　　　　Close();
　　}

//计算 or 连接。呵呵，这么写还真够简单的，两句话搞定，.net的异常机制会帮我们判断用户是想做加法，还是想做字符串连接
　　try
　　{
　　　　textBox3->Text=m_pCom->Add(
　　　　Convert::ToInt32(textBox1->Text),Convert::ToInt32(textBox2->Text)).ToString();
　　}
　　catch(...)
　　{
　　　　textBox3->Text=m_pCom->Cat(textBox1->Text,textBox2->Text);
　　}

　　这就完啦，是不是很容易呢？熟悉COM调用的读者可以发现，其中许多COM初始化及查找接口的工作都被.net隐藏了，一些常用的参数Marshal转换封送操作也自动处理了，这使得我们用.net客户端调用COM服务器比COM客户端调用COM服务器还要容易。

二、回调接口的调用

　　如果不支持COM消息机制，就不能算支持COM服务。我们先看看回调接口的调用方法。
　　示例代码叫做CallBackInterface中的CallBackInterface工程，还是引自杨老师的文章：“ COM组件设计与应用（十四）——事件和通知” 。其中：
Simple12项目改名为CallBack，实现有1个回调接口的CallBack.DLL(Simple12.DLL)；
Use1项目改名为Use_MFC，实现用MFC调用CallBack.DLL；
Use_Net是我用.net框架写的。

不要忘了调用COM服务器需要做的3个操作啊！

//首先实现接口，写法完全模仿Use_MFC
#pragma once
　　using namespace CallBackLib; 
namespace Use_Net
{
　　public __gc class CSink : public ICallBack　　　　　　　　　　//继承自回调接口
　　{
　　public:
　　　　CSink(TextBox *p,Label *q): textBox3(p) {}
　　private:
　　　　TextBox *textBox3;　　　//用来显示结果
　　　　void CallBackLib::ICallBack::Fire_Result(int nResult)　　　//实现回调接口的虚函数
　　　　{
　　　　　　textBox3->Text=nResult.ToString();
　　　　}
　　};
}
//怎么只实现了一个虚函数？其他的呢？呵呵，又是.net，它已经帮我们做好啦

　　CSink *sink;　　　　　 //实例化回调接口
　　Event1Class *m_spCom;  //Event1Class有点像MFC中接口的智能指针xxxPtr
　　int m_dwCookie;　　　　//保存标志。什么，你不知道这个是干什么的？去问杨老师！^_^

//初始化
　　m_dwCookie = 0;
　　sink=new CSink(textBox3,label1);
　　try {
　　　　m_spCom=new Event1Class;　　　　//.net自动连接到COM服务器
　　}
　　catch(...)
　　{
　　　　MessageBox::Show("杨老师说:注册了吗？COM初始化了吗？");
　　　　Close();
　　}

//连接
　　m_spCom->Advise(sink,&m_dwCookie);

//使用
　　try
　　{
　　　　m_spCom->Add(Convert::ToInt32(textBox1->Text),Convert::ToInt32(textBox2->Text));
　　}
　　catch(...)
　　{
　　　　MessageBox::Show("输入的格式不正确");
　　}

//断开
　　m_spCom->Unadvise(m_dwCookie);
　　m_dwCookie=0;

三、连接点的调用

　　这部分的示例代码是DispConnect中的DispConnect工程，还~~~是引自杨老师的文章： COM 组件设计与应用（十六）——连接点。其中：
Simple16项目名称变为SingleConnect，实现有1个连接点的SingleConnect.DLL；
MultConnect项目名称不变，实现有2个连接点的MultConnect.DLL；
Use项目变为Use_MFC，实现用MFC调用SingleConnect.DLL；
UseMult项目变为UseMult_MFC，实现用MFC调用MultConnect.DLL，并修复了老师在头文件上的一点错误:)
Use_Net是我用.net框架写的，实现用.net调用SingleConnect.DLL；
UseMult_Net是我用.net框架写的，实现用.net调用MultConnect.DLL。

不要忘了调用1个COM服务器需要做的3个操作啊！，这回要调用的是2个COM！

//Use_Net
　　DispConnectClass *sink;　　　　//声明包装类对象,有点像com客户端包装过的智能指针xxxPtr

//初始化
　　try
　　{
　　　　sink=new DispConnectClass;//.net帮我们自动连接到接口
　　}
　　catch(...)
　　{
　　　　MessageBox::Show("杨老师说：没有注册还是没有初始化？");
　　　　Close();
　　}

//连接
//用事件/委托模型替换了连接点模型。.net框架已经自动包装好委托了
　　sink->Result+=new _IDispConnectEvents_ResultEventHandler(this,My_ResultEvent);

//回调函数
private: System::Void My_ResultEvent(int e)　　//ATL的LONG类型被Marshal为int
　　{
　　　　textBox3->Text=e.ToString();　　　　　 //textBox3用来显示结果
　　}

//使用
　　try
　　{
　　　　sink->Add(Convert::ToInt32(textBox1->Text),Convert::ToInt32(textBox2->Text));
　　}
　　catch(...)
　　{
　　　　MessageBox::Show("输入的数字格式不正确！");
　　}

//断开
//这步操作不需要了，.net在程序Close()时自动处理了

以此类推，多个连接点的UseMult_Net就很好理解了

　　DispConnectClass *sink;　　//声明包装类对象,有点像com客户端包装过的智能指针xxxPtr
//初始化
　　try
　　{
　　　　sink= new DispConnectClass;　　//.net自动帮我们连接到接口,Close()时自动断开
　　}
　　catch(...)
　　{
　　　　MessageBox::Show("杨老师说：没有注册还是没有初始化？");
　　　　Close();
　　}
//连接
　　//用事件、委托模型替换了连接点模型。.net框架已经自动包装好委托了
　　//奇怪，在"对象阅览器"中看不到"Timer"事件....Bug啊Bug，你怎么这么多捏？才写了几篇.net的文章，就发现这么多
　　sink->Timer+= new _IDispConnectEvents2_TimerEventHandler(this,My_TimeEvent);
　　sink->Result+=new _IDispConnectEvents_ResultEventHandler(this,My_ResultEvent);
//回调函数
private: System::Void My_TimeEvent(Object *e)　　//VARIANT被Marshal为Object*
　　{
　　　　label1->Text=e->ToString();　　　　　　　//label1用来显示时间
　　}
private: System::Void My_ResultEvent(int e)　　　//ATL的LONG类型被Marshal为int
　　{
　　　　textBox3->Text=e.ToString();　　　　　　//textBox3用来显示结果
　　}
//使用
　　//开始计时
　　sink->SetTimer(1000);
....
　　//停止计时
　　sink->KillTimer();
....
　　//Add(int,int)
　　try
　　{
　　　　sink->Add(Convert::ToInt32(textBox1->Text),Convert::ToInt32(textBox2->Text));
　　}
　　catch(...)
　　{
　　　　MessageBox::Show("输入的数字格式不正确！");
　　}
//断开
//这步操作不需要了，.net在程序Close()时自动处理了

四、ActiveX的调用

　　这个原理比较麻烦，但使用却很简单，MSDN以MediaPlayer控件(msdxm.ocx)举的例，大家感兴趣可以试试，我把它打包进 tools中了。这里我换一个ActiveX，下载文件tools中的AxDemo.dll，是杨老师的文章......嗯~~还没发表出来啊，那我就代 老师先把代码发表出来吧^_^，AxDemo.dll的代码大家自己去看示例文件ActiveXDemo中的ActiveXDemo工程，那可是我独家纰 漏的、杨老师亲手写的、至今还未公开的绝密资料哟～～
AxDemo是杨老师用vc6写的ActiveX，注意不能用其它版本的vc重新编译；控件叫做ui Class；
Use_MFC和Use_Net是我写的调用。
　　MFC的调用步骤我不多说了，杨老师以后会告诉大家的，我只说说.net的调用步骤：
1.regsvr32.exe注册：

　　　　

2.添加控件到工具箱中（.net窗体编辑器的右键菜单里的没有"插入ActiveX控件"项）：

　　　　 ->

如果没有注册，则在列表中是找不到的。这时可以这样(编译器将自动注册)：

　　　　

3.将控件“画”在窗体中。编译器会自动调用Aximp.exe导出类型库：

　　　　

4.编译、调试：

　　　　


ActiveX相对于其它COM组件而言最舒服的地方是属性和事件可以直接在“属性”面版中调整，真正的可视化编程呐。

五、其它

　　遗憾的是，我使用的VS 2003(.net v1.1)不支持代码级别的C++ Interop方法，所以COM服务器方面我只能写到这里了，下一节我们开始讨论.net做服务器时的各种操作。
　　供下载的文件包中的tools文件夹提供了几个工具

名称	regsvr32.exe	TlbImp.exe	AxImp.exe	ildasm.exe
功能	注册COM控件	导出COM控件的类型库	ActiveX 控件的 COM 类型库中的类型定义转换为 Windows 窗体控件	用来反汇编.net程序，.exe和.dll文件均可
基本操作	注册：regsvr32 dll文件名	导出：TlbImp dll文件名	导出：aximp dll或ocx文件名	程序是窗口化的
	反注册：regsvr32 /u dll文件名