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

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

Перебор активных соединений TServerSocket [D7, WinXP]


DJ_Sedoy ©   (2003-01-07 07:38:00) 

Поскажите плз, как бы грамотнее сделать:
имеем TServerSocket, к которому подключено N количество TClientSocket.
Необходимо по событию onServerSocket1ClientDisconnect послать всем оставшимся любую строку. (Скажем так, для " контрольного обзвона").


DJ_Sedoy   (2003-01-08 22:09:00) [1]

В каком контексте? Просто не могу сообразить, что имеется в виду.


mrcat   (2003-01-08 13:43:00) [2]

DJ_Sedoy © (08.01.03 06:05)

используйте Data: Pointer - удобно.


DJ_Sedoy   (2003-01-08 06:05:00) [3]

Нет :(
Если имеем 10 соединений, и отключился кто-то "из середины", то последнего мы не обзвоним.


Мазут Береговой   (2003-01-07 08:33:00) [4]

var SSocket : TServerSocket;
S : string;
......

S:="Для контрольного обзвона...";

With SSocket.Socket do
For I:=0 to ActiveConnections - 1 do
If Connections[I].Connected
then Connections[I].SendText(S);


Наверх

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