Как отследить подключение к Интернету?

← →
Farpik © (2006-03-06 14:20) [0]

Здравствуйте!!!
Подскажите, кто знает, как отследить подключение к Интернету??? (Т.е. если подключение активно, то программа выполняет свои действия).

← →
Сергей М. © (2006-03-06 14:28) [1]

Никак.
Можно отследить лишь подключение к компьютеру другой сети, которая может быть (но не обязана быть) сетью Интернет-провайдера.

← →
Новочеркасский Волк © (2006-03-06 14:30) [2]

Да сам с такой проблеммой столкнулся. Долго искал. Но вот нашёл. ЛОВИ!!!
function GetConnect(var strKind: string): Boolean; var flags: DWORD; begin strKind := ""; Result := InternetGetConnectedState(@flags, 0); if Result then begin if (flags and 1) = 1 then strKind := "Modem"; if (flags and 2) = 2 then strKind := "LAN"; if (flags and 4) = 4 then strKind := "Proxy"; if (flags and 8) = 8 then strKind := "Modem Busy"; end; end; procedure TForm1.Button1Click(Sender: TObject); var strkind:string; begin if GetConnect(strKind)and(strkind="Modem") then begin ShowMessage("Есть коннект"); end else ShowMessage("Нет коннекта"); end;

← →
Сергей М. © (2006-03-06 14:30) [3]

Более того, даже успешное подключение к своей сети, заведомо имеющей выход в сеть инет-провайдера, не может быть фактом подключения к Интернет.

← →
antonn © (2006-03-06 14:31) [4]

если подключение из разряда "Удаленных", то через RasApi

← →
Сергей М. © (2006-03-06 14:33) [5]

> Новочеркасский Волк © (06.03.06 14:30) [2]

Глупости все это.

Факт подключения (тем или иным образом) к некоей сети не есть сам по себе факт подключения к Интернет.

← →
dabreezy (2006-03-06 18:32) [6]

Легче всего взять и проверить через TidHTTP компонент indy. Например методом get проверить сайты yandex.ru, rambler.ru, google.com и все. Если хотя бы один отвечает значит инет включен :)

← →
Marser © (2006-03-06 18:42) [7]

> [6] dabreezy (06.03.06 18:32)
> Легче всего взять и проверить через TidHTTP компонент indy.
> Например методом get проверить сайты yandex.ru, rambler.ru,
> google.com и все. Если хотя бы один отвечает значит инет
> включен :)

А если нет, то юзер наблюдает гламурное окошко диалера :-)

← →
dabreezy (2006-03-06 18:52) [8]

> Marser © (06.03.06 18:42) [7]

Ну а если google.com не работает, значит сегодня не день юзера :)

"function GetConnect(var strKind: string): Boolean;
var
flags: DWORD;
begin
strKind := "";
Result := InternetGetConnectedState(@flags, 0);
if Result then
begin
if (flags and 1) = 1 then strKind := "Modem";
if (flags and 2) = 2 then strKind := "LAN";
if (flags and 4) = 4 then strKind := "Proxy";
if (flags and 8) = 8 then strKind := "Modem Busy";
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
strkind:string;
begin
if GetConnect(strKind)and(strkind="Modem") then
begin
ShowMessage("Есть коннект");
end
else
ShowMessage("Нет коннекта");
end;"

Дельфя кричит, что идентификатор не объявлен(

При этом выделяет InternetGetConnectedState

пинг на стабильный севак - майкрософт к примеру. Если все ок - инет есть...
По другому имхо никак...

Спасибо всем!

Как отследить подключение к Интернету? Найти похожие ветки