。。。关于VB调用Delphi写的DLL中pchar类型的问题。

[kidnet]

有个Delphi写的DLL，其中函数的返回值是pchar

const DllFile='xxxx.DLL';
function ReadXXXXCard(): pchar; stdcall; external DllFile;

我在VB中调用：
Declare Function ReadxxxxCard Lib "xxxx.dll" () As 【返回值】

【返回值】这里怎么写呢？

VB中没有pchar类型。

我试过byte，integer，long。。。返回值都不相同。。

用string接，返回空字符串

我这里应该用什么接函数返回值？。。这里应该很多个值

[lyserver]

返回值类型为long，表示字符串地址，然后使用lstrcpy、copymemory等API将字符串内容复制到byte数组里，最后使用strconv转换为string。

[a1875566250]

同LS

[kidnet]

    Dim tmpResult As Long
    
    Dim bytes(0 To 3) As Byte
    
    tmpResult = Module1.ReadUserCard()
    
    CopyMemory bytes(0), tmpResult, 4
    
    'MsgBox tmpResult
    
    Dim str As String
    
    'str = ByteToString(bytes)
    
    str = StrConv(bytes, vbUnicode)
    
    Me.Text1.Text = str

--------------------------------
Public Function ByteToString(ByRef bytIn() As Byte) As String
    Dim i As Long
    Dim strRet As String
    strRet = ""
    For i = 0 To UBound(bytIn) - 1
        strRet = strRet & Chr(bytIn(i))
    Next
    ByteToString = strRet
End Function

这里读出来，是乱码。。

用下面那个函数处理后也是乱码。。T_T