Gallemar,
ты не поверишь, в ibase.h
TIncrementalBackupOption = (NoDBTriggers);
TIncrementalBackupOptions = set of TIncrementalBackupOption;
TIBIncrementalBackupService = class (TIBBackupRestoreService)
private
FDatabaseName: string;
FLevel: Integer;
FBackupFileName: string;
FOptions: TIncrementalBackupOptions;
protected
procedure SetServiceStartOptions; override;
public
published
property BackupFileName:string read FBackupFileName write FBackupFileName;
property Level: Integer read FLevel write FLevel;
property DatabaseName: string read FDatabaseName write FDatabaseName;
property Options : TIncrementalBackupOptions read FOptions write FOptions;
end;
{ TIBIncrementalBackupService }
procedure TIBIncrementalBackupService.SetServiceStartOptions;
var
param: Integer;
value: String;
begin
if FDatabaseName = '' then
IBError(ibxeStartParamsError, [nil]);
param := 0;
if (NoDBTriggers in Options) then
param := param or isc_spb_nbk_no_triggers;
Action := isc_action_svc_nbak;
ServiceStartParams := Char(isc_action_svc_nbak);
ServiceStartAddParam(FDatabaseName, SPBConstantValues[isc_spb_dbname]);
ServiceStartAddParam(param, SPBConstantValues[isc_spb_options]);
if Verbose then
ServiceStartParams := ServiceStartParams + Char(SPBConstantValues[isc_spb_verbose]);
value:= FBackupFileName + '.' + IntToStr(FLevel) + '.nbk';
ServiceStartAddParam(value, isc_spb_nbk_file);
ServiceStartAddParam(FLevel, isc_spb_nbk_level);
end;