如果delphi要调用c# dll,赶紧看看这个

 明生KISS ps:之所以有要保留这方章的起因是,在写一个项目,而项目当中是get一个https站点,发现原来这个站点真让人郁闷。检查来检查去发现原来是delphi自身的ssl问题.弄来弄去,最后得先用其他的语言去实现某个功能。然后再让delphi去调用此功能就行了。经过一翻的周折。才有了以下的内容。。

 

编写C#dll的方法都一样,首先在vs2005中创建一个“类库”项目TestDll,

 C#代码

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”–“imp
ort type library”找到刚才的TestClass.tlb,点击 CreateUnit,向delphi中引入一个com接口。
delphi 调用代码如下

var aClass: TestClass;   begin    aClass : =  CoTestClass.Create;    aClass. YourProcedure ('参数');   end; 

[CODE=delphi] var aClass: TestClass; begin aClass : = CoTestClass.Create; aClass. YourProcedure (‘参数’); end; [/CODE]

二、不需生成tlb文件,仿照调用Excel的方式。代码如下:

var aClass: Variant;begin  aClass:= CreateOleObject('TestDll.TestClass');  aClass.YourProcedure ('参数');end;

以上两种方法都可以调用成功,其中调用regasm.exe向系统注册dll是必需的。第一种方法需要生成tlb文件,并引入delphi中,操作繁琐,但可以看到接口的定义。第二种方法操作简单,但看不到接口的定义。 
============================================================== 
本人用第二种方法已正常实现功能,但DLL中一些自动创建的方法无法在外部直接调用,需要DLL准备特定的接口函数

 

 

ps:  以下是某个论坛上面的内容。。转过来。

最近公司进行产品改造,由于存在部分代码是用delphi写的Com+需要调用C#写的Dll方法,经过网上一些搜索和摸索,调用已经OK。但是至于两者之间的事务问题还需要用到的朋友深入研究。
    现在来说一下调用过程:【本地调试通过,环境是XP,delphi7.0,vs2005】
    首先在vs2005中创建一Class Library项目,添加2个cs文件,代码分别为:
 声明一个接口
 1Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下using System;
 2Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下using System.Collections.Generic;
 3Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下using System.Text;
 4Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下namespace beep_Class
 5{
 6    public interface IGO
 7    {
 8        string GO();
 9    }
10Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下}实现该接口
 1Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下using System.Runtime.InteropServices;
 2Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下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    }    
13Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下}然后在生成类库之前设置一下该项目的属性,如下图所示:

Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下
注意红线标示的部分。
然后对此编译成功的DLL【beep_Class.dll】进行处理,打开vs2005自带的命令行工具。输入 tlbexp beep_Class.dll
生成 beep_Class.tlb文件。
Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下元宝注解:
Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下这一步有个更好的方法,即在VS2005中DLL的“项目属性”下“生成事件”添加“生成后事件命令行”:
Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下"C:\Program Files\Microsoft Visual Studio 8\SDK\v2.0\Bin\tlbexp" "$(TargetPath)"
下一步是打开delphi7,新建一个Application,在Form上增加一Button。然后选择Project下的,imp
ort type library,把刚才生成的Tlb文件【beep_Class.tlb】添加进来,然后点击 CreateUnit就ok了
delphi中的Button事件代码如下:
 1Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下procedure TForm1.Button1Click(Sender: TObject);
 2Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下var
 3Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下  co:Class1;
 4Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下  a:string;
 5Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下begin
 6Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下  co:= CoClass1.Create;
 7Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下  a:=co.GO();
 8Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下  showmessage(a);
 9Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下end;
10Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下end.编译通过,运行结果如下图:

Delphi调用Cdll的问题 - 炎火 - 千里之行始于足下
注意:运行的时候要把Beep_Class.dll放在程序目录中。

此项目被张贴在未分类 。书签的 permalink

发表评论

电子邮件地址不会被公开。 必填项已用*标注