Главная страница
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.059 c
15-1149513475
infom
2006-06-05 17:17
2006.07.02
Компоненты для работы с большими целыми числами.


15-1149361173
Аленка
2006-06-03 22:59
2006.07.02
реферат по химии на английском языке


2-1150288285
novill
2006-06-14 16:31
2006.07.02
Как узнать размер файла в интернете, и что возвращает


2-1150449400
Тимофей Юрьевич
2006-06-16 13:16
2006.07.02
условие


3-1146647594
Antoha111
2006-05-03 13:13
2006.07.02
Ссылки в RichEdit на записи БД