Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Интернет и сети \ URL \ Проверка существования URL

Проверка существования URL

Uses WinInet;

Function CheckUrl(Url: String): Boolean;
var
hSession : hInternet;
hfile : hInternet;
hRequest : hInternet;
dwindex : DWord;
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;

Название: Проверка существования URL
Дата публикации: 2004-01-29 (3419 Прочтено)

 
 

 

Page generation 0.032 seconds