Delphi调用C#dll的问题
2011-08-26 11:50
495 查看
转载:
近来,因工作需要,必须解决Delphi7写的主程序调用C#写的dll的问题。在网上一番搜索,又经过种种试验,最终证明有以下两种方法可行:
编写C#dll的方法都一样,首先在vs2005中创建一个“类库”项目TestDll,
using System.Runtime.InteropServices;
namespace TestDll
{
public interface I TestClass
{
void YourProcedure(stirng param1);
}
[ClassInterface(ClassInterfaceType.None)]
public class TestClass:I TestClass
{
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中,操作繁琐,但可以看到接口的定义。第二种方法操作简单,但看不到接口的定义。
==============================================================
本人用第二种方法已正常实现功能,但DLL中一些自动创建的方法无法在外部直接调用,需要DLL准备特定的接口函数
本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/genispan/archive/2009/06/24/4294487.aspx
最近公司进行产品改造,由于存在部分代码是用delphi写的Com+需要调用C#写的Dll方法,经过网上一些搜索和摸索,调用已经OK。但是至于两者之间的事务问题还需要用到的朋友深入研究。
现在来说一下调用过程:【本地调试通过,环境是XP,delphi7.0,vs2005】
首先在vs2005中创建一Class Library项目,添加2个cs文件,代码分别为:
声明一个接口
1
using System;
2
using System.Collections.Generic;
3
using System.Text;
4
namespace beep_Class
5{
6 public interface IGO
7 {
8 string GO();
9 }
10
}实现该接口
1
using System.Runtime.InteropServices;
2
namespace 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
}然后在生成类库之前设置一下该项目的属性,如下图所示:
注意红线标示的部分。
然后对此编译成功的DLL【beep_Class.dll】进行处理,打开vs2005自带的命令行工具。输入 tlbexp beep_Class.dll
生成 beep_Class.tlb文件。
元宝注解:
这一步有个更好的方法,即在VS2005中DLL的“项目属性”下“生成事件”添加“生成后事件命令行”:
"C:\Program Files\Microsoft Visual Studio 8\SDK\v2.0\Bin\tlbexp" "$(TargetPath)"
下一步是打开delphi7,新建一个Application,在Form上增加一Button。然后选择Project下的,import type library,把刚才生成的Tlb文件【beep_Class.tlb】添加进来,然后点击 CreateUnit就ok了
delphi中的Button事件代码如下:
1
procedure TForm1.Button1Click(Sender: TObject);
2
var
3
co:Class1;
4
a:string;
5
begin
6
co:= CoClass1.Create;
7
a:=co.GO();
8
showmessage(a);
9
end;
10
end.编译通过,运行结果如下图:
注意:运行的时候要把Beep_Class.dll放在程序目录中。
近来,因工作需要,必须解决Delphi7写的主程序调用C#写的dll的问题。在网上一番搜索,又经过种种试验,最终证明有以下两种方法可行:
编写C#dll的方法都一样,首先在vs2005中创建一个“类库”项目TestDll,
using System.Runtime.InteropServices;
namespace TestDll
{
public interface I TestClass
{
void YourProcedure(stirng param1);
}
[ClassInterface(ClassInterfaceType.None)]
public class TestClass:I TestClass
{
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中,操作繁琐,但可以看到接口的定义。第二种方法操作简单,但看不到接口的定义。
==============================================================
本人用第二种方法已正常实现功能,但DLL中一些自动创建的方法无法在外部直接调用,需要DLL准备特定的接口函数
本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/genispan/archive/2009/06/24/4294487.aspx
最近公司进行产品改造,由于存在部分代码是用delphi写的Com+需要调用C#写的Dll方法,经过网上一些搜索和摸索,调用已经OK。但是至于两者之间的事务问题还需要用到的朋友深入研究。
现在来说一下调用过程:【本地调试通过,环境是XP,delphi7.0,vs2005】
首先在vs2005中创建一Class Library项目,添加2个cs文件,代码分别为:
声明一个接口
1
using System;
2
using System.Collections.Generic;
3
using System.Text;
4
namespace beep_Class
5{
6 public interface IGO
7 {
8 string GO();
9 }
10
}实现该接口
1
using System.Runtime.InteropServices;
2
namespace 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
}然后在生成类库之前设置一下该项目的属性,如下图所示:
注意红线标示的部分。
然后对此编译成功的DLL【beep_Class.dll】进行处理,打开vs2005自带的命令行工具。输入 tlbexp beep_Class.dll
生成 beep_Class.tlb文件。
元宝注解:
这一步有个更好的方法,即在VS2005中DLL的“项目属性”下“生成事件”添加“生成后事件命令行”:
"C:\Program Files\Microsoft Visual Studio 8\SDK\v2.0\Bin\tlbexp" "$(TargetPath)"
下一步是打开delphi7,新建一个Application,在Form上增加一Button。然后选择Project下的,import type library,把刚才生成的Tlb文件【beep_Class.tlb】添加进来,然后点击 CreateUnit就ok了
delphi中的Button事件代码如下:
1
procedure TForm1.Button1Click(Sender: TObject);
2
var
3
co:Class1;
4
a:string;
5
begin
6
co:= CoClass1.Create;
7
a:=co.GO();
8
showmessage(a);
9
end;
10
end.编译通过,运行结果如下图:
注意:运行的时候要把Beep_Class.dll放在程序目录中。
相关文章推荐
- 关于C#与Delphi DLL调用及回调问题注意事项
- Delphi 调用 C# Dll 时一个编译问题 mscorlib_TLB.h Ambiguity between 'String' and 'System::String'
- Delphi调用C#dll的问题
- C# 调用delphi生成Dll的相关问题
- c#调用delphi写的dll遇到并解决的问题
- C#调用delphi dll接口问题
- C#调用Delphi DLL时,要注意的几个问题。
- Delphi6 调用 C# Dll 时一个编译问题
- C# 如何调用 Delphi 编写的 DLL 方法
- windows服务的托管资源(C#) 静态调用 非托管资源(Delphi-dll) 开机造成无法进入桌面(一)
- delphi调用C#webservice接口的中文编码问题
- 关于c#调用c++dll问题
- 关于C#中调用C++dll传递回调函数的问题
- MATLAB中System.string格式数据获取,MATLAB调用C#中的dll输出数据格式问题
- Delphi程序调用C#.Net编译的DLL并打开窗体(详解)
- c#的调用VC的dll输出参数的问题
- C# 要调用VC++ DLL时参数问题请看这个
- C#调用C++DLL时遇到的PInvoke 函数的调用导致堆栈不对称问题
- C#调用delphi生成的dll获取CPU序列号(二)
- C#调用C++Dll封装时遇到的一系列问题【转】