VC做的DLL函数 int rf_read(unsigned char _Adr,unsigned char *_Data);我这么定义的
Public Declare Function rf_read Lib "RFDLL.dll" (ByVal cardAddr As Integer, ByVal cardData As String) As Integer
Dim sWriteStr As String
sReturnStr = Space(16)
iRet = rf_read(0, sReturnStr)比如返回sReturnStr=“ '? 橞99197”转化为ASCII为
07 20 F9 F9 27 3F 20 99 42 39 39 31 39 37 01
但是正确的应该是
07 20 F9 F9 27 88 04 20 99 42 39 39 31 39 37 01这中间有个“?”用ASCW转换也是3F,求救!
Public Declare Function rf_read Lib "RFDLL.dll" (ByVal cardAddr As Integer, ByVal cardData As String) As Integer
Dim sWriteStr As String
sReturnStr = Space(16)
iRet = rf_read(0, sReturnStr)比如返回sReturnStr=“ '? 橞99197”转化为ASCII为
07 20 F9 F9 27 3F 20 99 42 39 39 31 39 37 01
但是正确的应该是
07 20 F9 F9 27 88 04 20 99 42 39 39 31 39 37 01这中间有个“?”用ASCW转换也是3F,求救!
又:unsigned char 长度好像是 1 字节吧?
Public Declare Function rf_read Lib "RFDLL.dll" (ByVal cardAddr As byte, ByVal cardData As Long) As Longdim aWriteStr(15) as byte, iRet as long
iRet = rf_read(0, varptr(aWriteStr(0)))