OpenOperations(Session: Integer): IAuditOperations;
Session. Номер сессии.
Метод OpenOperations возвращает список операций, произведенных в репозитории, в линейном виде.
Для получения информации о соединениях с репозиторием используйте свойство IAuditLog.OpenLogons.
Для выполнения примера добавьте ссылку на системную сборку Metabase.
Sub UserProc;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
AL: IAuditLog;
ALogs: IAuditLogons;
AOperat: IAuditOperations;
s: Array[0..10] Of String;
i: Integer;
Lic: Object;
Begin
MB := MetabaseClass.Active;
// Получим лицензию для возможности работы с менеджером безопасности
Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
MS := MB.Security;
// Откроем протокол доступа
AL := MS.OpenAuditLog;
// Отключим использование
фильтра протокола доступа
ALogs := AL.OpenLogons(False);
// Сформируем список операций
AOperat := AL.OpenOperations(ALogs.Session);
// Выведем номера текущей сессии
в консоль
Debug.WriteLine("Сессия " + ALogs.Session.ToString + ": ");
For i := 0 To 9 Do
s[i] := AOperat.Name;
Debug.WriteLine(s[i]);
AOperat.Next;
End For;
// Освободим лицензию
Lic := Null;
End Sub UserProc;
После выполнения примера в консоль будут выведены наименования десяти последних операций над объектами текущей сессии репозитория.
См. также: