当前位置: 代码迷 >> PB >> VB转码pb,环境九
  详细解决方案

VB转码pb,环境九

热度:119   发布时间:2016-04-29 05:30:24.0
VB转码pb,环境9
Private Sub Command2_Click()
On Error GoTo errproc
Dim sendstr(11) As Byte
sendstr(0) = &H0  
sendstr(1) = &H0
sendstr(2) = &H0 
sendstr(3) = &H0 
sendstr(4) = &H0 
sendstr(5) = &H6  
sendstr(6) = &H1 
sendstr(7) = &H3  
sendstr(8) = &H0  
sendstr(9) = &H0  
sendstr(10) = &H0  
sendstr(11) = &H1 
Dim astr As String
Dim i As Integer
For i = 0 To 11
astr = astr & Chr(sendstr(i))
Next
Winsock1.SendData astr
Exit Sub
errproc:
MsgBox "传输数据失败", vbCritical, "网络传输"
End Sub
主要是byte在9下没有该类型,貌似可以用char替代,但怎么个替代法啊?谢谢各位大神!~

------解决方案--------------------
引用:
谢谢各位,直接升级pb12.5,还是用byte直接解决的。


用byte是解决方案,char不支持ascii为0的,系统会认为是结束符
  相关解决方案