Сейчас мы научимся проверять с помощью программы, написанной в среде Delphi, подключение к интернету.
Мы будем использовать библиотеку WinInet.
В интернете есть куча способов, чтобы проверить соединение к интернету, правда многие не рабочие.
Итак. Создадим новый проект, кинем на созданную форму Button1 с вкладки Standart. Жмем F12 и переходим в редактор кода. В раздел uses пишем WinInet.
После строки с «{$R *.dfm}» объявляем новую функцию с названием «IsConnectedToInternet» и пишем:
function IsConnectedToInternet: Boolean;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes :=
INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;
Снова жмем F12, переходим на форму, кликаем два раза по кнопке, создавая событие OnClick, и пишем следующее:
begin
if IsConnectedToInternet then
ShowMessage(‘Connected.’)
else
ShowMessage(‘Not Connected.’)
end;
Вот впринципе и все :) . Полностью код выглядит так:
function IsConnectedToInternet: Boolean;
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes :=
INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
if IsConnectedToInternet then
ShowMessage(‘Connected.’)
else
ShowMessage(‘Not Connected.’)
end;
Компилируем (F9) программу, жмем на кнопку и смотрим на результат.