将以下组件放在窗体上:
两个TButton组件
TFDPhysFBDriverLink
TFDGUIxWaitCursor
TFDIB备份
TFDIB还原
FireDAC_gbak
使用TFDIBBackup备份
FDPhysFBDriverLink1.VendorLib := 'C:driverfbembed.dll';
FDIBBackup1.DriverLink := FDPhysFBDriverLink1;
FDIBBackup1.UserName := 'sysdba';
FDIBBackup1.Password := 'masterkey';
FDIBBackup1.Host := 'localhost';
FDIBBackup1.Protocol := ipLocal;
FDIBBackup1.Database := 'C: estSAMPLE.FDB';
FDIBBackup1.BackupFiles.Add('C: estSAMPLE.FDB.backup');
FDIBBackup1.Backup;
使用TFDIBRestore还原
FDPhysFBDriverLink1.VendorLib := 'C:driverfbembed.dll';
FDIBRestore1.DriverLink := FDPhysFBDriverLink1;
FDIBRestore1.UserName := 'sysdba';
FDIBRestore1.Password := 'masterkey';
FDIBRestore1.Host := 'localhost';
FDIBRestore1.Protocol := ipLocal;
FDIBRestore1.Database := 'C: estNEW.FDB';
FDIBRestore1.BackupFiles.Add('C: estSAMPLE.FDB.backup');
FDIBRestore1.Restore;