IMetabaseCheckListItem.Hash

Синтаксис

Hash: String;

Описание

Свойство Hash возвращает хеш-код объекта репозитория.

Пример

Для выполнения примера предполагается наличие в корневом каталоге диска "С:" файла "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