27.02.2016, 21:54
|
Прохожий
|
|
Регистрация: 27.02.2016
Сообщения: 3
Версия Delphi: Delphi 7
Репутация: 10
|
|
Помогите пожалуйста найти утечку памяти
Код:
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.
|