Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как отловить disconnect [D7, WinXP]


Alex870 ©   (2005-08-31 12:37:00) 

Здравствуйте!
Я использую компоненты Indy (TIdTCPServer и TIdTCPClient). Для того, чтобы узнать какой клиент подключился к серверу я использую процедуру OnConnect (у сервера):

procedure TForm1.ServerConnect(AThread: TIdPeerThread);
var
ConnHost : String;
begin
ConnHost := AThread.Connection.Socket.Binding.PeerIP;
...
end;

а при отключении OnDisconnect:
procedure TForm1.ServerDisconnect(AThread: TIdPeerThread);
var
DisconnHost : String;
begin
DisconnHost := AThread.Connection.Socket.Binding.PeerIP;
...
end;

Но если приложение клиента завершилось аварийно (с помощью TaskManagera) то PeerIP в процедуру ServerDisconnect не передается и возникает ошибка сокета (правда только при отладке). Как мне узнать какой клиент (его IP) отключился? Зарание Спасибо!


Digitman   (2005-08-31 15:19:00) [1]

клиент узнает об этом по исключению, возникшему при вызове read- или write-метода


Alex870   (2005-08-31 14:35:00) [2]

С этим разобрался - там возникает Exception и его перехватывает OnException, в которой DisconnHost := AThread.Connection.Socket.Binding.PeerIP; работает, а вот если наооборот: сервер застрелился, тогда как клиенту узнать, что он уже не подключен?


Наверх

Титульная страница Поиск, карта сайта Написать письмо