关于WinSock控件发送图象和接收图象的问题。。。

Question

to ： litsnake1(litsnake) 
    能不能麻烦你给出源代码？先在此谢谢你了！

Answer 1

da = FileLen("aa.bmp")
               If da = vbNullString Then
                  Exit Sub
               End If
               Dim i, j
                  Winsock2.RemoteHost = "192.168.0.2"
               For i = 0 To da \ 8096
                   If da < 8096 Then
                      ReDim myfile(1 To da) As Byte
                      Open "aa.bmp"For Binary As #1
                      Get #1, i * 8096 + 1, myfile
                      Close #1
                      Winsock2.SendData myfile
                   Else
                      ReDim myfile(1 To 8096) As Byte
                      Open "aa.bmp" For Binary As #1
                      Get #1, i * 8096 + 1, myfile
                      Close #1
                      Winsock2.SendData myfile
                      da = da - 8096
                    End If
                      Sleep 2
                 Next i
                 da = 0
这是发送的

Answer 2

谢谢 qyyayong(小李飞刀) !!!*Q*