Проверка соединения с интернетом 2.

[ZeitGeist7]

в продолжение закрытой темы:
функция

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
есть какиенить другие способы(более быстрые) проверки??

[KORN]

измени таймаут за которой он должен достучаться до сайта...
так же можешь юзать idhttp.head(url); он даст результат быстрей и таймаут там можно менять быстро

[ZeitGeist7]

Сообщение от KORN

измени таймаут за которой он должен достучаться до сайта...
так же можешь юзать idhttp.head(url); он даст результат быстрей и таймаут там можно менять быстро

1)что отвечает за таймаут?
2)idhttp.head(url). как им вобще пользоваться?

спасибо за совет. а можно примером?

[KORN]

1) время ожидания ответа от сервера
2) прмер я уже дал... т.е:

try
IDHTTP.Head('google.ru');
ShowMessage('инет есть');
except
ShowMessage('инета нет');
end;

[ZeitGeist7]

1) время ожидания ответа от сервера

определение я знаю)))
контекст: в function CheckUrl(url: string): boolean; (1 пост этой темы)
что отвечает за таймаут (какая переменная)

Кнопку "Правка" видите?
В следующий раз получите нарушение - нечего плодить посты, когда есть возможность редактировать предыдущий.
Я не для слишком умных сказал?

[Orc7]

Сообщение от ZeitGeist7

в продолжение закрытой темы:
функция

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
есть какиенить другие способы(более быстрые) проверки??

Проверка идет 1 секунду, если изменить так:

function CheckUrl(url: string): boolean; 
var 
  hSession, hfile, hRequest: hInternet;
  dwindex, dwcodelen: dword; 
  dwcode: array [1..20] of char; 
  res: pchar; 
  dwTimeOut: integer;
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); 
dwTimeOut := 1000;
InternetSetOption(hsession, INTERNET_OPTION_CONNECT_TIMEOUT, @dwTimeOut, SizeOf(dwTimeOut));
  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); 
    InternetSetOption(hfile, INTERNET_OPTION_CONNECT_TIMEOUT, @dwTimeOut, SizeOf(dwTimeOut));
    res := pchar(@dwcode); 
    result := (res = '200') or (res = '302'); 
    if assigned(hfile) then 
      InternetCloseHandle(hfile); 
    InternetCloseHandle(hsession); 
  end; 
end;

Второй раз использовать функцию InternetSetOption конечно необязательно в данном примере. Нужн только, если hfile будет использоваться в следующих функциях.

Спасибо ZeitGeist7 за приведенную функцию. Лучшая функция для проверки интернет соеденения. Лучше чем компоненты Indy и FastNet, нормально не работающие с прокси заданным через IE