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放在程式目錄中。