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

[shlp]

怎样用Winsock控件的SendData和GetData方法传送接收二进制字节数组.

程序:
发送部分
Private Sub cmdSendData_Click()
'SendArr为已附值的二进制字节数组
For i = 1 To 65536
sckServer.SendData SendArr(i-1)
Next
End Sub

接收部分
Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)
Dim ReceiveArr() As Byte
For j=1 to 65536
sckClient.GetData ReceiveArr()
Next
End Sub

以上程序我调试后,出现的问题是:ReceiveArr()没有得到传送过来的数据.
不知各位遇到过这种问题吗?

[littletao]

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

[shlp]

谢谢littletao!

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

[Firing_Sky]

Code说得对！

[呼兰懒龙]

将GetData的for循环去掉。

[zhangdr]

他们已经将你的问题解决了，下面是我将他们的意思详细化的结果，这段代码我用过，应该不会有问题的。
发送部分
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