.NET 和 COM 之间的相互访问

原文处处：http://dotnetextreme.com/articles/ccwrcw.html

翻译整理：SLASH 51DOTNET 俱乐部

　　本文将介绍，如何在.NET 客户端中来访问COM 组件，以及在COM 客户端中来访问.NET 组件。
　　COM 的本质就是代码之间的相互通信。在.NET 中代码之间的相互通信并不是采用 COM 的形式 ，因此你无法直接在一个COM 的客户端与 .NET 的组件进行通信。在这里需要采用CCW (COM CALLABLE WRAPPER)来完成这样的操作，CCW 在这里作为一个.NET 对象的代理，同样的，假 如要在.NET 客户端与 COM 组件来进行通信，需要利用RCW(RUNTIME CALLABLE WRAPPER)来充当这 样一个代理。

COM 的客户端与 .NET 的组件进行通信

   下面的范例讲演示一个VB6 的客户端利用CCW 访问一个VB.NET 的组件

一个VB.NET 组件（testCCW.vb）

imports system namespace CCWComponent public class CCWClass 　　public function PassStr as string 　　　PassStr = "Hi From .NET Component" 　 end function end class end namespace

将以上代码存储为testCCW.vb文件，然后以如下语句进行编译：

Vbc /t:library testCCW.vb

VBC 编译器将会产生一个testCCW.DLL 文件，这是一个.NET 的 assembly,下一步为testCCW.DLL 创建一个CCW 代理。regasm 工具能够注册一个.NET 组件，并生成一个供COM 客户端来引用的 .TLB文件。
用如下语句：

Regasm testCCW.dll

这将只在注册表中注册.NET 控件，这种方法应用于late binded 客户端。
或者使用如下语句：

Regasm testCCW.dll /tlb:testCCW.tlb

这将会创建一个testCCW.tlb 文件，这种方法应用于early bingde 客户端。

COM Client (VB6) (late binded) Private Sub Command1_Click() 　dim o  　set o = createobject("CCWComponent.CCWClass") 　msgbox o.PassStr end sub

同样的客户端也可以应用于early binded 客户端，当然这需要在上一步输出一个tbl文件，供 COM 客户端来引用。需要强调的是，客户端必须和它所要调用的.NET 组件在一个目录下，或者 ，该组件存在于全局的 ASSEMBLY 缓存中。

使用RCW(RUNTIME CALLABLE WRAPPER)

　　下面的范例将介绍利用TLBImp 工具来创建一个COM 组件的代理，供.NET 客户端来访问。 COM 服务器 ComSrv.dll (MyCom.ComComponent)

向一个ACTIVEX DLL 中添加如下代码：

Public Function SayHi() As String 　 SayHi = "Hi From COM Component" End Function

组件编译完成后用TLBImp 工具来创建一个代理:

Tlbimp ComSvr.dll /out c:\<Path>

COM 组件的代理将在指定目录中生成。

VB.NET 客户端 (Ntest.vb)

imports system imports microsoft.visualbasic imports MyCom class NTest 　shared sub main 　　dim o as new MyCom.ComComponent 　　msgbox (o.sayHi) 　end sub end class

保存为Ntest.vb,然后编译：

vbc /r:ComSvr.dll Ntest.vb

本文地址：http://com.8s8s.com/it/it46291.htm