Главная страница
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.029 c
1-1082347021
AGAMEMNUM
2004-04-19 07:57
2004.04.11
HTML Parsing


3-1079011054
эд
2004-03-11 16:17
2004.04.11
как из файла Excel взять данные и занести в StringGrid


6-1079672319
boa
2004-03-19 07:58
2004.04.11
Помогите разобраться с функцией NetServerGetInfo!!


1-1082906276
Seldon
2004-04-25 19:17
2004.04.11
Информация о Themes.pas


1-1082613534
AleKo
2004-04-22 09:58
2004.04.11
Outlook Express