Вопрос про ServerSocket и ClientSocket

[civic.qip]

Простое приложение, у одного есть компанент ServerSocket1 у другого ClientSocket1.
Если Клент разрывает соединение так: ClientSocket1.Active:=false;
То у сервера срабатывает событие OnDisconnect, ВСЕ ЗАМЕЧАТЕЛЬНО!!!

Но если машина на которой запущен клиент, случайно выключиться, то сервер никак не риагирут!

В чем же дело? Как отловить серверу то, что клиент отключился?

[SERG1980]

procedure TForm1.ServerSocket1ClientDisconnec t(Sender: TObject;
Socket: TCustomWinSocket);
begin
Memo1.Lines.Add( 'Клиент отсоединился от сервера');
end;

[civic.qip]

Вот в этом и прикол! Не срабатывает событие Disconnect если клиентская машина выпала из сети.

[Makarov]

ClientSocket1.Close;

Вооще сервер должен срабатывать когда вы клиент просто закрываете.

[Alter]

Лучше если клиент с каким-то промежутком посылает сообщения Online, так сделанно в ICQ.

[Vovandows]

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

Лучше если клиент с каким-то промежутком посылает сообщения Online, так сделанно в ICQ.

Надо сделать что бы сервер черз 1 минуту пинговал КЛИЕНТА! Например посылать ему какуюто строку рандомайзом или какойто мусор. Если клиента нет, то сервак выдасть ошибку, отловиш и все ок . Кстати событие OnDisconnect сработает но еще + Ошибка.

[Ring0Sn]

Vovandows, ты на дату поста смотрел, прежде чем и тут отписать свои бредовые идеи?
civic.qip, если проблем не решил то, просто проверяй все подлючения на предмет конекта, и если его нету то закрывай их:

procedure Timer1Timer;
var i : Integer;
begin
  for i := 0 to s.Socket.ActiveConnections - 1 do
    if not s.Socket.Connections[i].Connected then
      s.Socket.Connections[i].Close;
end;

[Vovandows]

Ring0Sn, розслабся пацан, я токо недавно зарегился, пишу то с чем сталкивался.

[Ring0Sn]

Vovandows, не вопрос пацан.
пиши дальше.