IAuditLog.Archival

Синтаксис

Archival: Boolean;

Описание

Свойство Archival возвращает True, если текущий протокол безопасности загружен из файла.

Пример

Sub Main;

Var

MB: IMetabase;

MS: IMetabaseSecurity;

AL: IAuditLog;

s: String;

Begin

MB:=MetabaseClass.Active;

MS:=MB.Security;

Al:=MS.OpenAuditLog;

If Al.Archival Then

s:="Yes";

Else

s:="No";

End If;

End Sub Main;

После выполнения примера в переменной «s» будет содержаться «Yes», если протокол доступа загружен из файла.

См. также:

IAuditLog