Соединение с Интернет.

← →
kyn66 © (2005-11-01 15:41) [0]

Мастера, есть много примеров, чтобы определять САБЖ, для подсчета проведенного времени. Но все они кривые. Вот и сейчас, из примера подключил прогу, а она мне кажет, что я на связи, хоть я вааще ешшо не коннектился. Расконнектился - ноль подсечки. Может кто подскажет реально работающий компонент или кусок кода для этих целей. Именно проверенный. Вот мой что нашел и пробую:
... function InetIsOffline(Flag: Integer): Boolean; stdcall; external "URL.DLL"; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); begin if InetIsOffline(0) then Label1.Caption := "Нет соединения с Интернет" else Label1.Caption := "На связи !" end; end. ...

← →
Digitman © (2005-11-01 15:48) [1]

> ноль подсечки

значит наживка гнилая)

← →
kyn66 © (2005-11-01 16:30) [2]

А без юмора можно. Вопрос важный. Тут ешшо выяснилось, что этот пример отлавливает локалку, а мне нужно именно инет отслеживать.

← →
Digitman © (2005-11-01 16:35) [3]

а что такое "инет" ? без юиора можно ?

← →
Antonn © (2005-11-01 17:04) [4]

kyn66 © (01.11.05 16:30) [2]
именно инет
он бывает разный. Для удаленных соединений можно использовать RAS API, взять на http://www.torry.net/

← →
vrem (2005-11-01 18:13) [5]

прога, бесплатная, для примера. правильно считает(с сотового всё совпадает один в один)
http://safhouse.narod.ru/

← →
IceBeerg © (2005-11-01 18:17) [6]

kyn66 © (01.11.05 15:41)
Попробуй:
unit wininet; ... if InternetGetConnectedState(nil,0) Then Label1.Caption:="1" Else Label1.Caption:="0";

← →
kyn66 © (2005-11-01 18:33) [7]

А как управлять, чтобы разделять определение локальной сети и Интернета?
[6] - пишут в статьях, что якобы не всегда корректно определяет наличие коннекта с Инетом

kyn66 © (01.11.05 18:33) [7]
А как управлять, чтобы разделять определение локальной сети и Интернета?
Тут не знаю, но у меня вроде пашет без проблем, постоянно в локале, но инетовские соединения монпиторятся нормально.

kyn66 ©
Кидай свой мыл на мой мыл, завтра
вышлю доку:

WinInet API This section covers the Win32(r) Internet functions, which provide a high-level interface that abstracts the underlying protocols. This section also includes automatic dialing functions to handle dial-up connections.

зипованый файл всего 240 Кб

← →
vrem (2005-11-01 19:06) [10]

Соединение с Интернет. Найти похожие ветки