Как проверить соединение с интернетом в delphi?

@nicolette.stoltenberg 

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

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15

uses
  IdHTTP;

var
  HTTP: TIdHTTP;
begin
  HTTP := TIdHTTP.Create(nil);
  try
    HTTP.Get('http://www.google.com');
    ShowMessage('Соединение с интернетом установлено');
  except
    ShowMessage('Соединение с интернетом не установлено');
  end;
  HTTP.Free;
end;

Вы также можете использовать ф