Delphi Проверка Интернет Соединения

Одной из важных задач при разработке приложений, использующих интернет-соединение, является проверка наличия подключения. В Delphi для этого можно использовать класс TIdHTTP из библиотеки Indy.

IdHTTP := TIdHTTP.Create(nil);
try
  IdHTTP.Head('http://www.google.com/');
  Result := True;
except on E: Exception do
  Result := False;
end;
IdHTTP.Free;

В приведенном выше примере мы создаем экземпляр класса TIdHTTP и отправляем запрос методом HEAD на сайт www.google.com. Если запрос выполнен успешно, то возвращаем результат True, что означает наличие интернет-соединения. Если выполнить запрос не удалось, то возвращаем False.

Данный код можно использовать для проверки интернет-соединения в любом месте вашего приложения, например при загрузке страницы или при попытке отправить данные на сервер.