Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

помогите с пингом

Страницы: < 1 2 3 4 5 >
linuxoid © (2010-07-12 13:05:00)
Здравствуйте.

имеется таблица в базе с ip-адресами. нужно поочередно всех пропинговать.

tablebase.Open;
tablebase.First;
for i:=1 to tablebase.recordcount do begin
adres:=tablebase.fields.Fields[2].AsString;
icmp.Host:=adres;
icmp.Ping();
listbox1.Items.Add('Время до хоста: '+' - '+inttostr(icmp.ReplyStatus.MsRoundTripTime)+'ms')
tablebase.Next;

скажите в чем проблема?

Anatoly Podgoretsky (2010-07-13 10:09:00) [41]

> 12 © (12.07.10 14:06) [14]

В Инди то?

Anatoly Podgoretsky (2010-07-13 10:04:00) [42]
> linuxoid (13.07.2010 08:40:45) [45]

Тебе о проблемах соощат пользователи и вероятно, что пинг в этом случае
будет работать.
Это бессмысленная работа, точнее лишь бы не работать.

brother (2010-07-13 09:53:00) [43]
> а с программным интерфейсом гораздо удобнее.

А, так тебе шашечки? Значит не линуксоид ты)

brother (2010-07-13 09:49:00) [44]
[43] Application.ProcessMessages;
а не закрывается тк у тя цикл не закончился, делай принудительно выход из цикла

> for i:=1 to tablebase.recordcount do begin

linuxoid (2010-07-13 09:42:00) [45]

> Что есть зависание в твоем понятии?

после запускапрограмма стоит. все кнопки не активны.затем разом в листбокс добавляется отчет по нескольким хостам. через некоторое время еще по нескольким. выходдаже на рабоает

Dennis I. Komarov (2010-07-13 09:33:00) [46]

> linuxoid (13.07.10 08:44) [47]

Что есть зависание в твоем понятии?

linuxoid (2010-07-13 09:30:00) [47]
количество неограничено. оно увеличивается. и через cmd будет неудобно. а с программным интерфейсом гораздо удобнее.

brother (2010-07-13 09:15:00) [48]
[46] ?

linuxoid (2010-07-13 08:59:00) [49]

> brother © (13.07.10 08:54) [48]

неа.

см.(22).

brother (2010-07-13 08:54:00) [50]
Файл ping10.1.1.1.cmd :
ping 10.1.1.1 - t
не подойдет?

linuxoid (2010-07-13 08:44:00) [51]

> faiwer © (12.07.10 17:35) [43]

все равно зависает. поищу другой подход.

brother (2010-07-13 08:44:00) [52]
сколько штук? а то: cmd с ping не подойдет?

linuxoid (2010-07-13 08:40:00) [53]
хосты удалены от меня. если какой нить из них не доступен, пойти и исправить. просто невозможно за всеми следить. лучше с одного места.

Leonid Troyanovsky (2010-07-12 20:42:00) [54]

> faiwer © (12.07.10 17:35) [43]

> нужна чисто временно чтобы не бегать и не напрягаться

Где ж он временно напрягся? Ну, или, побегал.

--
Regards, LVT.

faiwer (2010-07-12 17:35:00) [55]
Вот так:

tablebase.Open;
tablebase.First;
for i:=1 to tablebase.recordcount do begin
adres:=tablebase.fields.Fields[2].AsString;
icmp.Host:=adres;
icmp.Ping();
listbox1.Items.Add('Время до хоста: '+' - '+inttostr
(icmp.ReplyStatus.MsRoundTripTime)+'ms')
Application.ProcessMessages;
tablebase.Next;
end;

Местные тебе весь мозг съедят. А я так понял - тебе прога нужна чисто временно чтобы не бегать и не напрягаться, врядли тебе изза этого захочется познавать дзен сетей и делфей )

linuxoid (2010-07-12 16:27:00) [56]
возвращаюсь к исходному вопросу. Как бы мне все это реализовать?

Dennis I. Komarov (2010-07-12 16:19:00) [57]

> но и управляемые свичи находящиеся удаленно от меня

тем более...

linuxoid (2010-07-12 16:00:00) [58]
контроль всмысле - быть осведомленным что происходит в сети. знать какие хосты в какое время отключались

Anatoly Podgoretsky (2010-07-12 15:58:00) [59]
> linuxoid (12.07.2010 15:34:36) [36]

Кто же сеть с помощью пинга контролирует,

linuxoid (2010-07-12 15:56:00) [60]
но мне нужно это супер-пупер прогу написать. тут хостами могуть быть не только компьютеры, но и управляемые свичи находящиеся удаленно от меня

Страницы: < 1 2 3 4 5 >

Наверх

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