请问如何用winsock传送二维数组的数据?

[lsftest]

有一个二维大数组,希望用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......是什么原因呢??应该怎样传输二维数组???

[HUOLI0440]

I want to know answer……

[vicky_jam]

：）兄弟：）
如果你知道答案的话：）
也高我一声：）
你说除了我的心声：）
谢谢！！！

[lsftest]

up

[fuzq]

have a try
data1 & "#" & data1
of course,data1 and data1 you can instead with the value of array

[bhhxd]

自己编写一段代码，将二维数组转换成字符串，
到接收端在将字符串转换成为二维数组