| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Max.66RUS ©   (2007-08-26 20:10:00) 

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

---

grisme   (2007-09-01 01:00:00) [1]

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

---

Rouse_   (2007-08-29 22:51:00) [2]

> clickmaker ©   (29.08.07 12:03) [6]
> InternetAttemptConnect()

Не смешно :)

---

clickmaker   (2007-08-29 12:03:00) [3]

InternetAttemptConnect()

---

Anatoly Podgoretsky   (2007-08-29 10:28:00) [4]

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

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

---

Anatoly Podgoretsky   (2007-08-29 10:28:00) [5]

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

---

Сергей М.   (2007-08-29 09:49:00) [6]

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


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

---

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

Вполне подойдет:

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-27 08:35:00) [8]

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


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

---

Наверх