请问如何用winsock传送二维数组的数据?
有一个二维大数组,希望用winsock把数据传送到别的机子去,用tcp协议,代码如下:
Private Sub Command1_Click()
Dim a(0 To 10000,0 To 10000) As Byte
For i = 0 To 10000
For j = 0 To 10000
.
.
'为数组的元素赋值
.
.
Next
Next
'设置好winsock控件
Winsock1.SendData a()
End Sub
接收端的代码:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim b(0 To 10000, 0 To 10000) As Byte
Winsock1.GetData b()
End Sub
在测试中,winsock控件的连接很正常,我在程序中设置了几个测试连接是否正常的变量都返回了预期的结果,在发送前也检查过了a()数组里面的数据正确,整个过程程序也没有报错...但b()数组里面的却全部都是0......是什么原因呢??应该怎样传输二维数组???