Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 159

•  TDictionary Custom Sort  6 224

•  Fast Watermark Sources  6 020

•  3D Designer  8 918

•  Sik Screen Capture  6 355

•  Patch Maker  6 773

•  Айболит (remote control)  6 755

•  ListBox Drag & Drop  5 630

•  Доска для игры Реверси  96 209

•  Графические эффекты  6 978

•  Рисование по маске  6 248

•  Перетаскивание изображений  5 148

•  Canvas Drawing  5 517

•  Рисование Луны  5 218

•  Поворот изображения  4 766

•  Рисование стержней  3 370

•  Paint on Shape  2 623

•  Генератор кроссвордов  3 513

•  Головоломка Paletto  2 804

•  Теорема Монжа об окружностях  3 615

•  Пазл Numbrix  2 366

•  Заборы и коммивояжеры  3 046

•  Игра HIP  2 002

•  Игра Go (Го)  1 927

•  Симулятор лифта  2 285

•  Программа укладки плитки  1 988

•  Генератор лабиринта  2 442

•  Проверка числового ввода  2 125

•  HEX View  2 460

•  Физический маятник  2 079

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

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



Delphi Sources

Проверить существование определённого 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;








Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте