====== 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);