Когда нет Инета IdHttp должен быть выключен.

[Dj_DeVaIs]

Добрый день.
Ситуация такая. Есть прога которая отправляет смс через интернет.
Но бывает так что инет выключен (по не понятным причинам) а в проге надо работать. но в ней нельзя работать так как вылазит ошибка Socket error #10060. Ну это понятно так как нет интернета он и не может соединиться с сервером.
Запрос делаю через get.

Отсюда вопрос как выключить в IdHttp проверку или сделать выключение его самого что бы когда инета нет он не работал? Побывал так

IdHttp.Disconnect

ни чего не помогло...Прошу Вашей помощи.

[Пепел Феникса]

а может обработчик ошибок добавить? не?

[BARNEY]

Try 
get.
Except
IdHttp.Disconnect;
end;

[Dj_DeVaIs]

сделал. спасибо за помошь.

вот код кому надо:

function CheckInternetConnection(Host: string='google.com'; Port: integer=80; Timeout: integer=1000): boolean;
  var TCP: TIdTCPClient;
begin
  TCP:=TIdTCPClient.Create(nil);
  try
    TCP.Host:=Host;
    TCP.Port:=Port;
    TCP.ConnectTimeout:=Timeout;
    try
      TCP.Connect;
      Result:=TCP.Connected;
      FMain.StatusBar1.Panels[1].Text:='Интернет: - Есть';
    except
     on  e: exception do
     begin
      Result:=false;
      FMain.StatusBar1.Panels[1].Text:='Интернет: - Нет';
      FSMS2014.IdHTTP1.Free;
      FSMS2014.IdHTTP2.Free;

      FOdin_SMS.IdHTTP1.Free;
      FOdin_SMS.IdHTTP2.Free;



     end;
    end;
  finally
    TCP.Free;
  end;
end;

[eval]

'Интернет: - Нет'

далеко не факт

IdHttp TIdTCPClient ?? несколько странновато

[Stilet]

IdHttp TIdTCPClient ?? несколько странновато

Кстати да. TIdTCPClient дизконнекта не требует при отрубе инета. Это событие должно самостоятельно возникнуть.
А вот IdHttp он вообще независим - послал запрос, получил данные и все. Он отключен. За ним проверять ничего не надо. Так всетки - какой-же компонент используется?

[Dj_DeVaIs]

использоваться IdHTTP. для отправки смс.
а TIdTCPClient это просто для проверки интернета.

[Stilet]

Нет смысла. Если IdHTTP слажает, это можно отловить в try-except и в цикле повторить попытку. Лепить сюда второй компонент только для проверки это как пятое колесо зайцу. И потом ты уж если проверяешь соединение лучше используй обычный Ping.

[eval]

а TIdTCPClient это просто для проверки интернета.

http://www.foxbase.ru/delphi/proverk...t-v-delphi.htm

что пинг что не пинг. все едино
какая разница есть инет или нет, если целевой сайт (сервер) в дауне? - никакой
какая разница есть пинг или нет, если целевой сайт (сервер) в дауне? - никакой
какая разница сайт (сервер) в дауне или нет, если инета нет? - никакой

отсюда вывод - обыкновенная работа с исключениями вполне себе достаточна

для проверки соединения хватает и того что есть
http://z-oleg.com/delphi/net2.htm и тут автор также делает вывод

Следовательно, я хочу сформулировать вывод: Бессмысленно анализировать факт наличия некоего абстрактного "соединение с Интернет" - нужно пробовать выполнить заданную операцию и анализировать успешность ее выполнения. Или, перефразируя вышесказанное, наличие связи нужно рассматиривать в контексте каждого конретного сервера Интернет для каждой конкретной операции. Инача возможна ситуация, когда, к примеру, сервер отвечает на ping, но доступ к нему по порту 80 закрыт - в данном случае даже ping не является показателем наличия связи и доступности сервера