Hallo Hansa
Delphi-Quellcode:
procedure Tfrm_backup_restore.btn_restoreClick(Sender: TObject);
begin
with DM.Restore_Service do
begin
Options := [Replace, CreateNewDB];
DatabaseName.Clear; // Database Paramameter Clear
BackupFile.Clear; // BackupFile Paramameter Clear
DatabaseName.Add (IncludeTrailingPathDelimiter(GetCurrentDir)+('GIDEONS_DB.FDB'));
BackupFile.Add (IncludeTrailingPathDelimiter(GetCurrentDir)+('gideons_db_backup__01.11.2006.gbk'));
memo_log.Lines.Add(
'==================== Restore started ====================');
Active := True; // FIBPlus Backup Service Active
btn_backup.Enabled := False; // Backupbutton diabled
btn_restore.Enabled := False; // Restorebutton diabled
ServiceStart; // FIBPlus Backup Service Start
while not (Eof) do // Logoutput to memo_log
memo_log.Lines.Add(GetNextLine);
Active := False; // FIBPlus Backup Service Active
btn_backup.Enabled := True; // Backupbutton enabled
btn_restore.Enabled := True; // Restorebutton enabled
memo_log.Lines.Add(
'==================== Restore ended ====================');
end;
end;
Habe das ganze versucht ein wenig zu Dokumentieren ( ma lernt immer dazu
)
Das Memofeld ist nur dazu da um den Output ( Log ) darzustellen damit der User sieht
das was läuft.
Die Auswahl der Dateien habe ich rausgenommen um dem Problem ein wenig
näher zu kommen. ...
Der Fehler tritt immer noch auf. ( mit obigem Code )
Manfred