IAuditLog.Archive

Синтаксис

Archive(FileName: String;

[Callback: IAuditLogArchiveCallback = Null];

[Format: AuditLogArchiveFormat = 0];

[ClearLog: Boolean = False]);

Archive(FileName: string;

Callback: Prognoz.Platform.Interop.Metabase.IAuditLogArchiveCallback;

Format: Prognoz.Platform.Interop.Metabase.AuditLogArchiveFormat;

ClearLog: boolean);

Параметры

FileName. Наименование файла;

Callback. Объект, используемый для отслеживания процесса архивации протокола доступа;

Format. Формат файла, в который осуществляется сохранение;

ClearLog. Параметр, определяющий удаление записи из протокола доступа после архивации. По умолчанию установлено значение False, при этом протокол доступа не очищается. Если установить значение True, то после архивации все записи протокола доступа будут удалены.

Описание

Метод Archive производит архивирование протокола доступа в файл.

Пример

Для выполнения примера предполагается наличие файла «AuditLog.pplog».

Добавьте ссылки на системные сборки: 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;
    // Сохраним протокол доступа в файл
    AL.Archive("C:\AuditLog.pplog");
    // Освободим лицензию
    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();
    // Сохраним протокол доступа в файл
    AL.Archive("C:\AuditLog.pplog", Null, AuditLogArchiveFormat.alafBinary, False);
    // Освободим лицензию
    Lic := Null;
End Sub;

После выполнения примера протокол доступа будет сохранен в файл «AuditLog.pplog».

См. также:

IAuditLog