Проверить существование определённого URL

Разговор двух заядлых интернетчиков:
- Слышь... это... www.zarplaty.net?
- www.kak.vsegda.net!
- www.kak.zhe.ya.domoy.po.edu?
- www.pesh.com!

Данная функция позволяет Вам проверить существование определённого адреса(URL) в интернете. Естественно она может пригодиться веб-мастерам, у которых на сайте много ссылок, и необходимо с определённой периодичнойстью эти ссылки проверять.

URL может быть как с префиксом http:/ так и без него - эта функция добавляет префикс http:// если он отсутствует (необходимо для функции internetOpenUrl которая так же поддерживает FTP:// и gopher://

Эта функция проверяет только два возвращаемых кода '200'(ОК) или '302' (Редирект), но Вы можете заставить проверять функцию и другие коды. Для этого достаточно модифицировать строчку "result := ".

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;

Недавно добавленные исходники
• Animation Loaders 1 002 • DeLiKaTeS Tetris (Тетрис) 5 933 • TDictionary Custom Sort 7 881 • Fast Watermark Sources 7 550 • 3D Designer 10 782 • Sik Screen Capture 8 113 • Patch Maker 8 303 • Айболит (remote control) 8 358 • ListBox Drag & Drop 7 210 • Доска для игры Реверси 101 300 • Графические эффекты 8 423 • Рисование по маске 7 796 • Перетаскивание изображений 6 388 • Canvas Drawing 6 765 • Рисование Луны 6 693 • Поворот изображения 5 814 • Рисование стержней 4 762 • Paint on Shape 3 459 • Генератор кроссвордов 4 463 • Головоломка Paletto 3 596 • Теорема Монжа об окружностях 4 390 • Пазл Numbrix 2 844 • Заборы и коммивояжеры 3 795 • Игра HIP 2 562 • Игра Go (Го) 2 571 • Симулятор лифта 2 958 • Программа укладки плитки 2 389 • Генератор лабиринта 3 140 • Проверка числового ввода 2 622 • HEX View 3 024