兄弟们帮看一下：关于VB调用VC的dll传参的问题

Question

原dll里面定义函数原型：
int WINAPI OpenDevice(HANDLE *hDevice, WCHAR *name);
请问：请二个参数WCHAR *name 也就是wchar_t类型在VB里面怎么去定义才行？
最好给出示例哦，

Answer 1

API声明里定义成 Any 应该可以

Answer 2

OpenDevice（byref handle as long ,byref name as string） as integer

Answer 3

Declare Function OpenDevice Lib "xxx.dll" (Byref handle As Long, Byval name As String) As Long 或Declare Function OpenDevice Lib "xxx.dll" (Byref handle As Long, Byref name As Byte) As Long
后者的调用：Dim bytName(255) As Byte, lngHandle As Long, rv As LonglngHandle = 0rv = OpenDevice(lngHandle, bytName(0)) 

Answer 4

请注意WCHAR *name是双字节类型的

Answer 5

可是参数WCHAR *name是类似"\\.\USB-0"这样的字符串 然后用strconv转换成双字节形式的字符串 去调用
按你的意思需要再转换成字节数组吗？如果是的话又该怎么转化呢？

Answer 6

用3楼的第2种声明和用法应该是可以的。原始声明是Unicode类型的函数，所以不要把它声明为String类型，否则VB会自动做UA/AU转换，导致DLL函数工作不正常。VB中的字符串本身就是Unicode编码的，所以你不需要转换，直接赋值给一个Byte数组就可以了。比如：
    s = "IAMSOSAD"
    b = s & vbNullChar '加个NULL表示C字符串里的结尾'
    Call OpenDevice(lngHandle, b(0))

Answer 7

补充：8楼的示例代码，要加上如下声明，    Dim s As String
    Dim b() As Byte

Answer 8

也可以用StrPtr来传地址：用这个声明：
Declare Function OpenDevice Lib "xxx.dll" (ByRef handle As Long, ByRef name As Byte) As Long这么调用：
    Dim s As String
    
    s = "DeviceName" & vbNullChar
    OpenDevice lngHandle, ByVal StrPtr(s)

Answer 9

int WINAPI OpenDevice(HANDLE *hDevice, WCHAR *name); Private Declare Function OpenDevice Lib "xxx.dll" (ByRef hDevice As Long, ByVal name As Long) As LongPrivate Sub Form_Load()
Dim hDevice As Long, name As String, ret As Long
name = Space(255)
ret = OpenDevice(hDevice, StrPtr(name))name = Left(name, InStr(name, Chr(0)) - 1)
Debug.Print name, Len(name)
End Sub

Answer 10

10楼的声明应该改成这样的：Declare Function OpenDevice Lib "xxx.dll" (ByRef handle As Long, ByVal lpStrName As Long) As Long

Answer 11

恩 急得要命啊 没法连续回复了 呵呵这个函数是不是应该传个DeviceName进去，而不是由API函数返回一个DeviceName，所以是不是应该10楼的那种用法更科学一些啊？