Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.07.02;
Скачать: CL | DM;

Вниз

Пишу программу для проверки соединения с интернетом...   Найти похожие ветки 

 
Tempora   (2006-06-09 13:14) [0]

Пишу программу для проверки соединения с интернетом и если связи нет - перезапуск службы маршрутизации.
Собственно есть несколько вопросов:
1. как сделать цикл который будет повторяться пока программа запущена? Я пишу программу как службу Windows, там нет application.terminated как я понял.
2. как при помощи idicmpclient сделать проверку есть ли пинг до Яндекса?
Я делаю так:
repeat
IdIcmpClient1.Host := "ya.ru";
IdIcmpClient1.Ping;
if idicmpclient1.Receive(1).BytesReceived < 1 then
...пошел код перезапуска службы....
until как_указать_что_выполнять_цикл_до конца_программы;

Но при этом код if idicmpclient1.Receive(1).BytesReceived < 1 then срабатывает раньше чем получен ответ от Яндекса. Как правильно поступить в данном случае? Даже если обнобатывать событие idIcmpClient1.OnRelpy оно наступает позже чем проверка -(


 
Рамиль (с)   (2006-06-09 13:56) [1]

Пример в справке по Delphi посмотри


 
Tempora   (2006-06-09 14:13) [2]

Рамиль - не могли бы Вы показать пример здесь, я найти к сожалению не смог.


 
Рамиль (с)   (2006-06-09 14:28) [3]

У меня Delphi нет на данный момент. Поиск по слову TServiceApplication


 
Tempora   (2006-06-09 14:34) [4]

Спасибо, с циклом теперь все ОК.
А как быть с пингом?


 
Рамиль (с)   (2006-06-09 14:45) [5]

ни кто же не мешает события обрабатывать? Делай проверку в OnReply



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

Текущий архив: 2006.07.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.039 c
1-1148463964
jeka_t
2006-05-24 13:46
2006.07.02
Как убрать возможность вызова контекстного меню TMemo?


4-1143609029
MiHoY
2006-03-29 09:10
2006.07.02
перехват сообщений TWebBrowser


2-1150399200
Zloi-avgust
2006-06-15 23:20
2006.07.02
скачать файл по HTTP зная PI (при условии что нет домена)


15-1149483657
Ega23
2006-06-05 09:00
2006.07.02
С Днём рождения! 5 июня


15-1147255423
Колдун
2006-05-10 14:03
2006.07.02
Написание многопотчной качалки