[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.

[NumLock]

Код:

1	IdIcmpClient1.Free;

[mir546]

Сообщение от NumLock

Код:

не помогло(

в инете нашел инфу что indy много глючный и на Win7 утечка это норма. Происходит это из-за косяка майкрософт. какого не уточнял...
Рекомендуют юзать Synapse

только вот чё то не подключается..

[NumLock]

видимо не туда вставил) и зачем вообще что-то стороннее использовать, когда есть православный WinHTTP.

[mir546]

Сообщение от NumLock

видимо не туда вставил) и зачем вообще что-то стороннее использовать, когда есть православный WinHTTP.

Вставил после IdHTTP1.Free;
а куда нужно?