OnProgress(Current: Integer; Total: Integer);
Current i a number of processed records.
Total is a total number of records, that are to be processed.
The OnProgress method implements an event of common status of access protocol archiving. This method has to be redefined in a custom class.
Class MyCallback: Object, IAuditLogArchiveCallback
Sub OnProgress(Current: Integer; Total: Integer);
Begin
Debug.WriteLine("Packed " + Current.ToString + " of " + Total.ToString + " records");
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;
After executing the example the access protocol records will be saved to the Gurnal_Full.pplog file. Saving status is displayed in the development environment console.
See also: