tcpserver и много client'ов обмен сообщениями

[Небесный]

Суть вопроса состоит в том.
Есть tcpserver и много tcpclient'ов.

Отправка клиентом к серверу - это без проблем.
Сервер:

procedure TForm1.tsAccept(Sender: TObject;
  ClientSocket: TCustomIpClient);
begin
  log.Lines.Add(ClientSocket.Receiveln);
end;

Клиент:

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    if tc.Connect then
      tc.Sendln('hello');
  finally
    tc.Disconnect;
  end;
end;

Это случай работает и работает нормульно.
Теперь у меня еще один случай, не только клиенты отправляют сообщения серверу, но также и сервер должен отправлять клиентам сообщения.
Ну, например клиенту_1 - нужно отправить сообщение "привет", клиенту_2 - "досвидание". Заведомо серверу ведомо айпишки и порты клиентов.


Можно ли из сервера отправлять нужному клиенту сообщение?
Или нужно будет мне ставить на сервере клиента, а у клиентов ставить сервера, ну тоесть имеется ввиду компоненты TCP...
Не хочется разводить балаган компонентов.

Благодарю за помощь!!!

[BARNEY]

Я сделал "балаган"... за одно и решил проблему с передачей файлов и прочих рюшечек + снизится нагрузка на сеть (сервер) если будет возможность некоторых вещей делать напрямую между клиентами.
+ ещё грабли.. у меня допустим сервер что то высчитывает для клиента 1... то тут либо пускать потоки или выстраивать очередь задач для второго клиента. А у вас если сервер будет отвечать в "экзекьюте"(не помню как пишется)... второй клиент может не дождаться ответа и отвалиться.

[Небесный]

Тоесть советуете использовать на сервере для приема от клиентов - TcpServer, а для передачи клиентам использовать TcpClient?
Аналогично и на клиента повесить TcpServer и TcpClient.

Мне то всего то нужно от сервера клиенту передавать некие инструкции(0 или 1, или 2 - заведомо клиенту извесно, что за номер инструкции), а в случае запроса клиента на сервер, чтобы сервер там что-то отвечал.

[BARNEY]

я бы посоветовал ещё больше... если есть заделки на будущие... разработать систему команд.
допусти 1 клиент пишет "привет"
это посылается серверу... в виде "10:Привет"
на сервере стоит обработчик
типо

commanda:=strtoint(copy(str,1,2);
case commanda of
10: //разослать всем клиентам сообщение

и так можно сделать различную систему команд..
команды можно складывать в лист бок..и выполнять поочередно... тем самым будет что то типо очереди задач... можно и потоки потом подключить...

[Небесный]

Ну, что ж тогда большое спасибо.
Главное я узнал, чтобы сервер отсылал сообщения клиентам, нужно ставить пару TcpClient-Server, как на сервере, так и на клиенте. Вот это собственно и интересовало.
А, за идею разработки систем команд спасибо.

[Slym]

Сообщение от Небесный

Ну, что ж тогда большое спасибо.
Главное я узнал, чтобы сервер отсылал сообщения клиентам, нужно ставить пару TcpClient-Server, как на сервере, так и на клиенте. Вот это собственно и интересовало.
А, за идею разработки систем команд спасибо.

НЕПРАВДА!!! на сервере только сервер на клиенте только клиент...

[Небесный]

Сообщение от Slym

НЕПРАВДА!!! на сервере только сервер на клиенте только клиент...

Хорошо, тогда покажите пример, как из сервера отослать клиенту сообщение, зная айпи клиента. Но, это не должен быть ответ, на запрос. А, именно захотел сервер отослать определенному клиенту сообщение - взял и отослал.

[SERG1980]

Вот здесь посмотрите может что найдёте http://programmersforum.ru/showthread.php?t=144809

[Небесный]

SERG1980, впринцыпе это то, что я искал.
Но, взвесив что лучше, или добавить один компонент или работать с таймером каждые 100 мс - решил выбрать пару клиент-сервер, как на сервере, так и на клиенте.
А, вообще SERG1980, благодарю за ссылку - с удовольствием занес данную тему к себе в фак на жесткий.