Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

Обновление списка клиентов ClientSocket   Найти похожие ветки 

 
NetMan2   (2004-03-17 13:01) [0]

У меня программы с помощью компонентов ClientSocket и ServerSocket обмениваются информацией по сети. Есть список активных клиентов, то есть подключённых в данный момент. Как мне сделать чтобы он автоматически обновлялся, при подключении или отключении коиента. Обрабатываю событие OnClientConnect, всё нормально, а на OnClientDisconnect не реагирует. Приходится в ручную обновлять.


 
FireMan_Alexey ©   (2004-03-17 13:06) [1]

В событии OnClientError добавь Socket.Disconnect(Socket.SocketHandle);
Error:=0;


 
FireMan_Alexey ©   (2004-03-17 13:07) [2]

Хотел тебе напомнить, что КОД показывать желательно!!!


 
Digitman ©   (2004-03-17 13:34) [3]


> а на OnClientDisconnect не реагирует


потому что отключившийся клиент (т.е. тот кто явился причиной возбуждения данного события) в момент обработки события (вплоть до возврата из обработчика) все еще фигурирует в списке ActiveConnections (он будет исключен из упомянутого списка СРАЗУ же после завершения тобой обработки события) .. так устроен TServerSocket .. и правильно он устроен, потому что смысл события OnClientDisconnect - указать тебе на клиента, который только что отключился, чтобы ты отреагировал на это событие нужным тебе образом

вариантов привести твой собственный виз.список активных коннектов в соответствие со внутренним списком ActiveConnections всего два : синхронный и асинхронный

к примеру, пусть список активных коннектов у тебя отображается средствами ListView

рассмотрим, например, синхронный вариант

В событии OnClientConnect ты добавляешь новый TListItem к своему списку и ассоциируешь его с ДАННЫМ клиентом

li := ListView.Items.Add;
//Socket - это 2-й параметр метода-обработчика события
li.Data := Socket; //прямая ссылка  
Socket.Data := li; //реверсивная ссылка

В событии OnClientDisconnect ты удаляешь TListItem, ассоциированный с ДАННЫМ клиентом, из своего списка

//Socket - это 2-й параметр метода-обработчика события

или
TListItem(Socket.Data).Delete; //поиск по прямой ссылке

или
ListView.FindData(0, Socket, True, False).Delete; //поиск по реверсивной ссылке


 
Digitman ©   (2004-03-17 13:34) [4]


> а на OnClientDisconnect не реагирует


потому что отключившийся клиент (т.е. тот кто явился причиной возбуждения данного события) в момент обработки события (вплоть до возврата из обработчика) все еще фигурирует в списке ActiveConnections (он будет исключен из упомянутого списка СРАЗУ же после завершения тобой обработки события) .. так устроен TServerSocket .. и правильно он устроен, потому что смысл события OnClientDisconnect - указать тебе на клиента, который только что отключился, чтобы ты отреагировал на это событие нужным тебе образом

вариантов привести твой собственный виз.список активных коннектов в соответствие со внутренним списком ActiveConnections всего два : синхронный и асинхронный

к примеру, пусть список активных коннектов у тебя отображается средствами ListView

рассмотрим, например, синхронный вариант

В событии OnClientConnect ты добавляешь новый TListItem к своему списку и ассоциируешь его с ДАННЫМ клиентом

li := ListView.Items.Add;
//Socket - это 2-й параметр метода-обработчика события
li.Data := Socket; //прямая ссылка  
Socket.Data := li; //реверсивная ссылка

В событии OnClientDisconnect ты удаляешь TListItem, ассоциированный с ДАННЫМ клиентом, из своего списка

//Socket - это 2-й параметр метода-обработчика события

или
TListItem(Socket.Data).Delete; //поиск по прямой ссылке

или
ListView.FindData(0, Socket, True, False).Delete; //поиск по реверсивной ссылке



Страницы: 1 вся ветка

Текущий архив: 2004.04.11;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.038 c
1-1079945390
Layner
2004-03-22 11:49
2004.04.11
Как вытащить время, сколько работает windows?


14-1079336766
Kio
2004-03-15 10:46
2004.04.11
Красивая винда


3-1080799316
Имя2
2004-04-01 10:01
2004.04.11
Как в DBGrid запретить нажатие Insert?


3-1081947063
Oksana
2004-04-14 16:51
2004.04.11
Ошибка при открытии dbf через ADO


4-1075476396
GrayFace
2004-01-30 18:26
2004.04.11
Как управлять Winamp ом?