Hallo esten dank für Eure Hilfe
Das Problem war das ich die Userdaten nicht übergeben habe:
Delphi-Quellcode:
procedure Tfrm_backup_restore.btn_restoreClick(Sender: TObject);
begin
with DM.Restore_Service do
begin
Params.Add ('user_name=sysdba');
Params.Add ('password=masterkey');
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;
Danke Euch beiden.
Shalom
Manfred