Форум: "Сети";
Текущий архив: 2008.06.08;
Скачать: [xml.tar.bz2];
ВнизОтследить момент подключения компьютера к интернет... Найти похожие ветки
← →
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]Автор исчез, чего то испугался.
← →
clickmaker © (2007-08-29 12:03) [6]InternetAttemptConnect()
← →
Rouse_ © (2007-08-29 22:51) [7]
> clickmaker © (29.08.07 12:03) [6]
> InternetAttemptConnect()
Не смешно :)
← →
grisme © (2007-09-01 01:00) [8]как вариант, периодически пробовать установить соединение (или получить DNS) с внешним сервером. Winsock в ноги :)
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2008.06.08;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.046 c