Форум: "Сети";
Текущий архив: 2002.05.30;
Скачать: [xml.tar.bz2];
Вниз
Ну очень нужна помощь! Найти похожие ветки
← →
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 вся ветка
Форум: "Сети";
Текущий архив: 2002.05.30;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.004 c
