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

连接 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);

}

//首先实现接口，写法完全模仿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;

//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()时自动处理了

　　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()时自动处理了

本文转自peterzb博客园博客，原文链接：http://www.cnblogs.com/peterzb/archive/2009/07/29/1534216.html，如需转载请自行联系原作者。