Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=39882&view=findpost&p=258540 Sat, 06 Dec 2003 06:11:11 +0000 Существует URL ? https://forum.sources.ru/index.php?showtopic=39882&view=findpost&p=258540
URL может быть как с префиксом http:/ так и без него - эта функция добавляет префикс 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('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;
]]> Song Интернет, сети, протоколы