Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c