7,789
社区成员
发帖
与我相关
我的任务
分享winsock如何发送字符串16进制数据？
有一个字符串表示一些16进制，如010FAAC90D......
怎么通过winsock把这些16进制发送出去呢？
谁能给个代码，谢谢
怎么通过winsock把这些16进制发送出去呢？
谁能给个代码，谢谢
...全文
请发表友善的回复…
发表回复
jadeluo 2006-04-24
- 打赏
- 举报
Dim sData As String
sData = "010FAAC90D"
'如果是直接发送这个字符串, 那么
Winsock1.SendData sData
'如果是想发送它所代表的那些十六进制值, 那么
Dim bBuffer() As Byte
Dim iLoop As Integer
ReDim bBuffer(Len(sData) \ 2)
For iLoop = 1 To Len(sData) \ 2
bBuffer(iLoop - 1) = Val("&H" & Mid(sData, iLoop * 2 - 1, 2))
Next iLoop
Winsock1.SendData bBuffer
sData = "010FAAC90D"
'如果是直接发送这个字符串, 那么
Winsock1.SendData sData
'如果是想发送它所代表的那些十六进制值, 那么
Dim bBuffer() As Byte
Dim iLoop As Integer
ReDim bBuffer(Len(sData) \ 2)
For iLoop = 1 To Len(sData) \ 2
bBuffer(iLoop - 1) = Val("&H" & Mid(sData, iLoop * 2 - 1, 2))
Next iLoop
Winsock1.SendData bBuffer
