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