Archival: Boolean;
Archival: System.Boolean;
Свойство Archival возвращает True, если текущий протокол безопасности загружен из файла.
Для выполнения примера добавьте ссылки на системные сборки: Metabase, ForeSystem (для примера на Fore.NET).
Sub UserProc;
Var
MB: IMetabase;
MS: IMetabaseSecurity;
AL: IAuditLog;
Lic: Object;
Begin
MB := MetabaseClass.Active;
// Получим лицензию для возможности работы с менеджером безопасности
Lic := MB.RequestLicense(UiLicenseFeatureType.Adm);
MS := MB.Security;
// Откроем протокол доступа
Al := MS.OpenAuditLog;
If Al.Archival Then
Debug.WriteLine("Протокол доступа загружен из файла");
Else
Debug.WriteLine("Протокол доступа не загружен из файла");
End If;
// Освободим лицензию
Lic := Null;
End Sub UserProc;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
MS: IMetabaseSecurity;
AL: IAuditLog;
Lic: Object;
Begin
MB := Params.Metabase;
// Получим лицензию для возможности работы с менеджером безопасности
Lic := MB.RequestLicense(UiLicenseFeatureType.lftAdm);
MS := MB.Security;
// Откроем протокол доступа
Al := MS.OpenAuditLog();
If Al.Archival Then
System.Diagnostics.Debug.WriteLine("Протокол доступа загружен из файла");
Else
System.Diagnostics.Debug.WriteLine("Протокол доступа не загружен из файла");
End If;
// Освободим лицензию
Lic := Null;
End Sub;
После выполнения примера в консоли будет определено, загружен протокол доступа из файла или нет.
См. также: