所谓在 C# 中创建 COM 对象，实际上就是向 COM 公开用 C# 编写的组件对象接口。这个 C# 类及其成员必须遵循下列规则才能对 COM 可见： 1> 类必须是公共的。
2> 属性、方法和事件必须是公共的。
3> 属性和方法必须在类接口上声明。
4> 事件必须在事件接口中声明。 其他没有在这些接口中声明的类的公共成员对于 COM 是不可见的，但它们对于其他 .NET Framework 对象将是可见的。 若要向 COM 公开属性和方法，必须在类接口上声明这些属性和方法，并用 DispId 属性予以标记，然后在类中实现它们。成员在接口中声明的顺序即是用于 COM vtable 的顺序。 若要从类中公开事件，必须在事件接口上声明这些事件，并用 DispId 属性予以标记。该类不应实现此接口。（这里所指的事件实际上应该是事件处理函数，如果声明成字段，即一个变量，则这个事件不被 COM 所见） 类实现类接口（它可以实现一个以上的接口，但第一个实现将作为默认类接口）。在此处实现向 COM 公开的方法和属性。它们必须标记为是公共的，并且必须与类接口中的声明匹配。同时，在此处声明由类引发的事件。它们必须标记为是公共的，并且必须与事件接口中的声明匹配。 以下是一个把一个 C# 类公布到 COM 的例子： // 首先要添加以下引用，它提供了如 DispId 、Guid 等属性的支持
using System.Runtime.InteropServices; // 接口的声明，每个接口都需要使用 Guid 属性进进标识
[Guid("694C1820-04B6-4988-928F-FD858B95C880")] // GUID 属性
public interface IMyComInterface
{
[DispId(1)] // 接口中的每个方法和属性都需要用 DispId 属性标识
void Hello(string name, int nParam);
[DispId(2)]
bool Hello2(string name);
[DispId(3)]
string Name {get;set;}
} // 为了便于在 COM 客端 (VB 6.0 程序) 中使用这个自定义的事件参数类型
// 在这里为它声明了一个接口, 这个接口声明了若干属性以访问事件参
// 数类型中的成员
[Guid("E65B4846-BBEC-484f-85DC-088B407DB9DC")]
public interface IMyEventArgs
{ int nParam
{
get;
set;
} string strName
{
get;
set;
}
} // 自定义的事件参数型，必须从 EventArgs 从派生，这里还继承了
// 一个接口，目的是便于在 COM 客户端中提前绑定事件参数类型对象
[Guid("9815F614-83DF-4b4f-8302-ABA23365DB84")]
[ClassInterface(ClassInterfaceType.None)]
public class MyEventArgs : EventArgs, IMyEventArgs
{
// 通常会定义一个带参数的构造函数，用以作为事件参数传递之用
// 当然这个派生类中实现更多的成员也是可以的
public MyEventArgs(string strParam, int nParam)
{
this.m_strParam = strParam;
this.m_nParam = nParam;
}
public string m_strParam;
public int m_nParam; public int nParam
{
get
{
return m_nParam;
}
set
{
m_nParam = value;
}
} public string strName
{
get
{
return m_strParam;
}
set
{
m_strParam = value;
}
}
}
// 声明一个代理事件类型，这是一个带参数的事件类型
public delegate void MyEventHandler(object sender, EventArgs e);
// 声明事件接口，事件接口除了要使用 Guid 来标识外，还需要指定为 IDispatch 类型
[Guid("47C976E0-C208-4740-AC42-41212D3C34F0"),
InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
public interface IMyEventsInterface
{
[DispId(1)]
event MyEventHandler myEvent; // 在接口中声明一个事件(字段)
// 注意，以这种方式声明的事件不能被 COM 客户端（这里是一个 VB 6.0 程序）
// 正确地处理， 实现了这个事件的组件不能被创建，可行的声明方法如下：
[DispID(2)]
void myEvent2(object sender, EventArgs e);
// 也就是说声明一个方法，这个方法实际上就相应的是事件的处理函数
} 注意：由于事件接口是由订阅该事件的客户来实现，所以不应在声明组件类时将事件接口作为基类继承。 // 声明组件类，并在这里实现所有接口
[Guid("9E5E5FB2-219D-4ee7-AB27-E4DBED8E123E"),
ClassInterface(ClassInterfaceType.None), // 禁止生成类接口，而使用显式声明的接口
ComSourceInterfaces(typeof(IMyEventsInterface))] // 将事件接口与组件类联系起来
public class MyCoClass : IMyComInterface // 继承接口，以实现这个接口
{
// 事件字段的声明应与事件接口中相应的事件声明保持一致，并加上 public
public event MyEvent myEvent;
private string m_strName; // 这里实现所有在接口中声明的方法、属性以及激发事件
public void Hello(string name, int nParam)
{
MyEventArgs e = new MyEventArgs(name, nParam);
FireMyEvent(e);
}
public bool Hello2(string name)
{
MyEventArgs e = new MyEventArgs(name, 0);
FireMyEvent(e);
} // 通常会单独定义一个成员函数来激发事件
FireMyEvent(MyEventArgs e)
{
if (MyEvent != null) //首先检查一下当前是否有客户端订阅这个消息
{
MyEvent(this , EventArgs.Empty);
}
}
public string Name
{
get
{
return m_strName;
}
set
{
// 当这个属性改变时，激发一个事件
MyEventArgs e = new MyEventArgs(value, 0);
FireMyEvent(e);
m_strName = value;
}
}
} 注意：在创建 COM 对象前，首先应将这个对象注册到 COM Interop，并生成相应的
组件类型库(*.tlb)：
打开项目的属性设置对话框-->配置属性-->生成-->为 COM Interop 注册 --> true
当然可以使用 RegAsm.exe 工具完成同样的注册过程。 此外，为了公开这个 COM 对象，组件库必须有一个强名称（strong name），强名称的
创建方法如下：
使用工具 SN.EXE 就可以很容易地生成一个强名称，例如
sn.exe -k Database_COM_Key.snk
然后打开项目中的 AssemblyInfo.cs 文件，并在里面指定密钥文件即可。 ////////////////////////////////////////////////////////////////////////////////下面介绍一下如何在 VB 6.0 程序中使用采用上述方法上创建的 COM 对象了。 1> 首先，在工程中增加对相应的组件库(*.tlb文件) 和 Common Language Runtime
Library (mscorlib.dll)的引用；
2> 然后，如果要响应组件对象所实现的事件，则需要在代码声明带事件组件对象变量，
例如：
在代码文件的开头加入以下声明语句：
Option Explicit
Dim WithEvents MyComObject as MyCoClass // 声明一个事件源对象
注意， VB 6.0 中不允许在 WithEvents 类型变量的同时使用 New 操作符来创建对象，
所以要在程序的其它地方，在使用这个对象之前创建它。有两种创建对象的方法：
Set MyComObject = new MyComLib.MyCoClass ' 常用于支持前期绑定的组件对象
或 Set MyComObject = CreateObject("MyComLib.MyCoClass") 3> 如果在工程中引用了组件库(*.tlb)，借助前期绑定技术 VB 6.0 的 IDE 可以轻易为事
件源对象创建相应的事件处理函数。如果事件的参数是从 EventArgs 派生出来的自定义
类型，则由 IDE 创建的事件处理函数的参数始终是 mscorlib.EventArgs 类型，所以在
使用前需要做一些转换工作，例如： Dim myEventArgs As MyComLib.MyEventArgs
Set myEventArgs = e 'e 是事件响应函数的入口参数，类型为 mscorlib.EventArgs 注意：虽然经过上述转换以后，可以正确地访问自定义参数类型对象的成员，但是要想
这个自定义的参数类型支持前期绑定，则必须也将这个自定义类公布到 COM 。 事实上如果只是想组件类中的一些成员公开到 COM 并不需要如此繁琐。只需通过使用
interface 声明一个接口，然后在组件类中实现它即可。但是如果想将组件类中所支持
的事件公开到 COM 则必须要使用 Guid 来对事件接口件标识。
在 VC++ 6.0 中实现事件源对象的事件想对要复杂一点，详情可能参阅：
在 VC++ 6.0 中使用 ATL 实现对 COM 对像的事件处理
|
本类阅读TOP10