Показать сообщение отдельно
  #3  
Старый 14.08.2010, 20:22
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.connected
then
Edit1.Text:='Ресурс доступен';
except
Edit1.Text:='Произошла ошибка';
end;
end;

не выводит сообщения
Ответить с цитированием