url может быть как с префиксом http:/ так и без него - эта функция добавляет префикс если он отсутствует (необходимо для функции internetopenurl которая так же поддерживает ftp:// и gopher://
Эта функция проверяет только два возвращаемых кода '200'(ОК) или '302' (Редирект), но Вы можете заставить проверять функцию и другие коды. Для этого достаточно модифицировать строчку "result := ".
Платформа: delphi 3.x (или выше)
uses wininet;
function checkurl(url:string):boolean;
var
hsession, hfile, hrequest: hinternet;
dwindex,dwcodelen :dword;
dwcode:array[1..20] of char;
res : pchar;
begin
if pos('case(url))=0"http://',lowercase(url))=0 then
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;