关于delphi Com+调用C# DLL的一点说明
时间：2010-10-15 来源：sunjun0427
1
using System;
2using System.Collections.Generic;
3using System.Text;
4namespace beep_Class
5
{
6
public interface IGO
7
{
8 string GO();
9
}
10
}
using System;2
using System.Collections.Generic;3
using System.Text;4
namespace beep_Class5
{6
public interface IGO7
{8
string GO();9
}10
}
实现该接口
1using System.Runtime.InteropServices;
2namespace beep_Class
3{
4 [ClassInterface(ClassInterfaceType.None)]
5 public class Class1:IGO
6 {
7
8 public string GO()
9 {
10 return "aaaaabbbb";
11 }
12 }
13}
using System.Runtime.InteropServices;2
namespace beep_Class3
{ 4
[ClassInterface(ClassInterfaceType.None)]5
public class Class1:IGO6
{7
8
public string GO()9
{10
return "aaaaabbbb";11
}12
} 13
}
然后在生成类库之前设置一下该项目的属性，如下图所示：
注意红线标示的部分。
然后对此编译成功的DLL【beep_Class.dll】进行处理，打开vs2005自带的命令行工具。输入 tlbexp beep_Class.dll
生成 beep_Class.tlb文件。
下一步是打开delphi7，新建一个Application，在Form上增加一Button。然后选择Project下的，import type library，把刚才生成的Tlb文件【beep_Class.tlb】添加进来，然后点击 CreateUnit就ok了
delphi中的Button事件代码如下：
1procedure TForm1.Button1Click(Sender: TObject);
2var
3 co:Class1;
4 a:string;
5begin
6 co:= CoClass1.Create;
7 a:=co.GO();
8 showmessage(a);
9end;
10end.
procedure TForm1.Button1Click(Sender: TObject);2
var3
co:Class1;4
a:string;5
begin6
co:= CoClass1.Create;7
a:=co.GO();8
showmessage(a);9
end;10
end.
编译通过，运行结果如下图：
注意：运行的时候要把Beep_Class.dll放在程序目录中。
相关阅读 更多 +
