|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
31.03.2016, 13:36 | #1 |
Пользователь
Регистрация: 05.05.2015
Сообщений: 55
|
Сбивается пинг
Нужен так называемый мониторинг хостов в локальной сети. Работаю в Delphi 7 с подключенной synapse, откуда беру процедуру пинга(прилагаю проект и synapse).
Код:
|
01.04.2016, 08:16 | #2 |
Пользователь
Регистрация: 05.05.2015
Сообщений: 55
|
Прошу помощи. Подскажите хоть, куда копать.
|
01.04.2016, 16:28 | #3 |
Пользователь
Регистрация: 05.05.2015
Сообщений: 55
|
Поменял в procedure TPingThread.Execute строку sleep(1000) на sleep(10000). Вроде стало нормально. Почему?
|
01.04.2016, 17:09 | #4 |
Лис
Старожил
Регистрация: 18.09.2015
Сообщений: 2,409
|
Читаем rfc https://tools.ietf.org/html/rfc777
Маршрутизатор вам может вернуть ответ. Вы проверяете, что ответ пришел. Но не проверяете какой. Используйте ReplyError. http://synapse.ararat.cz/doc/help/pi...tml#ReplyError Использовать Sleep в данном коде некоректно. Он убивает всю программу, а не поток. Используйте другой таймер с waitefor...
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
У дзен программиста программа делает то что он хотел, а не то что он написал . |
04.04.2016, 09:10 | #5 | ||
Пользователь
Регистрация: 05.05.2015
Сообщений: 55
|
Цитата:
Цитата:
|
||
04.04.2016, 11:12 | #6 |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
код - пипец. как мне это развидеть?
а радиобатоны зачем? Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
04.04.2016, 11:15 | #7 |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
http://www.delphimaster.net/view/2-1153197410/40-80
http://read.pudn.com/downloads79/sou...read.pas__.htm https://searchcode.com/codesearch/view/13374086/ энд мэни мо Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
04.04.2016, 13:28 | #8 | |
Пользователь
Регистрация: 05.05.2015
Сообщений: 55
|
Я не отрицаю. Но вы, пожалуйста, объясните, что не так, и как сделать лучше.Отсюда и брал. И доделывал, чтобы каждый хост пинговался постоянно.
Цитата:
|
|
04.04.2016, 14:06 | #9 | |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
Цитата:
Тогда убери радиобатоны и поставь один комбобокс. А класс треда описывай в отдельном модуле и сделай его независимым от остальной программы. Да, и ещё - напиши класс-список потоков (потомок от TThreadList) Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
|
04.04.2016, 14:51 | #10 | |
Пользователь
Регистрация: 05.05.2015
Сообщений: 55
|
Оп, не подумал. Нужна возможность выбирать несколько. Поменял на checkbox-ы.
Цитата:
Ещё бы разобраться со sleep-ом. |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Пинг до сайта | mogo | Общие вопросы Delphi | 8 | 15.02.2014 17:49 |
Пинг-понг | mixon-21 | JavaScript, Ajax | 1 | 19.01.2014 12:57 |
Неустойчивый пинг | WorldMaster | Windows | 6 | 28.04.2013 23:19 |
Сбивается нумерация страницы в MO WORD | DarkingBluth | Microsoft Office Word | 1 | 27.02.2013 17:55 |
Определить пинг | Shouldercannon | Общие вопросы Delphi | 10 | 26.05.2011 21:32 |