从 VB.NET 调用 C++ dll 的内存损坏 [重复]

Question

我正在尝试从 vb.net 调用 C++ dll 中的函数，但遇到以下错误：

托管调试助手“PInvokeStackImbalance”在“D:...\calling_project_in_VB.vshost.exe”中检测到问题。

附加信息：调用 PInvoke 函数 'calling_project_in_VB! call_project_in_VB.Module1::add' 使堆栈不平衡。这可能是因为托管 PInvoke 签名与非托管目标签名不匹配。检查 PInvoke 签名的调用约定和参数是否与目标非托管签名匹配。

我希望有人可能对这些东西足够精通以发现我哪里出错了？我将不胜感激任何建议，到目前为止，谷歌在帮助我确定问题所在方面一直没有成效。这是我正在尝试运行的可重现的小示例：

C++ 是这样设置的：

调用_c.h：

extern "C"  __declspec( dllexport ) 
                   int add(int* a, int* b); 

调用_c.cpp：

#include "stdafx.h"
#include "called_c.h"
#include <string>

using namespace std;
// using namespace System;

int add(int* a, int* b)
{
    int Aa = *a;
    int Bb = *b;

    return Aa + Bb;
}

这是尝试调用 C 的 VB 函数（其中“...”是我机器上的路径）：

Imports System.Runtime.InteropServices
Imports System

Module Module1

    'Public Class called_c
      <DllImport("D:\...\called_c.dll", EntryPoint:="add", ExactSpelling:=False)>
    Public Function add(ByRef a As Int32, ByRef b As Int32) As Int32
    End Function

    'End Class

    Sub Main()

        Dim val1 As Int32
        Dim val2 As Int32
        Dim answer As Int32

        val1 = 3
        val2 = 4

        answer = add(val1, val2)

        MsgBox(answer)

    End Sub

End Module

Answer 1

DllImportAttribte 的默认调用约定如下：

CallingConvention 字段的默认值为 Winapi，而后者又默认为 StdCall 约定。

但是 C++ 程序的默认值是__cdecl

您的 C++ 代码似乎使用此默认值，但未指定替代值，因此 VB 签名应为：

<DllImport("D:\...\called_c.dll", EntryPoint:="add", ExactSpelling:=False, CallingConvention:=CallingConvention.Cdecl)>
Public Function add(ByRef a As Int32, ByRef b As Int32) As Int32
End Function

或者，您可能希望将InAttribute 添加到参数中，以防止互操作封送拆收器复制回任何值。

<DllImport("D:\...\called_c.dll", EntryPoint:="add", ExactSpelling:=False, CallingConvention:=CallingConvention.Cdecl)>
Public Function add(<[In]()> ByRef a As Int32, <[In]()> ByRef b As Int32) As Int32
End Function

Answer 2

C++ 中的几乎所有指针都等于 .NET 世界中的 IntPtr，因此您的参数应该属于该类型。但是，正如 crashmstr 所说，如果您只是将两个数字相加，为什么还要首先将它们作为指针？

<DllImport("D:\...\called_c.dll", EntryPoint:="add", ExactSpelling:=False)>
Public Function add(ByVal a As IntPtr, ByVal b As IntPtr) As Integer
End Function

另请注意，参数应作为ByVal 传递，因为C++ 函数当前不包含预期通过引用传递的参数。

用法示例：

Dim Result As Integer = add(New IntPtr(3), New IntPtr(6))
MessageBox.Show(Result) 'Should display "9".