关于WINSOCK，TCP/IP

[zccm]

我问一个事情
我用TCP/IP来做一个聊天室
但客户只能一次和服务器连接
第二次连接的时候出错，除非把服务器断重新关闭打开，我怎能任何时候都能和服务器连接的客户端呢？
请指教以下
有多客户断的聊天程序请留给我，谢谢

[danielinbiti]

多用户聊天室是用动态数组winsock的

[XmagicX]

客户端----判断状态是否连接上

服务端----判断是某个winsock数组是否激活

[_l_]

那需要写容错代码了， 你应该在关闭前发个指令给服务器 叫它自己复位

[zccm]

怎么复位？

[_l_]

比如你发个CLOSE 等服务器收到 后再 服务器断重新关闭打开

[zccm]

如果是多用户聊天室的话呢？不会影响其他客户断吗？

[zccm]

有没有QQ号，互相认识一下

[笨狗先飞]

客户断开时有没有用 .close 关掉?

[zccm]

VB高手啊，加上我吧86799089

[落伍者]

客户端与服务端断开时，要close

[zyg0]

其实你的服务器用1个sock 数组，问题就解决了
这类代码很多的，你要要得话，我只能给你1个服务器处理多连接的例子，其他 问题要自己解决

[zyg0]

要创建 TCP 客户端，请按照以下步骤执行：

在工程中添加一个新的窗体，将其命名为 frmClient。


将窗体的标题改为“TCP Client”。


在窗体中添加一个 Winsock 控件，并将其命名为 tcpClient。


在 frmClient 中添加两个 TextBox 控件。将第一个命名为 txtSend，第二个为 txtOutput。


在窗体上放一个 CommandButton 控件，并将其命名为 cmdConnect。


将 CommandButton 控件的标题改为 Connect。


在窗体中添加如下的代码。
重点 必须将 RemoteHost 属性值修改为您的计算机的名字。

Private Sub Form_Load()
'Winsock 控件的名字为 tcpClient。
'注意：要指定远程主机，可以使用
' IP 地址（例如："121.111.1.1"），也可以使用
'计算机的“好听的名字”如下所示。
tcpClient.RemoteHost = "RemoteComputerName"
tcpClient.RemotePort = 1001
End Sub

Private Sub cmdConnect_Click()
'调用 Connect 方法，初始化连接。
tcpClient.Connect
End Sub

Private Sub txtSendData_Change()
tcpClient.SendData txtSend.Text
End Sub

Private Sub tcpClient_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
tcpClient.GetData strData
txtOutput.Text = strData
End Sub

下面的代码假定名为 sckServer 的窗体上有一个 Winsock 控件，它的 Index 属性被设置为 0；因此控件是控件数组的一部分。在声明部分，声明了一个模块级的变量 intMax。在窗体的 Load 事件中，intMax 被设置为 0，数组中第一个控件的 LocalPort 属性被设置为 1001。然后调用控件的 Listen 方法，使之成为“监听”控件。在连接请求到达时，代码将检测 Index 是否为 0（“监听”控件的值）。如果为 0，监听控件将增加 intMax 的值，并使用该号码来创建新的控件实例。然后，使用新的控件实例接受连接请求。

Private intMax As Long

Private Sub Form_Load()
intMax = 0
sckServer(0).LocalPort = 1001
sckServer(0).Listen
End Sub

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