Форумы на Хакер

Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.

Проверка соединения с интернетом (delphi 7)

Пользователи, просматривающие топик: none

Зашли как: Guest

Все форумы >> [Компилируемые языки] >> Проверка соединения с интернетом (delphi 7)

Имя

Сообщение

<< Старые топики Новые топики >>

Проверка соединения с интернетом (delphi 7) - 2009-03-02 08:32:51.670000

ZeitGeist7

Сообщений: 67
Оценки: 0
Присоединился: 2008-09-21 21:58:46.603333


 function CheckUrl(url: string): boolean; 
 var 
   hSession, hfile, hRequest: hInternet;
   dwindex, dwcodelen: dword; 
   dwcode: array [1..20] of char; 
   res: pchar; 
 begin 
   if pos('http://', lowercase(url)) = 0 then 
     url := 'http://'+url; 
   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;

функция проверки соединения с интернетом через подключение к определённой ссылке.
имеет противное свойство подвисать если не может достучатся до ссылки. если нет соединения то функция тратит аж 21(!) секунду для того что бы вернуть false
есть какие нибудь другие альтернативы (более быстрые) проверки??

Post #: 1

RE: Проверка соединения с интернетом (delphi 7) - 2009-03-05 01:46:57.893333

HolyAnimal =^.^=

Сообщений: 88
Оценки: 0
Присоединился: 2009-02-28 01:26:28.003333

Юзай на здоровье -_^


 ...
 uses
   WinInet;
 ...
 function IsConnectedToInternet: Boolean;
 var
   dwConnectionTypes: DWORD;
 begin
   dwConnectionTypes:= INTERNET_CONNECTION_MODEM+INTERNET_CONNECTION_LAN+INTERNET_CONNECTION_PROXY;
   Result := InternetGetConnectedState(@dwConnectionTypes, 0);
 end;
 ...
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   if IsConnectedToInternet
     then ShowMessage('Connected ^_^')
     else ShowMessage('Not Connected T_T');
 end;
 ...

Post #: 2

RE: Проверка соединения с интернетом (delphi 7) - 2009-03-05 02:22:04.056666

_SaZ_

Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333

Блин, что за дурной фанатизм у дельфийщиков флаги складывать. Неужели не знаете про логические операции? Ведь так правильнее.
INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or INTERNET_CONNECTION_PROXY;

Post #: 3

RE: Проверка соединения с интернетом (delphi 7) - 2009-03-05 02:40:08.903333

HolyAnimal =^.^=

Сообщений: 88
Оценки: 0
Присоединился: 2009-02-28 01:26:28.003333

больше не буду складывать ^_^
спс что поправил -_^

Post #: 4

Страниц: [1]

Все форумы >> [Компилируемые языки] >> Проверка соединения с интернетом (delphi 7)

Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.