客户端连接时: 存socket信息到数组 session[i].CHandle := Socket.SocketHandle ;//客户端套接字句柄 session[i].CSocket := Socket; //客户端套接字 发送消息时: 在数组中查找 if session[i].CHandle = Socket.Sockethandle then session[i].CSocket.sendtext()
用了下面的语句可以实现向所有连接者发送相同的内容: if serversocket1.Socket.ActiveConnections>0 then for i:=0 to serversocket1.Socket.ActiveConnections-1 do serversocket1.Socket.Connections[i].SendText('HelloXXXXXXXXXX');
可以了 if serversocket1.Socket.ActiveConnections>0 then for i:=0 to serversocket1.Socket.ActiveConnections-1 do if serversocket1.Socket.Connections[i]..handel=socket.handle then serversocket1.Socket.Connections[i].SendText('HelloXXXXXXXXXX');
存socket信息到数组
session[i].CHandle := Socket.SocketHandle ;//客户端套接字句柄
session[i].CSocket := Socket; //客户端套接字
发送消息时:
在数组中查找
if session[i].CHandle = Socket.Sockethandle then
session[i].CSocket.sendtext()
if serversocket1.Socket.ActiveConnections>0 then
for i:=0 to serversocket1.Socket.ActiveConnections-1 do
serversocket1.Socket.Connections[i].SendText('HelloXXXXXXXXXX');
if serversocket1.Socket.ActiveConnections>0 then
for i:=0 to serversocket1.Socket.ActiveConnections-1 do
if serversocket1.Socket.Connections[i]..handel=socket.handle then
serversocket1.Socket.Connections[i].SendText('HelloXXXXXXXXXX');