接受方
Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
Dim strData As Long
tcpClient.GetData strData
If strData = 0 Then
MsgBox "已經連接！", vbOKOnly + vbInformation, "提示資訊"
Label3.Caption = "已經連接！"
Else
msgbox strdata
End If
End Sub
發送方
Private Sub 發送圖片id()
tcpServer.SendData (編號)
End Sub
編號已經定義為全域變數
如果代碼到這里結束了那一切正常，如果加下面的代碼就會出現發送和接受不一樣。
Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
Dim ask As Long
tcpServer.GetData ask
If ask = 0 Then
tcpServer.SendData 0
End If
End Sub
這段代碼是接收方開始連接服務器的時候發送的握手資訊，看是否連接上了。。但不懂為什么加上了會導致接受失真？
望指導謝謝！
uj5u.com熱心網友回復：
不知道有多少前人掉在TCP Socketsend(人多)send(病少)send(財富)
recv(人多病)recv(少財富)
陷阱里面啊！
http://bbs.csdn.net/topics/380167545
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/101085.html
標籤：VB基礎類