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

轉載于:https://www.cnblogs.com/ahjxxy/archive/2009/09/25/1573868.html

總結

以上是生活随笔為你收集整理的【转自元宝兄】关于delphi Com+调用C# DLL的一点说明的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。