Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Соединение с Интернет. [D7, WinXP]

kyn66 © (2005-11-01 15:41:00)
Мастера, есть много примеров, чтобы определять САБЖ, для подсчета проведенного времени. Но все они кривые. Вот и сейчас, из примера подключил прогу, а она мне кажет, что я на связи, хоть я вааще ешшо не коннектился. Расконнектился - ноль подсечки. Может кто подскажет реально работающий компонент или кусок кода для этих целей. Именно проверенный. Вот мой что нашел и пробую:
... 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. ...

vrem (2005-11-01 19:06:00) [1]
[6] IceBeerg © (01.11.05 18:17)
D7 - скомпилировалось, но всегда =1 (в таймер засунул) почему так?

IceBeerg (2005-11-01 18:57:00) [2]
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 Кб

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

kyn66 (2005-11-01 18:33:00) [4]
А как управлять, чтобы разделять определение локальной сети и Интернета?
[6] - пишут в статьях, что якобы не всегда корректно определяет наличие коннекта с Инетом

IceBeerg (2005-11-01 18:17:00) [5]
kyn66 © (01.11.05 15:41)
Попробуй:
unit wininet; ... if InternetGetConnectedState(nil,0) Then Label1.Caption:='1' Else Label1.Caption:='0';

vrem (2005-11-01 18:13:00) [6]
прога, бесплатная, для примера. правильно считает(с сотового всё совпадает один в один)
http://safhouse.narod.ru/

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

Digitman (2005-11-01 16:35:00) [8]
а что такое "инет" ? без юиора можно ?

kyn66 (2005-11-01 16:30:00) [9]
А без юмора можно. Вопрос важный. Тут ешшо выяснилось, что этот пример отлавливает локалку, а мне нужно именно инет отслеживать.

Digitman (2005-11-01 15:48:00) [10]

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »