未处理的 AccessViolationException 将 DLL 调用到 VB.Net 时出错

Question

我试图从 VB.net 调用 C++ 编译的 DLL，但遇到了一些问题。似乎有一个明显的解决方案，但我无法弄清楚。

这是 C++ 中的函数声明：

 MyFunction(int trailingaveragesize, double sigmasize, int myflag, int sizeSeries, double *Xdata, double *Ydata, int sizeinputparameter, int *averagePairs, double *PositionsSize, double *PnLSize)

这是我在 VB.Net 中调用它的方式：

 Call MyFunction(200, 1, 1, 230, a_PriceSeries(0), a_PriceSeries(0), 1, a_Averages(0), a_PositionSeries(0), a_PnLs(0))

输入矩阵的最大大小由 sizeSeries (230) 定义，并且我所有输入矩阵的大小都是 10000（所以我不会意外溢出），但我仍然收到未处理的 AccessViolationException 错误

 Attempted to read or write protected memory. This is often an indication that other memory is corrupt.

我的问题是 - 如果我没有超出矩阵的边界，还有什么其他原因会引发此错误？是否因为我只传递了矩阵 ByReference 中的第一个条目，然后它试图访问该矩阵的其他元素？如果是这样，我该如何解决这个问题？

编辑：

这是我在 VB 中声明它的方式

 Declare Function MyFunction Lib "C:\Dev\asdf.dll" (ByVal trailingaveragesize As Long, ByVal sigmasize As Double, ByVal myflag As Long, ByVal sizeSeries As Long, ByRef Xdata As Double, ByRef Ydata As Double, ByVal sizeinputparameter As Long, ByRef averagePairs As Long, ByRef PositionsSize As Double, ByRef PnLSize As Double) As Double

Answer 1

Declare Function MyFunction Lib "C:\Dev\asdf.dll" (ByVal trailingaveragesize As Long, _
  ByVal sigmasize As Double, ByVal myflag As Long, ByVal sizeSeries As Long, 
  ByRef Xdata As Double, ByRef Ydata As Double, ByVal sizeinputparameter As Long, 
  ByRef averagePairs As Long, ByRef PositionsSize As Double, ByRef PnLSize As Double) As Double

该声明完全是错误的，这类似于 vb6 声明。 C 代码中的 int 是 vb.net 中的 Integer，而不是 Long。 Xdata 和 Ydata 很可能是数组，而不是 byref double。将它们声明为 ByVal Double()。其他 byref 参数更难猜测。

Answer 2

p-invoke 是平台调用，是使用 .NET 调用本机 API 的方式。您的声明当前未设置为传递数组，并且不应该通过 ByRef 完成。

尝试将数组变量的 ByRef 更改为 ByVal 并使用 () 声明它们以表示数组。

Answer 3

错误在于，虽然我将变量声明为 long 类型，但它应该是 integer 类型。变量 rc 是错误声明的：

这里是我的表单 Form1 的代码（它有一个 Button 和一个 TextBox）：

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub

这里是 Button.Click 的代码 （它初始化一些用于调用 dll 中函数的变量）：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim arg1 As String
    Dim arg2 As String
    Dim ret As String

这是我声明为 long 的变量 rc。它应该是整数

    Dim rc As long
        ret = "123456789012345678901234567890123"
        arg1 = "123456"
        arg2 = "1234567890123456"
        rc = myFunction(arg1, arg2, ret)
        If (rc = 0) Then
            TextBox1.Text = ret
        Else
            TextBox1.Text = "Result not OK"
        End If
    End Sub
End Class

myFunction 在 myDll 中声明为整数：

extern __declspec(dllexport) int __stdcall myFunction(unsigned char * pszArg1, unsigned char * pszArg2, char * pszReturn)

这是我在 Visual Basic Express 2010 中声明 MyFunction 的方式：

Module Module1

    Public Declare Function myFunction Lib "C:\Users\me\MyProjects\myDll\bin\Debug\myDll.dll" (ByVal Arg1 As String, ByVal Arg2 As String, ByVal ret As String) As Integer

End Module