Проверка существования URL [D7]
Matrex © (2007-10-16 20:42:00)
Коллеги... Нужно ваше мнение. Для проверки существования URL
пользуюсь следующей функцией (см. ниже). Все вроде бы ничего, но
такое ощущение, что эта процедура, прежде чем проверить есть ли URL
пытается его сначала выкачать… Для примера проверка 30 ссылок на
архивы потянула трафика примерно на 15 мегов. Может, есть
альтернативная функция? Или может где ни будь закралась ошибка в
коде? А может так надо?
function TCheckUrl.CheckUrls(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) and
(pos('ftp://', 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;
umbra (2007-10-17 15:33:00) [1]
InternetOpenUrlпытается именно скачать ресурс. Вместо
нее надо использовать
HttpOpenRequest,
HttpSendRequest, проверять код ответа и сразу же
закрывать соединение, не вызывая
InternetReadFile. Траффик все равно будет, но гораздо
меньше.
Наверх 
ЧАТ |
Орешник |
|
