Delphi调用C#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文件，代码分别为：
 声明一个接口
 1using System;
 2using System.Collections.Generic;
 3using System.Text;
 4namespace beep_Class
 5{
 6    public interface IGO
 7    {
 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}然后在生成类库之前设置一下该项目的属性，如下图所示：

注意红线标示的部分。
然后对此编译成功的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事件代码如下：
 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.编译通过，运行结果如下图：

注意：运行的时候要把Beep_Class.dll放在程序目录中。