Socket发送数据问题

[edwardcsdn]

最近在工作中遇到了点Socket问题。

程序分为客户端和服务器端两部分。服务器端Socket设置成数组形势的。

客户端主要是从数据库中提取数据，然后自动发送，大概的数据量是100到1000条不等。但是不知道为什么，无论有多少数据，发送后从客户端看是每一条都发送了，但是在服务器端不知道为什么只能接收到一条。

请指导一下

客户端是单独一个Socket进行发送。

服务器端Socket程序如下：

Private Sub Form_Load()
i = 1
tcpServer(i - 1).LocalPort = 2000
tcpServer(i - 1).Listen
End Sub

'Socket连接
Private Sub tcpServer_ConnectionRequest(index As Integer, ByVal requestID As Long)
If i > 500 Then
i = 1
End If
If tcpServer(i - 1).State <> sckClosed Then
tcpServer(i - 1).Close
Load tcpServer(i)
tcpServer(i).Listen
End If
tcpServer(i - 1).Accept requestID
i = i + 1
End Sub

[cangwu_lee]

从简单逐步深入的，例如一行字的、到记录类型的，慢慢测试。

[edwardcsdn]

测试过了，发送一条没有问题，只要大于1条就会出现问题。

[gsfcstx16]

每条数据发送之后应该DoEvents

[king8192]

看看对你有用没??
public serverindex as integer
public ReceiveData() as byte

Private Sub Form_Load()
'侦听
outWinsock(0).Bind intport, IP
outWinsock(0).Listen

End Sub

'关闭socket
Private Sub outWinsock_Close(Index As Integer)
Dim i As Long
If Index > 0 Then
For i = 1 To Index
outWinsock(i).Close
Next
End If
End Sub

'客户端请求连接
Private Sub outWinsock_ConnectionRequest(Index As Integer, ByVal requestID As Long)
serverindex = serverindex + 1 '加载新的socket数组
Load outWinsock(serverindex)
outWinsock(serverindex).Accept requestID
End Sub

'接收客户端发送来的数据
Private Sub outWinsock_DataArrival(Index As Integer, ByVal bytesTotal As Long)
ReDim ReceiveData(bytesTotal) As Byte
outWinsock(Index).GetData ReceiveData, vbArray + vbByte
End Sub