用VB的WINSOCK控件发送大于8K的BMP(2)

客户端：
Private Sub Command1_Click()

tcpClient.RemoteHost = txtip.Text
tcpClient.RemotePort = 1001
tcpClient.Connect ' 进行连接

End Sub

Private Sub Command2_Click()
Picture1.Picture = LoadPicture("d:wr.bmp")
End Sub

Private Sub Command3_Click()

tcpClient.SendData "b"
End Sub

Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)

Dim receivefile(1 To 119862) As Byte
tcpClient.GetData receivefile, vbArray + vbByte

'告诉Winsock控件收到的是字节数组类型的数据
Open "d:wr.bmp" For Binary As #1

Put #1, , receivefile

Close #1

End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

End Sub

Private Sub Text1_Change()

End Sub