====== 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//**
* //тип:// [[ru:wascript:pascal:records:tcscheckitem]]
* //назначение:// запись, содержащая данные, необходимые для проверки страницы
* **//aCheckItems//**
* //тип:// [[ru:wascript:pascal:types:tcscheckitems]]
* //назначение:// массив записей для проверки нескольких страниц
===== Замечания =====
* Проверка страницы проходит по следующему алгоритму:
- проверяется доступность хоста, на котором располагается страница. Если хост доступен, то
- если IP хоста совпадает с aExpectedIP или aExpectedIP равен '0.0.0.0', то
- если aIncludedText не пустая строка, то загружается исходный код страницы с использованием aUserAgent (редиректы не поддерживаются!). Если aUserAgent пустой, то используется User-agent, установленный для браузера. Если исходный код страницы содержит aIncludedText или aIncludedText - пустая строка, то
- проверка пройдена, скрипт продолжает выполнение
* Если проверка не пройдена, то скрипт прекратит выполнение
* Процедура может быть выполнена только один раз и только в случае, если является первым выполняемым в скрипте методом. Если до этого были выполнены другие методы, то ПО проигнорирует CheckAvailability.
* Если проверяется массив страниц, то будут проверены только первые пять элементов массива
===== Примеры =====
- CheckAvailability('habrahabr.ru');
- CheckAvailability('habrahabr.ru', '178.248.233.33');
- CheckAvailability('habrahabr.ru', '178.248.233.33', 'habr');
- var CheckItem: TCSCheckITem;
CheckItem.Page := 'habrahabr.ru';
CheckAvailability(CheckItem);
- var CheckItems: TCSCheckITems;
var CheckItem: TCSCheckItem;
CheckItem.Page := 'habrahabr.ru';
CheckItem.ExpectedIP := '178.248.233.33';
CheckItems.Add(CheckItem);
CheckAvailability(CheckItems);