如何将 unsigned short* 从 Visual-C++ DLL 传递到 VB.NET

Question

我的 VB.NET 2017 windows 窗体应用程序需要与 Visual-C++ DLL（也是 VS2017）函数 Read_Parameters() 接口，该函数接受两个参数：board# 和指向 256 个元素的参数数组的指针，其中每个参数都是无符号的短的。 如何将匹配的 VB.NET 指针声明为无符号短表？

视觉-C++ 声明：

int Read_Parameters(unsigned char board, unsigned short *params)
{
   ...
   return something;
}

相应的 VB.NET 声明

<DllImport("MuseDll.dll")>
Public Shared Function test_Read_Parameters(ByVal board As Byte, ByVal params As UShort()) As Int32
End Function

VB.NET 代码....

Private Sub Button_test_main_board_Click(sender As Object, e As EventArgs) Handles Button_test_main_board.Click
    Dim return_status As Int32
    Dim board_index As Byte
    Dim parameter_table(256) As UShort

parameter_table(0) = 2
board_index = 1
return_status = main_board_interface.NativeMethods.test_Read_Parameters( board_index, parameter_table)
If return_status = 513 Then
    TextBox_main_board_comm.Text &= "test_return_int return OK =" & return_status & vbCrLf
Else
    TextBox_main_board_comm.Text &= "test_return_int return FAULT!! = " & return_status & vbCrLf
    Return
End If

return_status 应该是 513，但每次都是不同的大 #

Answer 1

根据 C++ 代码使用参数的用途，有几种不同的场景...

第一个参数不一定是Char。 unsigned char 也可以映射到 Byte（同样，这完全取决于 C++ 代码对参数的作用）。

第二个参数可以是：

• 对UShort 的引用，在这种情况下应使用ByRef params As UShort，或者：

• UShorts 的数组，在这种情况下，它映射到 ByVal params As UShort()。 -- 看到参数名为params ("parameters") 我觉得这个选项最有可能。

所有四种情况：

<DllImport("MuseDll.dll")>
Public Shared Function Read_Parameters(ByVal board As Char, ByRef params As UShort) As Integer
End Function

<DllImport("MuseDll.dll")>
Public Shared Function Read_Parameters(ByVal board As Byte, ByRef params As UShort) As Integer
End Function

<DllImport("MuseDll.dll")>
Public Shared Function Read_Parameters(ByVal board As Char, ByVal params As UShort()) As Integer
End Function

<DllImport("MuseDll.dll")>
Public Shared Function Read_Parameters(ByVal board As Byte, ByVal params As UShort()) As Integer
End Function