|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Проверка соединения работает не корректно
есть код примерно так
Код:
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; так вот, пока локальный сервер запущен условие срабатывает нормально потом сервер выключаю и он недоступен, условие не срабатывает когда снова включаю сервер, у меня это условие уже не работает, то есть рабочий код не исполняется, хотя сервер доступен. в чем загвоздка не ясно процедура таймера запускается от кнопки на форме |
#2
|
||||
|
||||
Timer1.Enabled:=False наверно все-таки)
if http.ResponseCode=200 then ---> if http.connected then Пробуй [ Ты не сможешь никому помочь до тех пор, пока не поможешь себе ] Delphi 7 user
ICQ: 570224849 / JID: x-rem@jabber.ru|no / Skype: ukc-rem / VK: ukc_rem.vk.com (ID: 27703738) |
#3
|
|||
|
|||
такой код вобще не работает у меня
Код:
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; не выводит сообщения |
#4
|
||||
|
||||
Код:
Смотри следующее сообщение [ Ты не сможешь никому помочь до тех пор, пока не поможешь себе ] Delphi 7 user
ICQ: 570224849 / JID: x-rem@jabber.ru|no / Skype: ukc-rem / VK: ukc_rem.vk.com (ID: 27703738) Последний раз редактировалось X-rem, 14.08.2010 в 20:54. |
#5
|
|||
|
|||
действительно с другим адресом работает
а с локальным http://127.0.0.1:8080 почему-то не хочет может изза порта, или сервер выдает другие данные? там как бы не сервер стоит, а утилита с веб-интерфесом вот я ее и опрашиваю может можно проверять какнибудь порт, открыт или нет |
#6
|
|||
|
|||
когда я отключаю утилиту и вебинтерфейс отключается
то ResponseCode возвращает -1 с чего это вдруг вобще не ясно влияют ли настройки прокси в IE на indy? |
#7
|
||||
|
||||
Я понял что у тебя не так)
Код:
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; [ Ты не сможешь никому помочь до тех пор, пока не поможешь себе ] Delphi 7 user
ICQ: 570224849 / JID: x-rem@jabber.ru|no / Skype: ukc-rem / VK: ukc_rem.vk.com (ID: 27703738) |