ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/iblocaldb/nongui/IBXCustomIBLocalDBSupport.pas
(Generate patch)

Comparing ibx/trunk/iblocaldb/nongui/IBXCustomIBLocalDBSupport.pas (file contents):
Revision 315 by tony, Thu Feb 25 11:56:36 2021 UTC vs.
Revision 345 by tony, Mon Aug 23 14:22:29 2021 UTC

# Line 88 | Line 88 | type
88    TCustomIBLocalDBSupport = class(TComponent)
89    private
90      FMinimumVersionNo: integer;
91 +    FSectionHeaderTemplate: string;
92      { Private declarations }
93      FServicesConnection: TIBXServicesConnection;
94      FBackupService: TIBXServerSideBackupService;
# Line 191 | Line 192 | type
192      property RequiredVersionNo: integer read FRequiredVersionNo write FRequiredVersionNo;
193      property MinimumVersionNo: integer read FMinimumVersionNo write FMinimumVersionNo;
194      property UpgradeConfFile: string read FUpgradeConfFile write FUpgradeConfFile;
195 +    property SectionHeaderTemplate: string read FSectionHeaderTemplate write FSectionHeaderTemplate;
196      property VendorName: string read FVendorName write FVendorName;
197      property OnGetDatabaseName: TOnGetDatabaseName read FOnGetDatabaseName write FOnGetDatabaseName;
198      property OnGetDBVersionNo: TOnGetDBVersionNo read FOnGetDBVersionNo write FOnGetDBVersionNo;
# Line 205 | Line 207 | implementation
207   {$IFDEF Unix} uses initc, regexpr {$ENDIF}
208   {$IFDEF WINDOWS} uses Windows ,Windirs {$ENDIF}, IBUtils, IBMessages;
209  
210 + const
211 +  sSectionheader      = 'Version.%.3d';
212 +
213   resourcestring
214    sNoDowngrade = 'Database Schema is %d. Unable to downgrade to version %d';
215    sLocalDBDisabled = 'Local Database Access Disabled';
# Line 522 | Line 527 | begin
527    FRestoreService := TIBXServerSideRestoreService.Create(self);
528    FRestoreService.ServicesConnection := ServicesConnection;
529    FRestoreService.Verbose := true;
530 +  FSectionHeaderTemplate := sSectionheader;
531   end;
532  
533   destructor TCustomIBLocalDBSupport.Destroy;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines