Fehler beim Backup einer Firebird-DB mit IBBackupService

[hoika]

Hallo,

hier mal ein Stück aus meinem Code.

Delphi-Quellcode:

sOldCaption:= Caption;
    Caption:= 'Backup läuft !';
    try
      with IBBackupService1 do
      begin
        ServerName:= Edit_Server.Text;
        Params.Add('user_name='+sUserName);
        Params.Add('password='+sPassword);
        Active:= True;
        try
          Verbose:= False;
          Options:= [];
          DataBaseName:= Edit_DataBaseName.Text;
          BackupFile.Clear;
          BackupFile.Add(Edit_BackupFile.Text);
          ServiceStart;
        finally
          Active:= False;
        end;
      end;
    finally
      Caption:= sOldCaption;
    end;

Heiko