c dll在vb6上正常工作但在vb.net上出错（试图读取或写入受保护的内存）

Question

我有一个旧的vb6程序，我需要在vb.net上使用它

我一直试图解决这个问题，但无法修复它！ 我有一个用于阅读的dll文件和旧的rfdi读卡器（RF20E，它被称为）我已经设法将它用于阅读卡，但是当涉及到扇区读取它失败了！ 这是vb6的函数声明

Declare Function rf_read_hex Lib "rf20e.dll" (ByVal icdev As Long, ByVal Adr%, ByVal sdata As String) As Integer

这是vb6中的函数调用

Dim databuff32 As String * 32
address = 4
sector = 1
loadmode = 0

st = rf_authentication(ByVal icdev, loadmode, sector)
If st <> 0 Then
      M1_label.Caption = "Call rf_authentication() error.Exit!"
      Exit Sub
End If

st = rf_read_hex(ByVal icdev, address, databuff32)
If st <> 0 Then
     M1_label.Caption = "Call rf_read_hex error.Exit!"
     Exit Sub
End If

上面的代码工作得很好

这是.h库函数

__int16 __stdcall rf_read_hex(HANDLE icdev,unsigned char _Adr, char *_Data);

但是当我尝试在vb.net中做同样的事情时，我得到了受保护的内存错误

这是我的代码

Public Declare Function rf_read_hex Lib "rf20e.dll" (ByVal icdev As Integer, ByVal Adr%, ByRef sdata() As Char) As Short
    Dim sector As Integer = 1
    Dim address As Integer = 4
    Dim  loadmode = 0
    st = rf_authentication(icdev, loadmode, sector)                
    st2 = rf_read_hex(icdev, address, databuff32)

rf_authentication工作正常！

我尝试过不同类型的数据库32 - 字节字符串字符串，但我要么输入类型错误或内存错误！

但是当我将类型设置为： Dim databuff32 As Char并且在减速功能中将引用设置为ByRef sdata As Char它可以工作但是!!!!! 我只能读取第一个值

我很确定问题是字符串* 32减速但我无法解决它！

谢谢您的帮助 ！

Answer 1

您的所有VB.NET参数都不正确。 icdev应该是一个IntPtr ， Adr应该是一个Byte ， sdata应该是ByVal sdata As Char()或ByVal sdata As String 。

此外，在.NET中，您应该使用DllImport而不是Declare ... Function ，因为后者仅用于向后兼容VB6。

尝试这个：

<DllImport("rf20e.dll", CharSet:=CharSet.Auto)> _
Public Shared Function rf_read_hex(ByVal icdev As IntPtr, ByVal Adr As Byte, ByVal sdata As Char()) As Short
End Function

请参阅我的这个答案，获取如何将某些Win32类型映射到.NET的列表： https ： //stackoverflow.com/a/46547553/3740093

Answer 2

经过一些尝试，我已经解决了我的问题！

这是有效的声明：

Public Declare Function rf_read_hex Lib "rf20e.dll" (ByVal icdev As Integer, ByVal adr As Integer, <MarshalAs(UnmanagedType.LPStr)> ByVal sdata As StringBuilder) As Short

这是电话：

Dim databuff32 As New StringBuilder(64)
st2 = rf_read_hex(icdev, address, databuff32)