ping

← →
lasso (2003-10-21 10:32) [0]

я в программе использую компанент idIcmp reciveTimeout у меня 5000...все работает...но есть проблема...
когда комп выключен то как и должно прога ждет 5 сек...но если у меня 10 компов и все они вылючены то она ждет 50 сек и программа как бы зависает я нимогу не остановить и даже закрыть ее...подскажите возможно ли что нибуть сделать что бы остановить и вообще производить какие либо действия в момент когда пр ожидает ответа если это конечно возможно...
незнаю понели ли вы меня?!..:(

← →
Dementiy © (2003-10-21 10:35) [1]

YO!Покажи код пинга.

← →
lasso (2003-10-21 10:38) [2]

хм вообще то мне стыдно показывать...;) приметив...сек
procedure tform1.pingstart;
var
str,str2:string;
cl:integer;
begin
tray.Icon.LoadFromFile(ExtractFilePath(paramstr(0))+"2.ico");
for cl:=0 to row do form1.tb.Cells[3,cl]:="";
for cl:=1 to row do form1.tb.Cells[2,cl]:="";
for cl:=0 to row do form1.tb.Cells[4,cl]:="";
for j:=1 to row do
begin

label1.Caption:="Scaning..."+str;
form1.Bar.Position:=form1.Bar.Position+ (100 div row+1);
str:=form1.tb.Cells[1,j];
if pos(" ",str)=0 then
form1.ping.Host:=str;
form1.ping.Ping("",0);
if form1.ping.ReplyStatus.TimeToLive<>0 then
begin
application.ProcessMessages;
form1.tb.Cells[2,j]:="

← →
lasso (2003-10-21 10:38) [3]

ну как?...;)знаю тупо все в куче...и все тупо...;(

← →
REA © (2003-10-21 10:41) [4]

Можно повесить пингование в параллельный процесс, либо найти какой либо асинхронный компонент, если такой есть.

← →
lasso (2003-10-21 10:42) [5]

> REA
спасибо конечно за подсказку тока я низнаю как это сделать....может подскажите?

← →
lasso (2003-10-21 12:41) [6]

хм возращаюсь к своему вопросу[1] никто не подскажет?

В отдельном потоке выполнять.

← →
wilhel (2003-10-21 13:31) [8]

Lasso я тут тоже над этим парюсь.
Будет лучше, если ты выложешь шапку своей проги (до implementation)

← →
_Narayan_ (2003-10-21 19:59) [9]

что такое

form1.ping ?

ping Найти похожие ветки