Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

11th
Июл

При отсутствии коннекта IdHttp должен быть выключен

Posted by maloy under Delphi

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;

тема на форуме

Последние записи

При отсутствии коннекта IdHttp должен быть выключен

Похожие статьи

Купить рекламу на сайте за 1000 руб

пишите сюда - alarforum@yandex.ru