DB Restore mit Fibplus

[manfred_h]

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