Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Вниз

Как узнать подключон компютер к интернету в данный момент 


Basaev   (2001-11-04 04:44) [0]

Как узнать подключон компютер к интернету в данный момент



Ajax   (2001-11-04 09:07) [1]

Один из вариантов - это проверять IP. Если не 127.0.0.1, значит в сети. Но это кажется не слишком надежно.



Di_wind   (2001-11-04 15:40) [2]

Если через модем то на сайте в faq или в компонентах есть готовый ответы, неполенись полазить



Anatoly Podgoretsky   (2001-11-04 15:43) [3]

Определить с помощью чего подключен, с помощью WinInet.dll+GetConnectedState
Возможные варианты
1. не подключен
2. модем
3. LAN или Proxy



krimer   (2001-11-04 18:58) [4]

posilai ping na vsem obsheizvestnii sait tipa list.ru esli dohlii znachit konektu nema



Dabus   (2001-11-04 20:46) [5]

Я попробовал всякие там внешние процедуры из URL.DLL и WININET.DLL -
Скажем URL работать не захотела, а в WININET листинга лишнего много.
Ну полез в реестр. Там ключ есть, он указывает на наличе соединения
Dial-Up. (Если это конечно кому-то поможет. Лично мне помогло!)

var:
i_connected: byte;
r0: TRegistry;

...
...

r0 := TRegistry.Create;
r0.RootKey := HKEY_LOCAL_MACHINE;
r0.OpenKey("System\CurrentControlSet\Services\RemoteAccess", False);
r0.ReadBinaryData("Remote Connection",i_connected,SizeOf(i_connected));
r0.Free;
// i_connected=0 нет связи /=1 есть связь

Кстати. Сайты бывает молчат, особенно популярные. Так-что Ping не выход.
Успехов.



Dima-k17   (2001-11-05 18:37) [6]

Надо импортировать функцию
InetsOffline



Anatoly Podgoretsky   (2001-11-05 20:15) [7]

Это касается только IE, но не относится к подключению к Интернету.




Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.016 c
7-90396           Nikolay               2001-10-18 21:50  2002.01.28  
Tic-tac-свежесть всего в двух калориях?


14-90359          MC TOL                2001-12-03 14:40  2002.01.28  
Геометрическая задачка для 8-го класса.


1-90267           elk                   2002-01-09 13:24  2002.01.28  
перекодировка hello <-> руддщ


4-90409           Dimbambon             2001-11-24 22:51  2002.01.28  
КАК СДЕЛАТЬ, ЧТО БЫ ПРИ ЗАПУСКЕ МОЯ ПРОГРАММА В Labele ОТОБРАЖАЛА ПРОИЗВОЛЬНОЕ ЧИСЛО?


1-90270           dimonf                2002-01-09 21:24  2002.01.28  
Народ, как маштабировать одну ось в графике, например Y?