TCP端口 16进制数据问题
发送端发送的是FC 2C 01 0D 0A 0A 00 0B 0D 0B 0A 00 16 0D 0C 0A 00 21 0D 1E 0A 00 2C 0D 14 0A 00 37 0D 15 0A 00 00 1A 0A 0D 28 0A 07 FA,按16进制发送
接收端用的是WINSOCK控件,收到的字符串是乱码,然后我用的解码代码如下:
Private Sub Winsk1_DataArrival(index As Integer, ByVal bytesTotal As Long)
Dim Receive_Byte() As Byte
Dim Receive_Temp As Variant
Dim Temp_En As String
If Y_ConnOK(index) = True Then
Winsk1(index).GetData MidData, vbString
Receive_Temp = MidData
Receive_Byte = Receive_Temp
For i = 0 To Len(Receive_Temp)
If Receive_Byte(i) < 16 Then
Temp_En = Temp_En & "0" & Hex(Receive_Byte(i))
Else
Temp_En = Temp_En & Hex(Receive_Byte(i))
End If
Next
Info_In = Info_In & Temp_En
Temp_En = ""
Text7 = Info_In
Info_In = ""
解出来却是3F0001000D000A000A0000000B000D000B000A00000016000D000C000A00000021000D001E000A00
哪儿出的问题呢?