есть код примерно так
Код:
http:TidHttp;
....
procedure TForm1.Timer1Timer(Sender: TObject);
var
s1,s2,s3 :string;
i, k :integer;
begin
Timer1.Enabled:=true;
try
page1:=http.get('http://127.0.0.1:8080');
if http.ResponseCode=200 then
...рабочий код..
except
...
Label4.Caption :=IntToStr(http.ResponseCode);
...
end;
так вот, пока локальный сервер запущен условие срабатывает нормально
потом сервер выключаю и он недоступен, условие не срабатывает
когда снова включаю сервер, у меня это условие уже не работает, то есть рабочий код не исполняется, хотя сервер доступен.
в чем загвоздка не ясно
процедура таймера запускается от кнопки на форме