×

.NET 和 COM 之间的相互访问

Kalet Kalet 发表于2009-03-20 12:00:13 浏览208 评论0

抢沙发发表评论


.NET 和 COM 之间的相互访问

中国个人站长站 ASP.NET教程 点击数：
.NET 和 COM 之间的相互访问
29 更新时间：2004-8-25







baidu

原文处处：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.NET 和 COM 之间的相互访问
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


 


这个提法不太合理，个人觉得。只是工程部门原来的程序都是跑在VB上，调用的dll为ATL COM组件； 而现在的新功能开发都建立在.net2003上，于是便出现了　如题所述　的情况，怎样在.NET2.0中编写COM组件供VB调用？？

　　1.定义接口

　　　　Com是通过抛出接口让外部应用调用的，每个接口、组件都有一个Guid，在.Net中开发Com组件也不例外。

　　　　[Guid(“0bb13346-7e9d-4aba-9ff2-862e0105489a”)]

　　　　public interface IMyService

　　　　{

　　　　//定义接口方法或者属性，每个方法或属性都有一个DISPID属性，供VBScript等使用

　　　　 [DispId( 1 )]

　　　　 void Method1( args … );

　　　　}　　

　　2.实现接口的派生类

　　　　 //Guid属性定义组件的Guid

　　　　 //ProgID定义Com组件的ProgID

　　　　 [Guid(

　　　　"ba0a3019-f0d8-4406-8116-f80d5515c686" ) ,

　　　　 ProgId("ClassNamespace.MyService"),
　　　　 ClassInterface(

　　　　ClassInterfaceType.None)]

　　　　 public class

　　　　MyService : IMyService

　　　　 {

　　　　 …… //实现代码部分

　　　　 }　　

　　3.将.Net装配件转换为公有装配件

　　　　 (1)创建强名字

　　　　 sn –k mykey.snk

　　　　 并将强名字拷贝到工程目录下面

　　　　 在AssembyInfo.cs修改对应的配置

　　　　 [assembly: AssemblyKeyFile(“../../mykey.snk”)]　　

　　(2)导出类型库

　　　　 为了在VB中使用，必须使用tlbexp.exe导出Com类型库。

　　 tlbexp SisCalLib.dll /out:SisCalLib.tlb　　
　　(3注册装配件

　　　　 RegAsm MyService.dll　　

　　 (4)将装配件加入GAC

　　　　 gacutil -i MyService.dll

　　　　 注意：该步骤不是必须的。　　

　　 (5)在AssembyInfo.cs修改COM对外可见性配置　　

　　 // 将 ComVisible 设置为 false 使此程序集中的类型

　　 // 对 COM 组件不可见。如果需要从 COM 访问此程序集中的类型，

　　 // 则将该类型上的 ComVisible 属性设置为 true。

　　 [assembly: ComVisible(true)]　　

　　 // 如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID

　　 [assembly: Guid("e011ed16-93a3-41aa-8375-399fa259b935")]　　

　　 经过上面的工作，就将一个.NET装配件转化为COM组件。　　

　　 4.在VB中调用生成的COM组件(dll)　　

　　 1)工程->引用　　

　　 2)创建对象调用 .NET 和 COM 之间的相互访问



群贤毕至

访客