такой код вобще не работает у меня
Код:
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;
не выводит сообщения