最新消息

[公告2014/05/30] 如有需要將部落格中,任何一篇文章的程式碼使用在商業用途,請與我聯繫。

[公告2015/04/26] Line版的 iInfo程式與投資應用 群組已上線想加入的朋友們,請先查看 "入群須知" 再與我聯繫 Line : aminwhite5168,加入請告知身分與回答 "入群須知" 的問題。

[公告2018/04/22] 台北 Python + Excel VBA 金融資訊爬蟲課程,課程如網頁內容 金融資訊爬蟲班:台北班 Python 金融資訊爬蟲、EXCEL VBA 金融資訊爬蟲

[公告2019/01/08] 請注意:我再次重申,部落格文章的程式碼,是要提供各位參考與學習,一旦網頁改版請自行修改,別要求東要求西要我主動修改,你們用我寫東西賺錢了、交差了,請問有分我一杯羹嗎?既然賺錢沒分我,請問有什麼理由要求我修改,如果沒能力改,就花錢來找我上課。

[公告2019/12/01] 若各位有 Excel VBA 案子開發需求,歡迎與我聯繫,可接案處理。

[公告2020/05/22] 頁面載入速度慢,起因為部分JS來源(alexgorbatchev.com)失效導致頁面載入變慢,目前已做調整,請多見諒。

2017年2月13日 星期一

.NET C# 建立 COM元件 (5) --- UnManaged Exports dll

如果要將C#函數輸出成可讓C++使用Loadlibrary方式呼叫的DLL,稱為Unmanaged Export dll,反之稱為Managed dll,至於什麼是Managed/Unmanaged呢?
感謝iInfo群Neil (承諺)大大的協助,才能順利完成。
泛指基於.NET framework 平台所開發的程式,且能被 CLR (Common Languages Runtime) 的管理,稱為Managed。
有一些資源是由系統的 API 或其他的 API 控制的,例如 Windows Handle,這類的資源是由 Native Code 程式碼( 比方 C++ Win32 或 MFC 形式的專案,VB6 的專案) 分配的,就稱為 Unmanaged,因為 CLR 無法管理這類資源。
筆者需要能透過C#取得資訊,又需要能讓Excel VBA或VC++直接呼叫,因此將 C# 函數以 Unmanaged 方式輸出。
.NET C# 建立 COM元件 (4) --- VC++呼叫COM元件函數 文章,所提的C#範例程式修改來作範例。
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Runtime.InteropServices;
using RGiesecke.DllExport;

namespace TestVBA
{
    class VBAFunc 
    {
        [DllExport]
        //[DllExport("Multiply", CallingConvention = CallingConvention.StdCall)]
        [return: MarshalAs(UnmanagedType.AnsiBStr)]
        static String Multiply(int a, int b)
        {
            return (a * b).ToString();
        }
    }
}
Excel VBA程式碼:
Declare Function Multiply Lib "C:\Code\TestVBA\TestVBA\bin\x86\Release\TestVBA.dll" (ByVal a As Integer, ByVal b As Integer) As String
Sub test()
 MsgBox Multiply(2, 3)
End Sub
或是以下寫法:
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Runtime.InteropServices;
using RGiesecke.DllExport;

namespace TestVBA
{
    class VBAFunc 
    {
        [DllExport]
        //[DllExport("Multiply", CallingConvention = CallingConvention.StdCall)]
        //[return: MarshalAs(UnmanagedType.AnsiBStr)]
        static int Multiply(int a, int b)
        {
            return a * b;
        }
    }
}
Excel VBA程式碼:
Declare Function Multiply Lib "C:\Code\TestVBA\TestVBA\bin\x86\Release\TestVBA.dll" (ByVal a As Integer, ByVal b As Integer) As Integer
Sub test()
 MsgBox Multiply(2, 3)
End Sub 
上述C#程式需安裝UnmanagedExports套件,請讀者使用 NuGet (VS2010) 安裝 (VS2012以上版本已含內建程式,無須安裝NuGet)。
Install-Package UnmanagedExports
執行結果:

參考資料: