ServerSocket如何直接向ClientSocket发信息
谢谢大家啊，指点，现在就是， ClientSocke 链接上以后，直接向ClientSocke 发送消息。



小弟初学啊，谢谢大家指教啊。


rocedure TForm1.FormCreate(Sender: TObject);
begin
serversocket1.Active:=true;

end;

procedure TForm1.ServerSocket1Accept(Sender: TObject;
Socket: TCustomWinSocket);
begin
showmessage('有请求');
end;

procedure TForm1.Button1Click(Sender: TObject);

begin

serversocket1.Socket.SendText('123');
end;

不知道怎么套接字符 ~~，谢谢指教啊。

[解决办法]

Delphi(Pascal) code

var  i : integer;begin  for i:=0 to ServerSocket1.Socket.ActiveConnections-1 do begin    ServerSocket1.Socket.Connections[i].SendText('Hellow');  end;end;