В продолжение темы. По тестированию на кабеле у одного из моих пользователей. RasConnectionCount корректно определяет отключение от Инета, но возвращает 1 уже при вызове окна подключения удаленного доступа, что уже не есть правильно.
InternetGetConnectedState из WinInet наоборот - корректно определяет подключение, но только в первый раз. После отключения от Инета она так и остается в True (имеется в виду ситуация на том конкретном компе) Есть ли возможность программно заставить ее обновиться или принудительно перевести в False?
Вопрос наверняка глупый, но у меня на это ума пока не хватает

Я вобще пользуюсь такой простой функцией
Правда если соединение у клиента поддерживается только через прокси то такая функция отпадает, а кроме таких случаев 100% надёжная.

Код

uses WinInet function IsConnection(URL:string):boolean; var   hSession,hfile: hInternet;   dwindex,dwcodelen: dword;   dwcode: array[1..20] of char;   res: pchar; begin Result:= false; if URL = '' then exit; hSession:= InternetOpen('InetURL:/1.0',INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0); if assigned(hsession) then begin   hfile:= InternetOpenUrl(hsession,pchar(URL),nil,0,INTERNET_FLAG_RELOAD,0);   dwIndex:= 0;   dwCodeLen:= 10;   HttpQueryInfo(hfile,HTTP_QUERY_STATUS_CODE,@dwcode,dwcodeLen,dwIndex);   res:= pchar(@dwcode);   result:= (res ='200') or (res ='302');   if assigned(hfile) then InternetCloseHandle(hfile);   InternetCloseHandle(hsession); end; end; IsConnection(www.microsoft.com') ...

Нет, по-крайней мере у меня на модеме этот пример ведет себя неадекватно - при запуске тут же начинают выскакивать окна подключения удаленного доступа, при чем, по одному на каждое срабатывание таймера.

Код

procedure TForm1.Timer1Timer(Sender: TObject); var url:string; begin     url:='http://www.yandex.ru';     if IsConnection(url) then     Label1.Caption:='Есть' else     Label1.Caption:='Нет'; end;

После отключения от Инета картина полностью повторяется.
Если же задаю URL без преффикса http:// , то функция постоянно возвращает False

Цитата(Poseidon @ 23.7.2005, 12:53)

Проверил у себя на выделенке. Все работает. RasConnectionCount вернула 1(что меня удивило)

Не всегда енто будет работать

PS: Да и вообще... может пользователь соединяется не с интернет(провайдером) через модем!

Это сообщение отредактировал(а) Girder - 24.7.2005, 17:26

Цитата(v258 @ 24.7.2005, 09:00)

тут же начинают выскакивать окна подключения удаленного доступа, при чем, по одному на каждое срабатывание таймера.

Это где-то в настройках виндовс отключается.

Цитата

Это где-то в настройках виндовс отключается

И я даже знаю, где, но это далеко не всех устроит. По крайней мере, меня точно - я привык именно к таким настройкам

Цитата

Не всегда енто будет работать

На модеме работает, а на выделенке - возвращает 1 уже при вызове окна соединения удаленного доступа (по-крайней мере на одном компе именно так и было) Короче, все эти функции работают более-менее корректно на диалапе, а вот на кабеле возможно все, что угодно

Тут один деятель накатал программу для проверки коннекта.

Требуются компоненты ICS.

Исходник:

Присоединённый файл ( Кол-во скачиваний: 19 )
 connectioncheck.zip 29,61 Kb

Цитата

Требуются компоненты ICS.

А где их можно взять?

www.overbyte.be

ОК, спасибо