一个比较笨的问题，急急急急急

Question

这样的一个函数  （JKP487.dll中的）int __stdcall ReadSequence(unsigned char *Sequence)
参数说明： unsigned char *Sequence，返回序列号的数据，4个字节；函数返回：  =Sequence的长度,成功我是这样定义的
Public Declare Function ReadSequence% Lib "JKP487.dll" (ByVal BB$)调用的时候这样
Dim GG As String * 56
MsgBox ReadSequence(GG)函数的返回值是 4，说明是对的，但是 返回的数据只有一个字节加一个2个字节的
空格，为什么会这样
我用他们自带的delphi的例子就是对的是不是我哪里定义的不对？？

Answer 1

Public Declare Function ReadSequence Lib "JKP487.dll" (ByVal BB As String) As Long

Answer 2

Public Declare Function ReadSequence Lib "JKP487.dll" (ByVal BB As String) As Long

Answer 3

或者
Public Declare Function ReadSequence Lib "JKP487.dll" (ByVal BB As Long) As LongDim b(55) As Byte
Dim GG As String
MsgBox ReadSequence(VarPtr(b(0)))
GG=StrConv(b,vbUnicode)