Как можно сделать?

[cargo29]

хотелось бы сделать следующее,

if IdHTTP1.Connected then
IdHTTP1.Get('Ссылка');

но если нету интернета что бы через скажем минут 5 опять выполнилось

if IdHTTP1.Connected then
IdHTTP1.Get('Ссылка');

как можно такое провернуть?

[Pein95]

используй таймер

[cargo29]

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

используй таймер

а точнее можно, ниже код не робит....


if IdHTTP1.Connected then
IdHTTP1.Get('Ссылка') else
Timer2.Enabled:=true;





procedure TForm1.Timer2Timer(Sender: TObject);
begin
if IdHTTP1.Connected=true then
begin
Timer2.Interval:=strtoint(Edit5.Tex t)*60000;
IdHTTP1.Get(Edit1.Text);
Timer2.Enabled:=False;
Form1.Close;
end;

[Pein95]

что именно не работает какая ошыбка или не подключаетса? у вас тут синаксическая одна есть(может и больше) я токо одну заметил

Timer2.Interval:=strtoint(Edit5.Tex t)*60000;

[cargo29]

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

что именно не работает какая ошыбка или не подключаетса? у вас тут синаксическая одна есть(может и больше) я токо одну заметил

Timer2.Interval:=strtoint(Edit5.Tex t)*60000;

Нет, ошибки нету, вообщем сразабывает один раз, а в коде прописано если она сработает в таймере то она должна будет сразу закрыться, я проверял на сниффере, но проблема в том что он не выключаетсся и переодически прогружает. то есть программа не закрывается и таймер не выключается ...

[Pein95]

чтоб отключить таймер сделай такое: timer enabled:=false;

[cargo29]

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

чтоб отключить таймер сделай такое: timer enabled:=false;

вот написал но он не робит

это в кнопке

if IdHTTP1.Connected then
begin
IdHTTP1.Get(Edit1.Text);
Form1.Close;
end else
begin
if Edit5.Text='mmmmmm' then
Timer2.Interval:=strtoint(Edit5.Text)*60000;
Timer2.Enabled:=true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if IdHTTP1.Connected=true then
begin
IdHTTP1.Get(Edit1.Text);
Timer2.Enabled:=False;
Form1.Close;
end;