IMetabaseCheckListItem.Status

Синтаксис

Status: MetabaseCheckStatus;

Описание

Свойство Status возвращает статус сравнения контрольной суммы объекта.

Комментарии

При добавлении нового объекта статус равен 0. Данное значение изменяется после загрузки сохраненных контрольных сумм и сравнения их с текущими объектами репозитория.

Пример

Для выполнения примера предполагается наличие в корневом каталоге диска "С:" файла "control.crc", содержащего список объектов репозитория их контрольные суммы.

Sub Main;

Var

MB: IMetabase;

CheckList: IMetabaseCheckList;

ListItem: IMetabaseCheckListItem;

Begin

MB := MetabaseClass.Active;

CheckList := MB.CreateCheckList;

CheckList.LoadFromFile("c:\control.crc");

For Each ListItem In CheckList Do

Debug.Write("Идентификатор: " + ListItem.Id);

Debug.Write(" Хеш-код: " + ListItem.Hash);

Debug.Write(" Статус:");

Select Case ListItem.Status As Integer

Case 1: Debug.WriteLine(" - Объект идентичен");

Case 2: Debug.WriteLine(" - Объект имеют отличия");

Case 3: Debug.WriteLine(" - Объект отсутствует в репозитории");

End Select;

End For;

End Sub Main;

После выполнения примера будет осуществлена проверка контрольных сумм объектов репозитория, список которых содержится в файле "control.crc". Идентификатор объектов, хеш-код и результат сравнения контрольных сумм будет выведен в консоль среды разработки.

См. также:

IMetabaseCheckListItem