Ребята, ServerSocket ClientSocket помогите с прогой

[One.Love]

Пишу программу для компьютерного клуба..
Подскажите пожалуйста вот у меня в одинаковое время освобождаются сразу несколько компьютеров, как сделать так чтобы ServerSocket отправил ClientSocket`ам (чьи компы освободились) запрос на освобождение по ип из таблицы (работаю с акцес).

Или подскажите пожалуйста как осуществить это через другой компонент например udp или tcp протоколы Зы - ниразу с ними не работал если не затруднит выкиньте пример плиз

[One.Love]

Народ ну помогите мне пожалуйста кто-то же знает как отправить запрос сразу на несколько компьютеров с помощью ServerSocket`a ClientSocket`y

[Terran]

Если к ServerSocket'у подключён ClientSocket, то ServerSocket может ему отправить команду. Это можно сделать так:

ServerSocket1.Socket.SendText('Sv');//Сервер отправляет текст клиенту
ClientSocket1.Socket.SendText('Sv');//Клиент отправляет текст серверу

Вы можете сделасть что бы через определённое время ClientSocket конектился по очереди к разным компам. А в ServerSocket сделать что бы при соединении он отправлял команду о своём состоянии.

[BOBAH13]

Уже на этом форуме не однократно приводил примеры, как работать с сокетами ( WinSock API ) юзаю свой бинарный протокол. Ну или конечно если хочется, можете текстовый..но просто текстом обмениватся это немного "тупо". Поиск вам в помощь...

[Vovandows]

Сообщение от One.Love

Пишу программу для компьютерного клуба..
Подскажите пожалуйста вот у меня в одинаковое время освобождаются сразу несколько компьютеров, как сделать так чтобы ServerSocket отправил ClientSocket`ам (чьи компы освободились) запрос на освобождение по ип из таблицы (работаю с акцес).

Или подскажите пожалуйста как осуществить это через другой компонент например udp или tcp протоколы Зы - ниразу с ними не работал если не затруднит выкиньте пример плиз

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  {Например апишники твоих компов с которыми ты общаешься, 172.20.0.1,
  172.20.0.2, 172.20.0.3, 172.20.0.4, 172.20.0.5. И так мы имеем 5 компов и один
  сервак. Хотим послать команду двум последним. Делаем следующее:}
  for i:=0 to ServerSocket1.Socket.ActiveConnections do
  begin
    //Посылаем команду передпослднему ПК
    if ServerSocket1.Socket.Connections[i].RemoteAddress = '172.20.0.4' then
    begin
      ServerSocket1.Socket.Connections[i].SendText('Выключайся время пришло!');
    end;
    //Посылаем команду последнему ПК
    if ServerSocket1.Socket.Connections[i].RemoteAddress = '172.20.0.5' then
    begin
      ServerSocket1.Socket.Connections[i].SendText('Выключайся время пришло!');
    end;
    //Думаю сам разберешся как зделать проверку из твоей таблицы
  end;
  {Что бы было понятно: если убрать if
  ServerSocket1.Socket.Connections[i].RemoteAddress = '172.20.0.4' then... и
  просто прописать ServerSocket1.Socket.Connections[i].SendText('Выключайся
  время пришло!'); то все ПК получат твое сообщение.}
end;