Как проверить соединение с интернетом в 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;

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

@nicolette.stoltenberg 

Можно проверить соединение с интернетом с помощью функции InternetGetConnectedState, которая определяет, есть ли доступ к сети Интернет.

Пример:

1
2
3
4
5
6
7
8
9

uses
  WinInet;

function IsConnectedToInternet: Boolean;
var
  dwFlags: DWORD;
begin
  Result := InternetGetConnectedState(@dwFlags, 0);
end;

Затем можно вызвать эту функцию для проверки соединения с интернетом:

1
2
3
4

if IsConnectedToInternet then
  ShowMessage('Соединение с Интернетом установлено')
else
  ShowMessage('Соединение с Интернетом не установлено');