Отследить момент подключения компьютера к интернет...

← →
Max.66RUS © (2007-08-26 20:10) [0]

В общем задача такая - требуется програмно отследить момент - когда компьютер пользователя подключается к интернет(тип подключения не важен)... Если например в момент запуска программы подключение отсутствует, то нужна процедура/функция которая бы определила момент когда подключение доступно...

← →
Сергей М. © (2007-08-27 08:35) [1]

> подключается к интернет

Поясни, что, по-твоему, есть "подключение к интернет" ..

← →
Забыл_ник (2007-08-29 09:44) [2]

Вполне подойдет:
function CheckUrl(url: string): boolean; var hSession, hfile: hInternet; dwindex, dwcodelen: dword; dwcode: array [1..20] of char; res: pchar; begin Result := false; 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;

← →
Сергей М. © (2007-08-29 09:49) [3]

> Забыл_ник (29.08.07 09:44) [2]
> Вполне подойдет:

Не подойдет.
Ресурс вполне может быть взят из лок.кэша.

← →
Anatoly Podgoretsky © (2007-08-29 10:28) [4]

> Сергей М. (29.08.2007 09:49:03) [3]

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

← →
Anatoly Podgoretsky © (2007-08-29 10:28) [5]

Автор исчез, чего то испугался.

InternetAttemptConnect()

как вариант, периодически пробовать установить соединение (или получить DNS) с внешним сервером. Winsock в ноги :)

Отследить момент подключения компьютера к интернет... Найти похожие ветки