Firebird Embedded Backup Log

[manfred_h]

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