Пинг

← →
DeeNamid © (2008-08-01 11:21) [0]

Вопрос такой: делаю пинг на удаленные машины, необходимо чтобы пинговалось непрерывно, но так-же нужно переключаться на другие машины, но невозможно остановить процесс пинга. Делаю примерно так:

for i:=0 to 10 do
begin
result:=ping_func("172.21.161.33");
if result>0 then res_str:="Время до хоста: "+inttostr(result)+"ms" else res_str:="Превышен интервал ожидания";
end;

И пока цикл не закончен (вообще надо сделать бесконечный) нажать какую-либо кнопку невозможно. Что делать?

← →
Medbe}I{onok XML © (2008-08-01 11:27) [1]

нажать какую-либо кнопку невозможно

пружина тугая становится?

← →
Medbe}I{onok XML © (2008-08-01 11:29) [2]

File->New->Other->Thread Object

← →
DeeNamid © (2008-08-01 11:29) [3]

Ха смешно )) В смысле нажать кнопку на форме, даже закрыть программу нельзя

← →
DeeNamid © (2008-08-01 11:30) [4]

Ну а дальше?

← →
Medbe}I{onok XML © (2008-08-01 11:32) [5]

а дальше перености свой цикл в тело execute

← →
DeeNamid © (2008-08-01 11:48) [6]

Понял надо почитать про потоки

← →
Сергей М. © (2008-08-01 12:21) [7]

> надо почитать про потоки

> Ха смешно

Смешней другое - то вопрос твой размещен в "Сети", хотя на месте ping_func с тем же "успехом" может оказаться любая другая функция, не имеющая никакого отношения к сетям.

Знаю, просто дальше я наверняка буду задавать вопросы по сетям.

> дальше я наверняка буду задавать вопросы по сетям.

А не рановато ли, если с азами проблемы ?)

В командной строке ping host -t и прерывание или Ctrl+C или крестик если в окне.

Пинг Найти похожие ветки