【轉自元寶兄】關於delphi Com+調用C# DLL的一點說明

  最近公司進行產品改造，由於存在部分代碼是用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放在程式目錄中。