Содержание

CheckAvailability

Проверяет указанную страницу на доступность. Прекращает выполнение задания, если страница оказалась недоступна.

Синтаксис

procedure CheckAvailability(aPage: string; aExpectedIP: string = '0.0.0.0';
  aIncludedText: string = ''; aUserAgent: string = ''); overload;
procedure CheckAvailability(aCheckItem: TCSCheckItem); overload;
procedure CheckAvailability(aCheckItems: TCSCheckItems); overload;

Параметры

  • aPage
    • тип: string
    • назначение: проверяемая страница
  • aExpectedIP
    • тип: string
    • назначение: предполагаемый IP хоста, на котором находится страница
  • aIncludedText
    • тип: string
    • назначение: текст, содержащийся в исходном коде проверяемой страницы
  • aUserAgent
    • тип: string
    • назначение: User-agent, который будет указан при загрузке исходного кода проверяемой страницы
  • aCheckItem
    • тип: TCSCheckItem
    • назначение: запись, содержащая данные, необходимые для проверки страницы
  • aCheckItems
    • тип: TCSCheckItems
    • назначение: массив записей для проверки нескольких страниц

Замечания

  • Проверка страницы проходит по следующему алгоритму:
    1. проверяется доступность хоста, на котором располагается страница. Если хост доступен, то
    2. если IP хоста совпадает с aExpectedIP или aExpectedIP равен '0.0.0.0', то
    3. если aIncludedText не пустая строка, то загружается исходный код страницы с использованием aUserAgent (редиректы не поддерживаются!). Если aUserAgent пустой, то используется User-agent, установленный для браузера. Если исходный код страницы содержит aIncludedText или aIncludedText - пустая строка, то
    4. проверка пройдена, скрипт продолжает выполнение
  • Если проверка не пройдена, то скрипт прекратит выполнение
  • Процедура может быть выполнена только один раз и только в случае, если является первым выполняемым в скрипте методом. Если до этого были выполнены другие методы, то ПО проигнорирует CheckAvailability.
  • Если проверяется массив страниц, то будут проверены только первые пять элементов массива

Примеры

  1. CheckAvailability('habrahabr.ru');
  2. CheckAvailability('habrahabr.ru', '178.248.233.33');
  3. CheckAvailability('habrahabr.ru', '178.248.233.33', 'habr');
  4. var CheckItem: TCSCheckITem;
CheckItem.Page := 'habrahabr.ru';
CheckAvailability(CheckItem);
  5. var CheckItems: TCSCheckITems;
var CheckItem: TCSCheckItem;
CheckItem.Page := 'habrahabr.ru';
CheckItem.ExpectedIP := '178.248.233.33';
CheckItems.Add(CheckItem);
CheckAvailability(CheckItems);