我在VB6下有一个函数,从图片文件中按字节读出数据,发送给Vs2013函数。
VB6函数:
Private Sub SendData()
Dim Dat() As Byte
Open PicFile For Binary As #1
ReDim Dat(LOF(1)-1)
Get 1, ,Dat
Close #1
Dim i As Long
For i = 0 To LOF(1)-1
GetData ChrB(Dat(i)) '发送给2013函数
Next
End Sub
VS2013函数:
Public Sub GetData(ByRef mBytes As Object)
Dim mData() As Byte = System.Text.Encoding.Unicode.GetBytes(mBytes)
JoinData(mDat, mData) '我自己的函数。mDat为二进制数组,接收到的数据都附加进去
End Sub
问题:VB6发送过来的单字节,到了2013强制按字符串接收(Unicode为双字节编码),单字节高位强制补零,并变成二进制数据附加到mDat中去了。如果VB6按双字节发送,可以解决一定问题,但是最后如果剩余一个字节,VB6还得按单字节发送,又出现问题!还有VB6中必须使用ChrB函数,这是要求。
请问各位怎么解决?2013所有编码我都试了。