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

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

ServerSocket [D7, WinXP]


Radgar ©   (2005-03-22 20:12:00) 

У меня есть массив из ServerSocket'ов, и мне нужно реагировать на дисконнект для каждого из них, но по разному. Писать для каждого отдельную процедуру нехочется (объем большой), может кто знает как узнать какой ServerSocket отключился?


Radgar   (2005-03-23 15:02:00) [1]

Пасибо


Digitman   (2005-03-23 08:14:00) [2]


> Radgar ©   (22.03.05 20:12)


назначь всем ServerSocket'ам одну и ту же процедуру обработки события OnClientDisconnect

в рез-те когда произойдет дисконнект любого клиента любого сервера, будет вызвана эта процедура, 1-й параметр которой (Sender: TObject) даст тебе инф-цию о том, клиент какого конкретно ServerSocket'а отключился


TankMan   (2005-03-23 07:05:00) [3]

Ну в любом случае тебе прийдется все это писать, раз ты говоришь что каждый по разному... может (не пробовал, так просто размышляю) тебе одну процедуру для всех OnClientDisconnect поставить а внуртри процедуры этой проверку типа :

for i:=0 to ss.Socket.ActiveConnections-1 do
if socket.RemoteAddress=ss.Socket.Connections[i].RemoteAddress then showMessage('это он - запускем процедуру 1');
for i:=0 to ss2.Socket.ActiveConnections-1 do
if socket.RemoteAddress=ss2.Socket.Connections[i].RemoteAddress then showMessage('это он - запускем процедуру 1');
и т.д.

Может это тебе поможет :)


Наверх

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