Вниз
Скачать: CL | DM;

NMUDP ???   Найти похожие ветки 

 
BAHO ©   (2002-08-17 23:40) [0]

Здравствуйте мастера...
у меня есть вопрос по реализации пинга по вышеуказанному протоколу...
я делаю примерно следующее...>

Прога сервер:

type
TClient=record
IP:string[15]; //IP клиента
Status:boolean; //подключен ли клиент
Timeout:integer; //время ожидание ответа клиента
end;
var
Client:array of TClient;

в обработчике события NMUDPDataReceived
for i:=0 to количество клиентов-1
do if Client[i].IP=FromIP
then if not Client[i].Status
then
begin
Client[i].Status:=true;
Client[i].TimeOut:=10;
end;

Потом в Таймере просто отнимаю 1 каждую секунду от каждого клиента из TimeOut и если он равен 0 или <0 то Status:=false

Прога клиент просто посылает серваку данные раз в несколько секунд...

Вот такой у меня получился пинг клиентов...

Оцените пожалуйста и укажите на ошибки.
Либо предложите альтернативу...
Спасибо.!


 
BAHO ©   (2002-08-19 00:47) [1]

И не будет ли это глюкавить при большом количестве клиентов...?



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

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



Память: 0.45 MB
Время: 0.014 c
1-68723
BillyJeans
2002-10-11 08:24
2002.10.21
Не могу создать TQRLabel в QReport...


14-68922
Лохматый
2002-09-30 16:52
2002.10.21
Удаленное администрирование


3-68617
lejik
2002-09-27 12:57
2002.10.21
Как работает IBDataSet


14-69017
Gumanoid
2002-09-06 17:53
2002.10.21
Win ?????


14-68991
Извращенец
2002-09-29 18:42
2002.10.21
[Warning] Unit DXTexImg implicity imported into package Delphi




   Наверх