转载至:http://bbs.itjsj.com/thread-334070-1-1.html
近来,因工作需要,必须解决Delphi7写的主程序调用C#写的dll的问题。在网上一番搜索,又经过种种试验,最终证明有以下两种方法可行: 编写C#dll的方法都一样,首先在vs2005中创建一个“类库”项目TestDll, using System.Runtime.InteropServices; namespace TestDll { public interface ITestClass { void YourProcedure(stirng param1); } [ClassInterface(ClassInterfaceType.None)] public classTestClass:ITestClass { public void YourProcedure(stirng param1); { //自己的代码 } } } 完成之后,设置项目的属性“Make assembly COM-Visible”为选中状态。编译之后得到 TestClass.dll,把此dll放到Delphi主程序目录下。打开vs2005自带的工具“Visual Studio 2005命令提示”,输入 Regasm 路径\TestClass.dll 向系统注册此dll。
Delphi程序调用此Dll方式有两种: 一、打开vs2005自带的工具“Visual Studio 2005命令提示”,输入 TlbExp 路径\TestClass.dll 得到一个TestClass.tlb 文件。打开Delphi,选择“Project”--“import type library”找到刚才的TestClass.tlb,点击 CreateUnit,向delphi中引入一个com接口。 delphi 调用代码如下: var aClass:TestClass; begin aClass := CoTestClass.Create; aClass.YourProcedure('参数'); end; 二、不需生成tlb文件,仿照调用Excel的方式。代码如下: var aClass: Variant; begin aClass:= CreateOleObject('TestDll.TestClass'); aClass.YourProcedure('参数'); end;
以上两种方法都可以调用成功,其中调用regasm.exe向系统注册dll是必需的。第一种方法需要生成tlb文件,并引入delphi中,操作繁琐,但可以看到接口的定义。第二种方法操作简单,但看不到接口的定义。
转载至:http://bbs.itjsj.com/thread-334070-1-1.html
近来,因工作需要,必须解决Delphi7写的主程序调用C#写的dll的问题。在网上一番搜索,又经过种种试验,最终证明有以下两种方法可行: 编写C#dll的方法都一样,首先在vs2005中创建一个“类库”项目TestDll, using System.Runtime.InteropServices; namespace TestDll { public interface ITestClass { void YourProcedure(stirng param1); } [ClassInterface(ClassInterfaceType.None)] public classTestClass:ITestClass { public void YourProcedure(stirng param1); { //自己的代码 } } } 完成之后,设置项目的属性“Make assembly COM-Visible”为选中状态。编译之后得到 TestClass.dll,把此dll放到Delphi主程序目录下。打开vs2005自带的工具“Visual Studio 2005命令提示”,输入 Regasm 路径\TestClass.dll 向系统注册此dll。
Delphi程序调用此Dll方式有两种: 一、打开vs2005自带的工具“Visual Studio 2005命令提示”,输入 TlbExp 路径\TestClass.dll 得到一个TestClass.tlb 文件。打开Delphi,选择“Project”--“import type library”找到刚才的TestClass.tlb,点击 CreateUnit,向delphi中引入一个com接口。 delphi 调用代码如下: var aClass:TestClass; begin aClass := CoTestClass.Create; aClass.YourProcedure('参数'); end; 二、不需生成tlb文件,仿照调用Excel的方式。代码如下: var aClass: Variant; begin aClass:= CreateOleObject('TestDll.TestClass'); aClass.YourProcedure('参数'); end;
以上两种方法都可以调用成功,其中调用regasm.exe向系统注册dll是必需的。第一种方法需要生成tlb文件,并引入delphi中,操作繁琐,但可以看到接口的定义。第二种方法操作简单,但看不到接口的定义。
|
请发表评论