不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

VB中用WINSOCK数组发送数据，出现实时错误6

楼主FrankWang（FrankWang）2006-06-03 14:55:12 在 VB / 网络编程提问

大概是一个数组发送数据后马上又继续发送出现的问题，用了DoEvents还是同样出错

我的目的，大概要连续发送几百行数据
而且以C/S架够可能会同时向几十个客户端发送几百行数据
同时发送2个客户端数据的时候有可能会出现实时错误6

请高手帮忙问题点数：100、回复次数：12Top

1 楼monica888（※当任何人看到奥特曼家族的回贴时表示该楼主已受到奥特曼共和国零分贴计划的特别保护，任何版主如果擅自删）回复于 2006-06-03 16:00:05 得分 10

哦
每进行完一次传输后初始化一下winsockTop

2 楼ExeMan（愚公移山(笨)--精卫填海(傻)）回复于 2006-06-03 18:22:47 得分 0

如果在服務器端使用winsock數組，每個winsock發送後，DoEvents 一下，應該沒問題的。Top

3 楼zyg0（影子(被评为本年度最可爱流氓）回复于 2006-06-04 13:09:48 得分 10

tcp 还是udpTop

4 楼FrankWang（FrankWang）回复于 2006-06-04 14:07:35 得分 0

TCP协议，但同时发送数据就会出现错误6Top

5 楼FrankWang（FrankWang）回复于 2006-06-05 01:09:08 得分 0

顶一下，高手帮帮忙Top

6 楼VirtualDesktop（^_^）回复于 2006-06-06 01:55:42 得分 10

用的是winsock数组吗~应该没问题的啊~
或者你用个timer控制发送间隔Top

7 楼zyg0（影子(被评为本年度最可爱流氓）回复于 2006-06-06 09:30:06 得分 10

服务器要用控件数组Top

8 楼Modest（塞北雪貂)·(偶最欣赏楼主的分）回复于 2006-06-06 10:04:55 得分 10

做成控件数组，完成一次传输后及时关闭。Top

9 楼FrankWang（FrankWang）回复于 2006-06-06 17:59:42 得分 0

我是指比如我有1-100个WINSOCK的数组
winsock(1)
.....
winsock(100)

如果其中的2和3同时需要发送数据就会出现错误Top

10 楼zyg0（影子(被评为本年度最可爱流氓）回复于 2006-06-08 13:27:53 得分 10

不会出错阿
怎么会出错的贴你的发送代码Top

11 楼c4pt0r（）回复于 2006-06-11 21:00:29 得分 40

Private Sub Command1_Click()
On Error Resume Next
Dim sock As Variant
Dim port As Integer
Const max = 255 '加载最大限度

'//////////////////////////////////////
For i = 1 To max
Load Winsock(i) '装载255个WINSOCK
Next i
'////////////////////////////////////

For Each sock In Winsock

DoEvents '转移控制权
If sock.State <> skclosed Then GoTo nextsock
sock.RemoteHost = Text1.Text & n '设置IP
sock.Connect , 1414
n = n + 1

nextsock:
Next sock
End Sub

Private Sub winsock_Connect(Index As Integer)
...

发送数据

End Sub

建立一个WINSOCK控件组~~在connect过程直接发送数据
可以么?我的想法Top

12 楼FrankWang（FrankWang）回复于 2006-06-14 16:35:53 得分 0

无望了，结贴~~~~~~~~~~Top