从 c++ 返回字符串函数到 VB .Net

Question

我试图从 VB.Net 代码调用 C++ 函数，该函数使用 P/Invoke 返回字符串，但它仅返回单个字符。

C 函数声明

  extern "C" __declspec(dllexport) LPSTR Get_GetDescription(HANDLE)

C 函数定义

  LPSTR Get_GetDescription(HANDLE resultBreakDown){
    return LPSTR(((CalcBreakDown*)resultBreakDown)->GetDescription().c_str()); 
}

VB.Net 代码

    <DllImport("FeeEngineDll.dll", CallingConvention:=CallingConvention.Cdecl)> _
    Public Shared Function Get_GetDescription(ByVal resultBreakDown As IntPtr, ByVal indexSubs As Integer, ByVal indexLine As Integer) As <MarshalAsAttribute(LPStr)> String
    End Function

返回类型或编组是否有问题？

Answer 1

extern "C" __declspec(dllexport) LPSTR Get_GetDescription(HANDLE)

返回这样的指针是相当危险的，因为不清楚谁拥有该内存，因此谁应该负责释放它。

在 VB 代码中创建缓冲区并将其传递到 DLL 中（其中可以对值进行 memcpy）会更安全。因此我们可以重写 C++ 端，如下所示：

extern "C" __declspec(dllexport) void Get_GetDescription(HANDLE, LPSTR)

void Get_GetDescription(HANDLE resultBreakDown, LPSTR buffer){
    memcpy(buffer,
           ((CalcBreakDown*)resultBreakDown)->GetDescription().c_str(),
           ((CalcBreakDown*)resultBreakDown)->GetDescription().length()+1); 
}

然后重做 VB 代码，如下所示：

<DllImport("FeeEngineDll.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.Cdecl)> _
Public Shared Sub Get_GetDescription(ByVal resultBreakDown As IntPtr, <MarshalAs(UnmanagedType.LPStr)> ByVal szFilename As StringBuilder)
End Sub

我添加了 < code>CharSet:=CharSet.Ansi 到 DllImport。您的 C++ 代码不使用 unicode 字符，而 VB 可能会使用 unicode 字符，因此最好指定这一点，您可能不需要将其放入，但我喜欢使这些内容明确。

请注意使用 StringBuilder 而不是 String，因为字符串在 VB 中是不可变的。最后，您需要小心地在字符串生成器中为描述分配足够的空间：

Dim buffer As StringBuilder = New StringBuilder(512)

您可以通过在 VB 代码中使用大量数字来实现此目的，就像我刚刚所做的那样。但是，如果您的 C++ 代码复制的字符数量多于您分配的字符数量，这将导致问题。

其他更好的选择是将缓冲区大小传递给 C++ 代码，以便它知道允许写入多少，或者在 C++ 代码中提供一个获取大小函数，可用于确定应该有多少空间分配给缓冲区。