Delphi7程序调用C#写的DLL解决办法

======================================================
注：本文源代码点此下载
======================================================

转载至: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中,操作繁琐,但可以看到接口的定义。第二种方法操作简单,但看不到接口的定义。

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/