[harbor]

есть код примерно так

Код:

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;

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

в чем загвоздка не ясно
процедура таймера запускается от кнопки на форме

[X-rem]

Timer1.Enabled:=False наверно все-таки)
if http.ResponseCode=200 then ---> if http.connected then

Пробуй

[harbor]

такой код вобще не работает у меня

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 try
  //Edit2.Text:=http://127.0.0.1:8080
idHTTP1.Get(Edit2.Text);
if IdHTTP1.connected
then
Edit1.Text:='Ресурс доступен';
except
Edit1.Text:='Произошла ошибка';
end;
end;

не выводит сообщения

[X-rem]

Код:

 Смотри следующее сообщение 

[harbor]

действительно с другим адресом работает
а с локальным http://127.0.0.1:8080 почему-то не хочет
может изза порта, или сервер выдает другие данные?
там как бы не сервер стоит, а утилита с веб-интерфесом
вот я ее и опрашиваю

может можно проверять какнибудь порт, открыт или нет

[harbor]

когда я отключаю утилиту и вебинтерфейс отключается
то ResponseCode возвращает -1
с чего это вдруг вобще не ясно
влияют ли настройки прокси в IE на indy?

[X-rem]

Я понял что у тебя не так)

Код:

begin
   Timer1.Enabled:=False;
try
     page1:=http.get('http://127.0.0.1:8080');
    if http.ResponseCode=200 then begin
    ...рабочий код..
    end else ShowMessage('Нету подключения');
except
   ...
   ShowMessage('Нету подключения [Error]');
   Label4.Caption :=IntToStr(http.ResponseCode);
   ...
   end;