如何在 vb.net 中声明函数以调用 c++ dll

Question

我需要从 VB.NET 项目调用位于 C++ dll 中的函数。

C++ dll文档中的定义是：

HRESULT GetStatus(LPBYTE lpSize, LPBYTE lpStatus, HWND hWnd = 0)

lpSize数据：lpStatus的大小
lpStatus：指定一个区域的指针来存储设备状态。
存储状态和以下数据。
存储数据需要 255 字节空间

我这样声明函数

<DllImport("cplusplusdll.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.StdCall, EntryPoint:="GetStatus")>
Public Function GetStatus(ByVal lpSize As String, ByRef lpStatus As String, ByVal hwnd As Long) As Integer
End Function

我这样称呼它：

Dim status As String
result = GetStatus("255", status, 0)

但是当我打电话时，我收到关于 pinvoikeStackImbalance 的错误，pinvoke 签名不匹配...似乎定义不正确...

我尝试了很多组合，但都没有成功。任何帮助将不胜感激。
提前致谢。

Answer 1

LPBYTE 通常会被声明为ByVal lpSize As Byte() 所以：

Public Function GetStatus(ByVal lpSize As Byte(), ByRef lpStatus As Byte(), ByVal hwnd As Long) As Integer

检查C++函数实际上是StdCall，可能是CDecl。

---

编辑 查看您提供的少量信息，我非常怀疑lpSize 是否被声明为LPBYTE，因为它代表lpStatus 中给出的数组的长度。另外，hWnd 应该是 IntPtr

在这里，您似乎正试图在lpStatus 提供的空间中接收一个字符串。我们可以使用Marshal.AllocHGlobal 做到这一点，但是使用StringBuilder 的更简单的方法是可用的。请不为此使用String：

<DllImport("cplusplusdll.dll", CharSet:=CharSet.Ansi, _
CallingConvention:=CallingConvention.StdCall, EntryPoint:="GetStatus")>
    Public Function GetStatus(ByVal lpSize As Integer, <Out> ByVal lpStatus As StringBuilder, ByVal hwnd As IntPtr) As Integer
    End Function

Dim status As New StringBuilder(255)
result = GetStatus(status.Length, status, 0)
```

We can also get the `HRESULT` marshaled directly to an exception, if you would like:
````vb
<DllImport("cplusplusdll.dll", CharSet:=CharSet.Ansi, _
CallingConvention:=CallingConvention.StdCall, EntryPoint:="GetStatus", _
PreserveSig = False)>
    Public Sub GetStatus(ByVal lpSize As Integer, <Out> ByVal lpStatus As StringBuilder, ByVal hwnd As IntPtr)
    End Sub