Socket问题 ( 积分: 100 )

C

cmd9x

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-22

• #1

我用的ServerSocket+ClientSocket做的程序，现在我想在客户端发一个消息，使服务端通知除我自己以外的其他已连接的客户，并断开他们与服务端的连接。该怎么办才好呢？

 

C

cmd9x

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-22

• #2

我用的ServerSocket+ClientSocket做的程序，现在我想在客户端发一个消息，使服务端通知除我自己以外的其他已连接的客户，并断开他们与服务端的连接。该怎么办才好呢？

 

迷

迷糊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-22

• #3

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
i:integer;
begin
for i:=0 to serversocket1.Socket.ActiveConnections-1 do
begin
if socket.Handle=serversocket1.Socket.connections.Handle then
begin
serversocket1.Socket.connections.SendBuf(...);//发消息
serversocket1.Socket.connections.Close;//关闭
end;
end;
end;

 

C

cmd9x

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-22

• #4

基本上是我想要的答案了，多谢