Обработка исключительной ситуации (сокеты)

[GHOST_Kasper]

Запускаем серв и несколько клиентов. При убивании процесса клиента или выдергиваем кабель с его же машины, то на сервере вылазит ошибка асинхронной передачи. Из списка клиентов на сервере, вырубленный клиент остается активным, как будто он в сети. При отправке ему сообщения со второго клиента, серв падает замертво с ошибкой: буфер оверфлоу. Подскажите пожалуйста, как отловить отключение клиента?
(при стандартном закрытии клиента все нормально обрабатываю)

[Квэнди]

посылать регулярно служебные пакеты-аки

[GHOST_Kasper]

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

  procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
    Socket: TCustomWinSocket);
   var s: string;
       i: Integer;
  begin
    {сохраняем в s присланную нам строку}
    s := Socket.ReceiveText;
    Memo1.Lines.Insert(0, s); {просмотр всех пакетов...}
    {Если кто-то прислал нам свое имя}
    if Copy(s,1,2) = '#N' then begin
     Delete(s,1,2);
     {Добавляем его в юзер лист}
     UserList.Items.Add(s);
     {Записываем в s команду для посылки нового списка юзеров}
     s := '#U';
     for i := 0 to UserList.Items.Count-1 do
      s := s+UserList.Items[i]+';';
     {...и рассылаем этот список всем клиентам}
     for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do
      ServerSocket1.Socket.Connections[i].SendText(s);
     Exit;
    end;
    {Если кто-то кинул сообщение - рассылаем его всем клиентам}
    if (Copy(s,1,2) = '#M')or(Copy(s,1,2) = '#P') or (Copy(s,1,2) = '#L') then begin
     for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do
      ServerSocket1.Socket.Connections[i].SendText(s);
     Exit;
    end;
  end;   
  
  procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
    Socket: TCustomWinSocket);
   var i: Integer;
  begin
    {Кто-то присоединился или отсоединился.
				 Запрашиваем у всех юзеров их имена}
    UserList.Items.Clear;
    for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do
     ServerSocket1.Socket.Connections[i].SendText('#N');
  end;

вот код где эту ошибку вылавливать?

[BOBAH13]

Если тысячу и больше... то я бы забыл про какой то компонент использовал бы чистый WinSock а Квэнди прав, все "нормальные" серверы поддерживают именно такой способ проверки... Высокоуровневый подход к задаче построения сервера, если там будет столько людей, мне кажется бессмысленным.

[GHOST_Kasper]

не подскажете нормальные статьи или книги (где скачать можно) про WinSock... Извиняюсь за глупые вопросы, в сетевое програмирование недавно залез...

вот нашел исходники чата с компонентами WinSock 2.0 это на нем писать? Надеюсь исходники помогут кому нибудь в сетевом программировании...

[BOBAH13]

Почитайте про TCP/IP протокол, так же про UDP, на той же википедии. А про Winsock Api тот же MSDN

[GHOST_Kasper]

Про протоколы TCP/IP и UDP я знаю. Только не писал для сети программы решил попрактиковаться для себя. Спасибо за ответы. Будем учить дальше.