IAuditLog.OpenChangesHistoryLog

Копировать пример

Sub UserProc;
Var
    Mb: IMetabase;
    Security: IMetabaseSecurity;
    AL: IAuditLog;
    History: IChangesHistoryAuditLog;
    Lic: Object;
Begin
    Mb := MetabaseClass.Active;
    // Получение лицензии для возможности работы с менеджером безопасности
    Lic := Mb.RequestLicense(UiLicenseFeatureType.Adm);
    Security := Mb.Security;
    // Открытие протокола доступа
    AL := Security.OpenAuditLog;
    // Получение журнала изменений объектов
    History := AL.OpenChangesHistoryLog;
    // Вывод информации из журнала в консоль среды разработки
    While Not History.Eof Do
        Debug.WriteLine(History.ObjectName + '(' + History.ObjectId + ", класс: " + History.ObjectClass.ToString + ')' + " - " + History.Name + ". " +
            DateTime.FromDouble(History.Stamp).ToString + '|' +
            History.Station + '|' +
            History.UserIP + '|' + History.UserName + '|' + History.UserOS);
        History.Next;
    End While;
    // Освобождение лицензии
    Lic := Null;
End Sub UserProc;