本意:为防止数据粘连,定义数据格式为:"@Add#123",即每个数据包以"@"开头,当客户端接到数据后进行拆解,并存入ListBox中。
意外:在局域网中进行测试时,发现客户端数据仍有粘连现象存在。
不知是哪里问题,请指点!!Private Sub Client_DataArrival(ByVal bytesTotal As Long)
Dim s As String
s = ""
Client.GetData s
SeparateCommand s
End Sub'分解服务端来的数据
'数据以@开头,并将分解得到的数据放入ListBox中
Public Sub SeparateCommand(cmd As String)
Dim TempStr() As String
TempStr = Split(cmd, "@")
For i = 1 To UBound(TempStr)
If Trim(TempStr(i)) <> "" Then
frmMain.listCMD.AddItem TempStr(i)
End If
Next
End Sub
意外:在局域网中进行测试时,发现客户端数据仍有粘连现象存在。
不知是哪里问题,请指点!!Private Sub Client_DataArrival(ByVal bytesTotal As Long)
Dim s As String
s = ""
Client.GetData s
SeparateCommand s
End Sub'分解服务端来的数据
'数据以@开头,并将分解得到的数据放入ListBox中
Public Sub SeparateCommand(cmd As String)
Dim TempStr() As String
TempStr = Split(cmd, "@")
For i = 1 To UBound(TempStr)
If Trim(TempStr(i)) <> "" Then
frmMain.listCMD.AddItem TempStr(i)
End If
Next
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货