Hallo zusammen
in meiner Anwendung verwende ich die Firebird Embedded
DB.
Wenn ich ein Backup erstelle läuft in der Anwendung ein Logfenster mit.
Solande ich das auf meinem Entwicklungsrechner mit Firebird Classic Server laufen lasse funktioniert das einwandfrei. In einer "reinen" Embedded
Umgebung erhalte ich im Logfenster nur dies:
Zitat:
can't format message 12:169 -- message system code -4can't format message 12:248 -- message system code -4
can't format message 12:169 -- message system code -4can't format message 12:176 -- message system code -4
Das Backup erstelle ich mit folgendem Code:
Code:
procedure TDM.db_backup;
begin
DM.DB_Gideons.Connected:= false;
with DM.Backup_Service do
begin
LoginPrompt:=False;
Verbose:=true;
Params.Clear;
Params.Add('user_name=SYSDBA');
Params.Add('password=masterkey');
DatabaseName := db_dir+('GIDEONS_DB.FDB');
BackupFile.Clear; // BackupFile Paramameter Clear
BackupFile.Add (db_backupfile);
frm_backup_restore.log_window.Clear;
frm_backup_restore.log_window.Lines.Add('*** Database file: ***');
frm_backup_restore.log_window.Lines.Add(DatabaseName);
frm_backup_restore.log_window.Lines.Add('*** Backup file(s): ***');
frm_backup_restore.log_window.Lines.Add(
'========== Backup started ==========');
Active := True; // FIBPlus Backup Service Active
ServiceStart; // FIBPlus Backup Service Start
while not Eof do
begin
frm_backup_restore.log_window.lines.add(GetNextLine);
// Backup_Service.application.processmessages;
end;
Active := False; // FIBPlus Backup Service Active
frm_backup_restore.log_window.Lines.Add(
'========== Backup ended ==========');
end;
end;
Danke für Eure Tipps ( auch bei dem heissen Wetter
)
Manfred