Hallo, im Socket Server kommen alle Meldungen an.
Möchte jetzt an die Clients eine Antwort senden, wie mache ich das?
Oder macht das die Komponente (SocketServer) automatisch ????
Delphi-Quellcode:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
MSG: String;
i: Integer;
begin
MSG := Socket.ReceiveText;
Memo1.Lines.Add(MSG);
for i := 0 to ServerSocket1.Socket.ActiveConnections -1 do
ServerSocket1.Socket.Connections[i].SendText(MSG);
end;