请赐教！！！如何接收winsock发送的二进制字符数组文件？？？

Question

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)dim array() as byte
winsock1.getdata array(),vbbyte+vbarrayEnd Sub

Answer 1

array 是VB保留字，把array改个名字即可。

Answer 2

可以不用“+vbarray”
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)dim DataB() as byte
winsock1.Getdata DataB(), vbByteEnd Sub

Answer 3

bytestotal 参数总是8192，难道文件的大小必须小于8192吗？
请热心的朋友帮忙写一段完整的接收程序，我将献上120分，
                      谢谢！！

Answer 4

请who帮忙给出完整的发送和接收程序，我的E-MAIL：[email protected]
勿要食言！

Answer 5

非常感谢who，你帮了我的大忙，谢谢！希望保持联系。

Answer 6

crystal,
可以把who的程序发一份给我吗？（[email protected])
谢谢！