Item(Index: Integer): IObjectCheckOutInfoUser;
Index - record index about repository object lock.
The Item property returns information about repository object lock.
Executing the example requires that the repository contains an object with the Obj_1 identifier.
Sub UserProc;
Var
MB: IMetabase;
MDesc: IMetabaseObjectDescriptor;
Info: IObjectCheckOutInfo;
i: Integer;
Begin
MB := MetabaseClass.Active;
MDesc := MB.ItemById("Obj_1");
Info := MDesc.GetCheckOutInfo;
For i := 0 To Info.Count - 1 Do
UserInfo := Info.Item(i);
Debug.Write("User: " + UserInfo.UserName);
Debug.Write("; Machine: " + UserInfo.MachineName);
Debug.Write("; Date and time of lock: " + UserInfo.Stamp.ToString);
Debug.WriteLine("; Comment: " + UserInfo.Comment);
End For;
End Sub UserProc;
After executing this example the information about the lockings of the Obj_1 object is displayed in the development environment console.
See also: