freepascal.ru

Есть подключение по ADSL, необходимо периодически проверять, активно ли оно и если нет то подключать. Как реализовать? (WinXP SP2)

Проверка подключения средствами ОС делается примерно так:

Код: Выделить всё

Function InternetConnected: Boolean;
Var
      dwConnectionTypes : DWORD;
Begin
      dwConnectionTypes :=
      INTERNET_CONNECTION_MODEM +
      INTERNET_CONNECTION_LAN +
      INTERNET_CONNECTION_PROXY;
      Result := InternetGetConnectedState(@dwConnectionTypes,0);
End;


ViruZ писал(а):подключение по ADSL

ViruZ писал(а):если нет то подключать

=) адсл можно подключать и отключать только втыкиванием разьема или на адсл свитче.

при зависании модема у нас стоит баш скрипт который пингует внешний мир каждые Х минут и в случае его отсутствия перегружает модем.

если под подключением имеется ввиду ппое или впн то читать соответствующие технологии.

Я имел ввиду подключение вообще. Просто иногда происходит обрыв подключения, чаще всего ночью, и необходимо повторно подключиться средствами той же ОС.

проще в настройках подключения указать переподключаться.
или заюзать nncron , там есть спец галка на этот случай.