在 VB.Net 中使用 C++ dll 时出现异常

Question

我创建了非托管 dll 并在 VB.Net 中使用。

两个代码最简洁如下。

VB.Net

Imports System.Text
Imports System.Runtime.InteropServices

Module Module1

    Sub Main()
        Dim c As cls = New cls()
        c.Start()
    End Sub

End Module

Public Class cls
    Declare Sub Only Lib "dllproj2.dll" Alias "Only" (b As StringBuilder)

    Public Sub Start()
        Dim s As StringBuilder = New StringBuilder(15)

        Only(s) '**Actual call to dll code **
        Dim s1 As String = s.ToString.ToLower
        Dim len As Integer = s.ToString.Length.ToString()
        Console.Write(s.ToString())
    End Sub

End Class

C++ DLL

#include<stdio.h>
#include<stdlib.h>
#include<cstring>

extern "C"{
void Only(char *a)
{
    char arr[10];

    printf("Reached");
    sprintf(arr,"This %d",33);
    printf("\n%s\n",arr);
    memcpy(a,arr,10);

}
}

现在只要我访问Only(s) 行，我就会得到图像中显示的异常。

我无法理解异常的原因。代码的输出很好，但是在使用 Visual Studio 2012 Express 运行它时出现上述错误。

这是示例代码，我们也在生产中使用过，我担心它将来可能会导致问题。

请建议有什么方法可以摆脱异常。

谢谢。

Answer 1

你必须声明bas: UnmanagedType.LPStr

Declare Sub Only Lib "dllproj2.dll" Alias "Only" (<InAttribute(), MarshalAs(UnmanagedType.LPStr)> b As StringBuilder)