46 |
|
procedure WriteLog(Msg: string); |
47 |
|
procedure HandleCreateDatabase(Sender: TObject; var DatabaseFileName: string); |
48 |
|
protected |
49 |
< |
function CreateNewDatabase(DBName:string; DBParams: TStrings; DBArchive: string): boolean; override; |
49 |
> |
function InternalCreateNewDatabase(DBName:string; DBParams: TStrings; DBArchive: string): boolean; override; |
50 |
|
function RestoreDatabaseFromArchive(DBName:string; DBParams: TStrings; aFilename: string): boolean; override; |
51 |
|
function RunUpgradeDatabase(TargetVersionNo: integer): boolean; override; |
52 |
|
function SaveDatabaseToArchive(DBName: string; DBParams:TStrings; aFilename: string): boolean; override; |
109 |
|
DatabaseFileName := FDatabasePath; |
110 |
|
end; |
111 |
|
|
112 |
< |
function TIBCMLocalDBSupport.CreateNewDatabase(DBName: string; |
112 |
> |
function TIBCMLocalDBSupport.InternalCreateNewDatabase(DBName: string; |
113 |
|
DBParams: TStrings; DBArchive: string): boolean; |
114 |
|
var Service: TIBRestoreService; |
115 |
|
Ext: string; |