VB.net 调用VB6编写的标准DLL字符串传入传出过程的问题。

ysceo 2014-11-23 05:08:28

VB6SP6精简版，然后安装了“VB6编译标准DLL工具”，编写标准DLL。
VB6编写以下内容：

' * * *  ---== VB6.0 StandardCall DLL 模板 ==---  * * *

Option Explicit

' 在这后面写上你所需要的数据类型、变量、常量、API等声明



' - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Private Sub Main(): End Sub   '请不要修改或删除这一行！！！

' - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

'在这后面写上你的其它 Sub/Function ，或者全部写到其它模块中



Function Test1(ByVal a As Long, ByVal b As Long) As Long

Test1 = (a + b)

End Function



Function Test2(ByVal s As String) As String

Test2 = s

End Function

并在生成时DLL选择了输出该2个函数。DLL生成成功！
需要在VB.net下调用该DLL。在VB.net 编写代码（x86编译模式）：

Imports System.Runtime.InteropServices

Module Module1

    <DllImport("E:\vb\1\StdDLL.dll", CharSet:=CharSet.Auto, SetLastError:=False)> Private Function Test1(ByVal a As Integer, ByVal b As Integer) As Integer

    End Function

    <DllImport("E:\vb\1\StdDLL.dll", CharSet:=CharSet.Auto, SetLastError:=False)> Private Function Test2(ByVal s As String) As String

    End Function



    Sub Main()

        MsgBox(Test1(1, 2))

        MsgBox(Test2("1234567890"))

    End Sub

End Module

现在问题来了：Test1执行没问题，返回3。
Test2就出问题了。调试运行提示vhost32停止工作。
如果把 CharSet:=CharSet.Auto 改为 CharSet:=CharSet.Ansi
调试就会报错：“System.AccessViolationException”类型的未经处理的异常在 DLL.exe 中发生
其他信息: 尝试读取或写入受保护的内存。这通常指示其他内存已损坏。

我发现只要是字符串【传出】就会有问题。
（传入的时候Len求传入字符串长度，通过Long返回，能取到长度值，但是长度不准确，似乎是1/2）。
只要Test2方法中没有任何行（即没有返回值）的时候，CharSet:=CharSet.Auto/Unicode 能执行通过。
我的目的是，传入一个字符串，在vb6代码中处理这个字符串然后返回新的字符串。

请问如何解决这个问题？请给一个能调试通过的代码(VB6 和 VB.net的)。

...全文

677 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

juny9526 2017-08-07

打赏
举报

字符串声明为char类型试试

threenewbee 2014-11-25

打赏
举报

只有VB才能调用VB写的所谓“标准dll” 这只是对Linker的一个小Hack，让它为这些函数增加导出表，但是并不会影响编译器的行为。而VB之所以不支持“标准dll”是因为VB程序的一举一动都严重依赖msvbvm，需要复杂的初始化，而“标准dll”缺少这些初始化，所以根本没法执行，只有VB自己调用，因为已经初始化好了，所以才能工作。试想，要是VB通过修改下链接器就能支持“标准dll”，微软为什么不提供这样的功能要故意藏起来呢？总之，这就是骗骗菜鸟的把戏罢了。至于你要在VC++ VB.NET等调用VB的ActiveX DLL，有标准的方法，没必要做成“标准dll”

Tiger_Zhao 2014-11-25

打赏
举报

stdcall 的函数，字符串参数是总能找出正确的调用方法的。
但是直接的字符串返回值是不行的。取返回值是调用方的语言自动完成的，根本没法干涉。

Tiger_Zhao 2014-11-24

打赏
举报

加 ExactSpelling:= False 试试，VB6 函数应该没有 Test2A/Test2W 这样的命名方式。
还有改回 CharSet.Ansi 也试试，暴露出来的“标准DLL”的接口可能不是 Unicode 的，在 Test2 中检查字符串长度验证一下。

wy24789 2014-11-24

打赏
举报


Option Explicit

Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)

Private Sub Form_Load()
Dim p As String
Dim n As Long
Dim r As Long
p = String(10, "1")
n = Len(p) * 2
r = Test2("123", StrPtr(p), n)
p = Left(p, r)
End Sub



Function Test2(ByVal s As String, ByVal retstrbuf As Long, ByRef bufsize) As Long
Dim s2 As String
Dim n As Long
Dim b() As Byte
    s2 = "新字符串" & s & Chr(0)
    n = LenB(s2)
    If n < bufsize Then
        b = StrConv(s2, vbFromUnicode)
        CopyMemory retstrbuf, StrPtr(s2), n
    End If
    bufsize = n
    Test2 = n / 2 - 1
End Function

