请赐教！！！如何接收winsock发送的二进制字符数组文件？？？
如何接收winsock发送的二进制字符数组文件，请劳驾写一小段例子程序，不胜感激！！！！！！！！ 问题点数：120、回复次数：10Top
1 楼subzero（赘姆烂壳）回复于 2000-09-08 02:54:00 得分 0
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
dim array() as byte
winsock1.getdata array(),vbbyte+vbarray
End Sub
Top
2 楼shines（郭子）回复于 2000-09-08 17:13:00 得分 0
array 是VB保留字，把array改个名字即可。Top
3 楼who（W.H.O）回复于 2000-09-08 20:00:00 得分 120
可以不用“+vbarray”
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
dim DataB() as byte
winsock1.Getdata DataB(), vbByte
End Sub
Top
4 楼crystal（）回复于 2000-09-09 20:57:00 得分 0
bytestotal 参数总是8192，难道文件的大小必须小于8192吗？
请热心的朋友帮忙写一段完整的接收程序，我将献上120分，
谢谢！！Top
5 楼who（W.H.O）回复于 2000-09-09 22:13:00 得分 0
分先加上吧Top
6 楼crystal（）回复于 2000-09-10 08:47:00 得分 0
请who帮忙给出完整的发送和接收程序，我的E-MAIL：wangzef@public.md.hl.cn
勿要食言！Top
7 楼crystal（）回复于 2000-09-13 13:54:00 得分 0
非常感谢who，你帮了我的大忙，谢谢！希望保持联系。Top
8 楼doggy（狗狗）回复于 2000-09-15 10:14:00 得分 0
crystal,
可以把who的程序发一份给我吗？（nu1467@263.net)
谢谢！
Top
