Void 範例
這個範例示範如何將資料當做引數，傳遞至需要 void 指標的 Unmanaged 函式。 範例提供兩個解決方案。
Void 範例使用下列 Unmanaged 函式，顯示其原始函式宣告：
從 PinvokeLib.dll 匯出 SetData。
void SetData(DataType typ, void* object)
PInvokeLib.dll 是自訂的 Unmanaged 程式庫，包含先前列示之函式的實作。
在這個範例中，LibWrap 類別包含型別的列舉和兩個 Managed 原型方法：SetData 和 SetData2。 這些方法表示以下將資料傳遞至預期 void* 的 Unmanaged 函式的方法：
SetData 宣告 DataType 列舉和物件。 MarshalAsAttribute 屬性會將 UnmanagedType 列舉設為 AsAny，決定物件在執行階段時的型別，並將物件封送處理為該型別。
SetData2 會多載方法來宣告 DataType 列舉並識別雙精度浮點數或字串型別。 ref (在 Visual Basic 中為 ByRef) 關鍵字以傳址 (By Reference) 方式傳遞雙精度浮點數 (Double)。
App 類別呼叫方法並初始化列舉元素。 第一個方法指定每一個列舉元素；第二個方法只指定最大實值型別和字串。
宣告原型
Public Class LibWrap
Public Enum DataType
DT_I2 = 1
DT_I4
DT_R4
DT_R8
DT_STR
End Enum
' Uses AsAny when void* is expected.
Declare Sub SetData Lib "..\LIB\PInvokeLib.dll" ( _
ByVal t As DataType, _
<MarshalAs(UnmanagedType.AsAny)> ByVal o As Object)
' Uses overloading when void* is expected.
Overloads Declare Sub SetData2 Lib "..\LIB\PInvokeLib.dll" Alias _
"SetData" (ByVal t As DataType, ByRef d As Double)
Overloads Declare Sub SetData2 Lib "..\LIB\PInvokeLib.dll" Alias _
"SetData" (ByVal t As DataType, ByVal s As String)
End Class
public class LibWrap
{
public enum DataType
{
DT_I2 = 1,
DT_I4,
DT_R4,
DT_R8,
DT_STR
}
// Uses AsAny when void* is expected.
[DllImport( "..\\LIB\\PInvokeLib.dll" )]
public static extern void SetData(DataType t,
[MarshalAs(UnmanagedType.AsAny)] object o);
// Uses overloading when void* is expected.
[DllImport("..\\LIB\\PInvokeLib.dll", EntryPoint="SetData")]
public static extern void SetData2(DataType t, ref double i);
[DllImport("..\\LIB\\PInvokeLib.dll", EntryPoint="SetData")]
public static extern void SetData2(DataType t, string s);
}
public ref class LibWrap
{
public:
enum class DataType
{
DT_I2 = 1,
DT_I4,
DT_R4,
DT_R8,
DT_STR
};
// Uses AsAny when void* is expected.
[DllImport("..\\LIB\\PInvokeLib.dll")]
static void SetData(DataType t,
[MarshalAs(UnmanagedType::AsAny)] Object^ o);
// Uses overloading when void* is expected.
[DllImport("..\\LIB\\PInvokeLib.dll", EntryPoint="SetData")]
static void SetData2( DataType t, double% i);
[DllImport("..\\LIB\\PInvokeLib.dll", EntryPoint="SetData")]
static void SetData2( DataType t, String^ s);
};
呼叫函式
Public Class App
Public Shared Sub Main()
Console.WriteLine("Calling SetData using AsAny..." + vbNewLine)
LibWrap.SetData(LibWrap.DataType.DT_I2, CShort(12))
LibWrap.SetData(LibWrap.DataType.DT_I4, CLng(12))
LibWrap.SetData(LibWrap.DataType.DT_R4, CSng(12))
LibWrap.SetData(LibWrap.DataType.DT_R8, CDbl(12))
LibWrap.SetData(LibWrap.DataType.DT_STR, "abcd")
Console.WriteLine(vbNewLine + "Calling SetData using overloading...")
Console.WriteLine(vbNewLine)
Dim d As Double = 12
LibWrap.SetData2(LibWrap.DataType.DT_R8, d)
LibWrap.SetData2(LibWrap.DataType.DT_STR, "abcd")
End Sub
End Class
public class App
{
public static void Main()
{
Console.WriteLine("Calling SetData using AsAny... \n");
LibWrap.SetData(LibWrap.DataType.DT_I2, (short)12);
LibWrap.SetData(LibWrap.DataType.DT_I4, (long)12);
LibWrap.SetData(LibWrap.DataType.DT_R4, (float)12);
LibWrap.SetData(LibWrap.DataType.DT_R8, (double)12);
LibWrap.SetData(LibWrap.DataType.DT_STR, "abcd");
Console.WriteLine("\nCalling SetData using overloading... \n");
double d = 12;
LibWrap.SetData2(LibWrap.DataType.DT_R8, ref d);
LibWrap.SetData2(LibWrap.DataType.DT_STR, "abcd");
}
}
public class App
{
public:
static void Main()
{
Console::WriteLine("Calling SetData using AsAny... \n");
LibWrap::SetData(LibWrap::DataType::DT_I2, (short)12);
LibWrap::SetData(LibWrap::DataType::DT_I4, (long)12);
LibWrap::SetData(LibWrap::DataType::DT_R4, (float)12);
LibWrap::SetData(LibWrap::DataType::DT_R8, (double)12);
LibWrap::SetData(LibWrap::DataType::DT_STR, "abcd");
Console::WriteLine("\nCalling SetData using overloading... \n");
double d = 12;
LibWrap::SetData2(LibWrap::DataType::DT_R8, d);
LibWrap::SetData2(LibWrap::DataType::DT_STR, "abcd");
}
};