есть конечно вариант
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.IdIcmpClient1.Host:='192.168.2.35';
IdIcmpClient1.Ping();
end;
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
if AReplyStatus.MsRoundTripTime = 0 then КОМП В СЕТИ else НЕ В СЕТИ
end;
Но тут есть одно НО для меня. Мне нужно, чтобы действия процедуры TForm1.IdIcmpClient1Reply выполнялись в процедуре TForm1.Button1Click, то бишь там, где у меня осуществляется непосредственно копирование. И перед ним надо обработать результат пинга, чтобы понять - копировать начинать или нет. Вот как это сделать я что-то не пойму. Мне не нужен обработчик результата пинга после кнопки..