在客户请求连接时就为其新建一个 Socket 控件数组成员。(Index = 0 是用于监听的初始 socket) Private Sub sckServer_ConnectionRequest(Index As Integer, ByVal requestID As Long) If Index = 0 Then intMax = intMax + 1 Load sckServer(intMax) sckServer(intMax).LocalPort = 0 sckServer(intMax).Accept requestID Load txtData(intMax) End If End Sub当客户发来消息时,就有相应的 Index。用相同的 Index 发回结果即可。
由于是面向连接的,每个Socket对应一个连接,就不会发错的例子看MSDN
能不能给个例子?
其实 msdn带 的 例子就能实现
Private Sub sckServer_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
intMax = intMax + 1
Load sckServer(intMax)
sckServer(intMax).LocalPort = 0
sckServer(intMax).Accept requestID
Load txtData(intMax)
End If
End Sub当客户发来消息时,就有相应的 Index。用相同的 Index 发回结果即可。