Показать сообщение отдельно
  #9  
Старый 14.08.2010, 21:28
harbor harbor вне форума
Новичок
 
Регистрация: 15.01.2010
Сообщения: 83
Репутация: 10
По умолчанию

вот такой код
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
 try
  //Edit2.Text:=http://127.0.0.1:8080
idHTTP1.Get(Edit2.Text);
if idHTTP1.ResponseCode=200 then begin

ShowMessage('Connected'); end else ShowMessage(IntToStr(idHTTP1.ResponseCode));
except
   ShowMessage('Not Connected '+IntToStr(idHTTP1.ResponseCode));
end;
end;

работает странным образом
если сервер доступен то вроде как пишет конектед
как только отключаю, то пишет Not Connected, но ResponseCode пишет все равно 200, как будто бы он сохранился с момента коннекта. а после старта сервера уже не показывает что есть подключение.
вот какойто глюк странный с этим кодом
Ответить с цитированием