Скачать: CL | DM;

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

← →
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 не работает, значит сегодня не день юзера :)

---

← →
MaSZ ©   (2006-03-06 22:40) [9]

"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;"

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

---

← →
MaSZ ©   (2006-03-06 22:46) [10]

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

---

← →
HF-Trade ©   (2006-03-07 04:18) [11]

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

---

← →
Farpik ©   (2006-03-07 07:31) [12]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.036 c