由于工作原因涉及到这一块的开发，由于之前并未接触过，所以本篇文章也是在参考了各种资料后，自己实现并通过通过测试之后所整理的备忘录以及一些个人观点。
希望对刚接触这类型开发的朋友有所帮助，若有不足之处还望不吝赐教。
废话不多说，下面就是教学式内容了，第一次写，没有文采勿见怪。
开发环境： .Net Framework 4.0
开发工具： Microsoft Visual Studio 2010
测试环境： Windows XP、.Net Framework 4.0
测试工具： Delphi7、PowerBuilder8.0
注意：
1、每个COM组件所有对外公布的方法都必须通过接口形式实现；
2、由于.Net下编译的COM组件并等同于C编译的COM组件，所以存在必须在运行目标机器注册的情况，对此.Net下编译的COM组件必须为程序进行签名，即强命名密钥；
步骤：
1、 新建一个类库项目（文件—新建—项目—类库【命名：HK.NetPBDemo】）
2、 针对“注意第一点要求”，新建一个接口文件（项目右键—添加—新建项—接口【命名：IHK.cs】）
3、 IHK.cs接口文件编码：
int TestFunction(int num, string str1, string str2, double db);
4、 将Class1.cs 改名为：HKTest.cs （这步其实很啰嗦，不过文档都整理了，就这样写吧）
提示框点击“是”，如下图
5、 HKTest.cs 类文件编码：
添加名称空间：using System.Runtime.InteropServices;
实现接口、并在类头添加属性：[ClassInterface(ClassInterfaceType.None)]。如下图
6、 在“解决方案资源管理器”中找到节点“Properties”打开AssemblyInfo.cs文件
如下图
7、 将[assembly: ComVisible(false)]属性改成[assembly: ComVisible(true)]
如下图
8、 项目右键—属性、或者双击“Properties”节点，进入到项目属性设置界面
8.1、选择“应用程序”选项卡，点击“程序集信息”按钮，如下图
8.2、勾选“使程序集COM可见”，确定。如下图
8.3、选择“生成”选项卡，在底部“输出”栏目下，勾选“为COM互操作注册”。如下图
8.4、选择“签名”选项卡。
8.4.1、勾选“为程序集签名”；
8.4.2、在“选择强名称密钥文件”的下拉框选择“<新建…>”
8.4.3、在“密钥文件名称”输入：HK.NetPBDemo.snk（任意命名，snk后缀即可）
8.4.4、去掉“使用密码保护密钥文件”，确定。
【8.4.3、8.4.4】如下图
9、 编译项目。
10、 打开vs指令窗，如下图
11、 运行指令：
gacutil /i DLL路径\HK.NetPBDemo.dll 将这个DLL加入的全局缓存里
regasm DLL路径\HK.NetPBDemo.dll 注册这个dll
如下图
附：以上11个步骤即可完成COM组件在本机的环境下注册并提供调用。
1、 若要在其他机器使用必须把编译的“DLL”、“TLB”文件一并复制在目标机器（已安装.Net Framework环境）并放在需调用的程序根目录；
2、 在目标机器“c:\WINDOWS\Microsoft.Net\Framework\v4.0.3.319”下找到“RegAsm.exe”,该路径是我的安装路径，如果没有就搜索下“RegAsm.exe”这个东东吧。【我的环境：虚拟机、系统WindowsXP、.Net Framework 4.0】
3、 运行CMD打开指令窗，讲路径定位到“c:\WINDOWS\Microsoft.Net\Framework\v4.0.3.319”，
运行指令：regasm.exe DLL路径\ HK.NetPBDemo.dll。 如下图【注册成功】
二、DELPHI调用
1、 打开Delphi7，File—Close All
2、 Project—Import Type Library，点击“Add”按钮选中刚才编译后的“tlb”COM文件【HK.NetPBDemo.tlb】点击“Create Unit”如下图
3、 Project—Import Type Library，在列表中选中刚才添加的组件，点击“Install..”按钮。
如下图
4、 File—New—Application，添加一个button按钮，然后在“ActiveX”选项卡选择刚才添加的组件，添加至项目。如下图
5、 Delphi 关键代码
Button1、HKTest1 均为自动生成对象，只要在Button的OnClick事件即可实现COM方法
procedure TForm1.Button1Click(Sender: TObject); var rst:Integer; int:Integer; str1:string; str2:string; db:Double; begin int:=8; str1:='这是恒康提供COM组件调用例子'; str2:='该例子用的是Delphi调用'; db:=2.8; rst:=HKTest1.TestFunction(int,str1,str2,db); showmessage(inttostr(rst)); end;
引用别人的例子：Demo下载
