Текущий архив: 2005.11.27;
Скачать: CL | DM;
Вниз
Соединение с Интернет. Найти похожие ветки
← →
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] - пишут в статьях, что якобы не всегда корректно определяет наличие коннекта с Инетом
← →
IceBeerg © (2005-11-01 18:51) [8]kyn66 © (01.11.05 18:33) [7]
А как управлять, чтобы разделять определение локальной сети и Интернета?
Тут не знаю, но у меня вроде пашет без проблем, постоянно в локале, но инетовские соединения монпиторятся нормально.
← →
IceBeerg © (2005-11-01 18:57) [9]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][6] IceBeerg © (01.11.05 18:17)
D7 - скомпилировалось, но всегда =1 (в таймер засунул) почему так?
Страницы: 1 вся ветка
Текущий архив: 2005.11.27;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.042 c
