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

Ну очень нужна помощь!   Найти похожие ветки 

← →
Dialogig   (2002-03-20 17:50) [0]

Помогите пожалуйста.В FAQ и читал про то как определить подключен ли компьютер к сети, но размер функций там слишком большой, может кто-нибудь поможет мне. Пожалуйста приведите примеры проверки связи с интернетом

---

← →
Dialogig   (2002-03-20 17:52) [1]

Маленькая поправочка, подключен ли комп к интернету

---

← →
Song ©   (2002-03-20 17:57) [2]

Самый эффективный, но медленный: в реестре ключик появляется при подключении, сейчас какой не помню, но завтра на работе могу посмотреть, если не подскажут до этого времени.

---

← →
Helpwuin   (2002-03-20 18:01) [3]

А при помощи INternetOpen -можно??

---

← →
Nebula ©   (2002-03-21 10:05) [4]

Самый верный способ - попытка подключения, через то-же InternetOpenURL. Есть функция InternetGetConnectedState, но она проверяет есть ли активное default dialup соединение. MSDN, для опеределия соединения с Internet, рекомендует попытаться подключиться к чему-нибудь. Еще есть функция IsDestinationReachable - проверяет доступность хоста, но она не рабоет через Proxy и Firewall (либо соответсвующие натсройки).

---

← →
Alx2 ©   (2002-03-21 10:29) [5]

Готовая программа для этого есть на http://delphi.mastak.ru/download/programs.html

---

← →
Song ©   (2002-03-21 11:06) [6]

Ok, первый способ:
1. Нужна dll:

Function InetIsOffLine(Flag:Integer):Boolean; stdcall; external "URL.dll";

....

IF InetIsOffLine(0) then ShowMessage("You are OffLine!") else ShowMessage("You are OnLine");
Для использования этой функции есть одно НО: она возвращает False, когда нет подключения к интернету (то что нужно), но и когда ЕЩЁ НЕ БЫЛО подключения к интернету.



2. Нужна dll

Const Internet_Connetion_Modem=1;
Internet_Connetion_LAN=2;
Internet_Connetion_PROXY=4;
Internet_Connetion_Modem_BUSY=8;
WinetDll="wininet.dll";
Function InternetGetConnectedState(lpdwFlags: LPDWORD; dwReserved: DWORD): Bool; stdcall; external winetdll name "InternetGetConnectedState";
....

Function WhetherInternetConnected: Boolean;
Var dwConnectionTypes: DWORD;
Begin
dwConnectionTypes:=Internet_Connetion_Modem+Internet_Connetion_LAN+Internet_Connetion_PROXY;
Result:=InternetGetConnectedState(@dwConnectionsType,0);
End;


3. Ключик в реестре не нахожу :((

---

← →
Wonder ©   (2002-03-21 11:27) [7]

http://delphi.mastak.com/articles/connect-inet.html

---

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

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



Память: 0.46 MB
Время: 0.007 c