Datenbank Backup mit Firebird

[Jens Hartmann]

Hallo zusammen,

ich habe es jetzt mit TIBBackupService gelößt. Allerdings würde mich mal interesieren, ob das so OK ist. Ich habe in verschiedenen Threads von Problemen mit der Interbase Kompo gelesen. Hier mal meine Code...

Delphi-Quellcode:

procedure TfDBSave.btnSaveTestClick(Sender: TObject);
var
  FormCaption : string;
begin
  try
    FormCaption := Caption;
    Caption:= 'Backup läuft !';
    try
      with ibBackUpPSSecur do
      begin
        ServerName:= 'LOCALHOST';
        Params.Add('user_name=SYSDBA');
        Params.Add('password=masterkey');
        LoginPrompt := False;
        Active:= True;
        try
          Verbose:= False;
          Options:= [];
          DataBaseName:= 'PSSecur';
          BackupFile.Clear;
          BackupFile.Add(edtExeName.Text+'\PSSecurdat.bak');
          ServiceStart;
        finally
          Active:= False;
        end;
      end;
    finally
      Caption:= FormCaption;
    end;
  finally
    ibBackUpPSSecur.Active := False;
  end;
end;

Gruß Jens