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