======================================================
注:本文源代码点此下载
======================================================
转载至: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^)/