вот такой код
Код:
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, как будто бы он сохранился с момента коннекта. а после старта сервера уже не показывает что есть подключение.
вот какойто глюк странный с этим кодом