Вниз
Скачать: CL | DM;

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

← →
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 с тем же "успехом" может оказаться любая другая функция, не имеющая никакого отношения к сетям.


← →
DeeNamid ©   (2008-08-01 13:20) [8]

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


← →
Сергей М. ©   (2008-08-01 13:22) [9]


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


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


← →
Anatoly Podgoretsky ©   (2008-08-01 16:38) [10]

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



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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.013 c
4-1195550970
guav
2007-11-20 12:29
2008.09.14
Список всех дисков (не томов, именно физических дисков).


15-1216813232
Сергей М.
2008-07-23 15:40
2008.09.14
Абракадабра в vCard - с каким бубном вокруг нее попрыгать ?


3-1205844870
Quart
2008-03-18 15:54
2008.09.14
SQL-запрос


2-1217607306
woma
2008-08-01 20:15
2008.09.14
TList или Array


15-1216655854
ПостОвый терминатор
2008-07-21 19:57
2008.09.14
О полномочиях




   Наверх