IAuditLogArchiveCallback.OnProgress

Синтаксис

OnProgress(Current: Integer; Total: Integer);

Параметры

Current - количество обработанных записей.

Total - общее количество записей, которые будут обработаны.

Описание

Метод OnProgress реализует событие общего статуса архивации протокола доступа. Данный метод должен быть переопределен в пользовательском классе.

Пример

Class MyCallback: Object, IAuditLogArchiveCallback

Sub OnProgress(Current: Integer; Total: Integer);

Begin

Debug.WriteLine("Упаковано " + Current.ToString + " из " + Total.ToString + " записей");

End Sub OnProgress;

End Class MyCallback;

Sub Main;

Var

MB: IMetabase;

MS: IMetabaseSecurity;

AL: IAuditLog;

Callback: MyCallback;

Begin

MB := MetabaseClass.Active;

MS := MB.Security;

Al := MS.OpenAuditLog;

Callback := New MyCallback.Create;

AL.Archive("c:\Gurnal_Full.pplog", Callback);

End Sub Main;

После выполнения примера записи протокола доступа будут сохранены в файл "Gurnal_Full.pplog". Статус сохранения будет выведен в консоль среды разработки.

См. также:

IAuditLogArchiveCallback