initialise() updating; begin // Create and initialize a backup manager object. This is created as a // sharedTransient so that we can safely share the object between two // JADE processes, the current user interface application, and the // background backup application. beginTransientTransaction; create backupManager sharedTransient; backupManager.initialise(c_backupDirectory.text, c_compressFiles.value, c_verifyFiles.value, c_includeSysFiles.value, c_overwriteFiles.value, c_quiescedBackup.value); commitTransientTransaction; // Initialize progress bar control progressBar.partsInJob := 100; // Subscribe to the various backup events we are interested in beginNotification(backupManager.dba, JadeDatabaseAdmin.FileBackupStartEvent, Response_Continuous, FileBackupStart); beginNotification(backupManager.dba, JadeDatabaseAdmin.FileBackupCompleteEvent, Response_Continuous, FileBackupComplete); beginNotification(backupManager.dba, JadeDatabaseAdmin.BackupCompleteEvent, Response_Continuous, BackupComplete); beginNotification(backupManager.dba, JadeDatabaseAdmin.BackupAbortedEvent, Response_Continuous, BackupAbort); beginNotification(backupManager.dba, JadeDatabaseAdmin.BackupCancelledEvent, Response_Continuous, BackupCancel); // Remember that we have subscribed to events so that we can // conditionally end them if required eventsSubscribed := true; end;