ServerSocket如何直接向ClientSocket发信息

Question

  谢谢大家啊，指点，现在就是， 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);beginserversocket1.Socket.SendText('123');
end; 不知道怎么套接字符 ~~，谢谢指教啊。

Answer 1

根据SocketHandle直接发送数据。

Answer 2

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