Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c