Einzelnen Beitrag anzeigen

manfred_h

Registriert seit: 4. Nov 2005
Ort: Basel
442 Beiträge
 
Delphi XE2 Enterprise
 
#1

Firebird Embedded Backup Log

  Alt 2. Jul 2010, 15:37
Datenbank: Firebird • Version: 2.1 • Zugriff über: Fibplus
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
  Mit Zitat antworten Zitat