IMetabaseCheckListItem.Status

Syntax

Status: MetabaseCheckStatus;

Description

The Status property returns a status of comparison of the object checksum.

Comments

The status is 0 when adding a new object. This value is changed after loading of the saved checksums and their comparison with the current repository objects.

Example

Executing the example requires the control.crc file that contains a list of repository objects and their checksums in the root of the C drive.

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("Identifier: " + ListItem.Id);

Debug.Write(" Hash code: " + ListItem.Hash);

Debug.Write(" Status:");

Select Case ListItem.Status As Integer

Case 1: Debug.WriteLine(" - Object is identical");

Case 2: Debug.WriteLine(" - Objects are not identical");

Case 3: Debug.WriteLine(" - Object is not present in the repository");

End Select;

End For;

End Sub Main;

After executing the example the checksums of the repository objects, the list of which is contained in the control.crc file are checked. Identifier of the objects, the hash code and the result of checksums comparison are displayed in the development environment console.

See also:

IMetabaseCheckListItem