<DllImport("E:\vb\1\StdDLL.dll", CharSet:=CharSet.unicode, SetLastError:=False)> Private Function Test2(ByVal s As String,byval buf as int32,byref n as int32) As int32 End Function Dim p1 As IntPtr Dim s1 As String Dim n1 As Int32 Dim r1 As Int32 p1 = Runtime.InteropServices.Marshal.AllocHGlobal(20) s1 = "123" n1 = 20 r1 = Test2(s1, p1, n1) s1 = Runtime.InteropServices.Marshal.PtrToStringUni(p1) Runtime.InteropServices.Marshal.FreeHGlobal(p1)

ysceo 2014-11-24

打赏
举报

引用 1 楼 Tiger_Zhao 的回复:

VB6肯定是用 CharSet:=CharSet.Unicode，这个应该能修正长度问题，还有千万不要忘了 CallingConvention:=CallingConvention.StdCall。

按照你的提示，加上了，如下：

 <DllImport("E:\vb\1\StdDLL.dll", CharSet:=CharSet.Unicode, SetLastError:=False, CallingConvention:=CallingConvention.StdCall)> Private Function Test2(ByVal s As String) As String
    End Function

    Sub Main()
        MsgBox(Test2("123"))
    End Sub

运行后，现象仍然。 ----------------------------- 问题签名: 问题事件名称: APPCRASH 应用程序名: DLL.vshost.exe 应用程序版本: 12.0.30723.0 应用程序时间戳: 53cf4fe5 故障模块名称: StackHash_9c18 故障模块版本: 6.3.9600.16384 故障模块时间戳: 52159015 异常代码: c0000374 异常偏移: PCH_AF_FROM_ntdll+0x000E2F68 OS 版本: 6.3.9600.2.0.0.272.7 区域设置 ID: 2052 其他信息 1: 9c18 其他信息 2: 9c18f3d00532e1ac4ad8a8d10959dbaf 其他信息 3: 2804 其他信息 4: 2804869cfe42e0b763794f562ffeb373 联机阅读隐私声明: http://go.microsoft.com/fwlink/?linkid=280262 如果无法获取联机隐私声明，请脱机阅读我们的隐私声明: C:\Windows\system32\zh-CN\erofflps.txt

Tiger_Zhao 2014-11-24

打赏
举报

VB6肯定是用 CharSet:=CharSet.Unicode，这个应该能修正长度问题，还有千万不要忘了 CallingConvention:=CallingConvention.StdCall。

wy24789 2014-11-24

打赏
举报


Function Test2(ByVal s As long, ByVal retstrbuf As Long, ByRef bufsize) As Long
Dim s2 As String
Dim n As Long
Dim b() As Byte
    n=lstrlenW(s)
    s2=string(n+1,0)
    copymemory strptr(s2),s,n*2
    s2=left(s2,n)
'之前传地址，后面正常操作string类型
    s2 = "新字符串" & s2 & Chr(0)
    n = LenB(s2)
    If n < bufsize Then
        b = StrConv(s2, vbFromUnicode)
        CopyMemory retstrbuf, StrPtr(s2), n
    End If
    bufsize = n
    Test2 = n / 2 - 1
End Function

Dim p2 As IntPtr = Marshal.StringToBSTR("abc") 上面vb代码不改，改下.net的第一个参数的声明，应该也不会出问题，内存非法访问可能是vb访问了字符串变量的前4个地址来求长度 <DllImport("E:\vb\1\StdDLL.dll", CharSet:=CharSet.unicode, SetLastError:=False)> Private Function Test2(ByVal s As intptr,byval buf as int32,byref n as int32) As int32 End Function

Tiger_Zhao 2014-11-24

打赏
举报

传进来长度对了吗？

应该是字符串不能作为返回值，只能作为参数。
API 中也都是传入一个已经申请了空间的字符串指针来返回字符串内容的。
因为通用原则是调用者申请/释放内存。
VB函数返回字符串变成了被调用者申请/调用者释放，这块内存根本不受gc管理，不出错才怪了。

ysceo 2014-11-24

打赏
举报

引用 3 楼 wy24789 的回复:


Option Explicit

Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)

Priva........

我是看明白你的代码原理，可是： VB6下直接调试调用Test2方法，能实现字符串的更改和返回正确的大小。编译完成标准DLL，在VB.net下使用下面那段代码，执行到 r1 = Test2(s1, p1, n1) 出现错误： “System.AccessViolationException”类型的未经处理的异常在 DLL.exe 中发生其他信息: 尝试读取或写入受保护的内存。这通常指示其他内存已损坏。反正我是没调试通过？高手们你们如何实现的呢？

ysceo 2014-11-24