[mir546]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

program Project1; uses   System.SysUtils,IdHTTP,IdIcmpClient; type idHTTP = TidHTTP; IdIcmpClient = TIdIcmpClient;   var     idhttp1:  TIdHTTP;     IdIcmpClient1:  IdIcmpClient;     {$R *.res} begin     IdIcmpClient1:=TIdIcmpClient.Create(nil);     IdIcmpClient1.Host:='google.ru';     IdIcmpClient1.ReceiveTimeout:=3000;     IdIcmpClient1.Port:=80;     While true do     begin       IdHTTP1:=TidHTTP.Create(nil);       if (IdHTTP1.Get('http://site.ru/start.txt')='1') then       begin         IdIcmpClient1.Ping;         IdHTTP1.Get('http://site.ru/info.php?ping='+FloatToStr ((IdIcmpClient1.ReplyStatus.MsRoundTripTime)/1000));       end;       IdHTTP1.Free;       sleep(5000);     end; end.