Работа с ServerSocket и ClientSocket

[***СкаЙ***]

Подскажите как реализовать переписывание если к серверу подключено несколько клиентских программ... что б все клиенты видели сообщение других клиентов, а не только сервер

[ikot]

когда сервер получил данные от конкретного пользователя организуйте в цикле(по соединениям) отправку всем остальным.

[fuss]

Обрабатывай событие OnClientRead в компоненте TServerSocket. Вот простейший пример:

procedure TServerForm.ss1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
  s: string; //обьявляем переменную для пришедшего сообщения
begin
...
  s:=Socket.ReceiveText; // присваиваем этой переменной текст пришедшего сообщения
...
//и рассылаем переменную(текст) всем подключённым юзерам
for i := 0 to ss1.Socket.ActiveConnections-1 do
    ss1.Socket.Connections[i].SendText(s);
   Exit;
...
End;

Это простейший пример) Можно организовать обработку команд вида "клиент<-->сервер", но это уже другая история)))

[***СкаЙ***]

спасибо огромное, со временем все прийдет, а пока и єтого хватит