Czy moze mi ktos powiedziec, dlaczego jak sobie daje taka procedurke ktora tylko pinguje 4 hosty to mi caly program tak przycina ze szok ...
procedure TForm1.Timer2Timer(Sender: TObject);
begin
IdICMPClient1.Host:=Edit5.Text;
IDICMPClient1.Ping;
If IdICMPClient1.ReplyStatus.ReplyStatusType=rsEcho then CheckBox1.Checked:=true else CheckBox1.Checked:=false;
IdICMPClient1.Host:=Edit6.Text;
IDICMPClient1.Ping;
If IdICMPClient1.ReplyStatus.ReplyStatusType=rsEcho then CheckBox2.Checked:=true else CheckBox2.Checked:=false;
IdICMPClient1.Host:=Edit7.Text;
IDICMPClient1.Ping;
If IdICMPClient1.ReplyStatus.ReplyStatusType=rsEcho then CheckBox3.Checked:=true else CheckBox3.Checked:=false;
IdICMPClient1.Host:=Edit8.Text;
IDICMPClient1.Ping;
If IdICMPClient1.ReplyStatus.ReplyStatusType=rsEcho then CheckBox4.Checked:=true else CheckBox4.Checked:=false;
end;
Nawet jak dam komponent idAntyFreeze to tez to za duzo nie pomaga ...
Za pomoc z góry dzięki.