SendData和GetData方法传送接收二进制字节数组的问题!

Question

你试试不用for语句，直接。senddata Sendarr
接受时用 .Getdata receivearr(),vbArray + vbByte?

Answer 1

谢谢littletao!我已经按照littletao的方法试过,将for语句去掉但接收到的还是0,
但如果是:Senddata Sendarr(0)
         Getdata ReciveArr(),vbArray + vbByte
   只能接收到数组中的第一个数据,不知是何原因. 请指点(最好有详细例程)!

Answer 2

他们已经将你的问题解决了，下面是我将他们的意思详细化的结果，这段代码我用过，应该不会有问题的。
发送部分
Private Sub cmdSendData_Click()
  'SendArr为已附值的二进制字节数组
    sckServer.SendData SendArr
End Sub
接收部分
Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)
  Dim ReceiveArr() As Byte
  redim ReceiveArr(bytesTotal-1)
  sckClient.GetData ReceiveArr,vbByte + vbArray
End Sub