restore базы firebird

[Ivan174]

Это мой первый опыт реализации бэкапа и рестора базы данных. Использую компоненты FIBPlus: TpFIBBackupService и TpFIBRestoreService. Бэкап работает нормально. вот код:

procedure TForm5.Button7Click(Sender: TObject);
var i: Integer;                                           //Резервная копия
begin
if not DirectoryExists(edt4.Text) then
begin
  MessageDlg('Директория не найдена!', mtError,[mbOK],0);
  edt4.Text:='';
end
else
begin
Form25.ShowModal;
i:=1;
  case Application.MessageBox('Вы уверены, что хотите сделать резервную копию базы данных?',
    'Внимание!', MB_OKCANCEL + MB_ICONQUESTION) of
    IDOK:
      begin
          MessageDlg('Резервная копия будет сохранена под именем elevator'+DateToStr(Date)+'.fdk',mtConfirmation, [mbOK], 0);
          with pfbckpsrvc1 do
          begin
            ServerName:=server_ip;
            Params.Clear;
            Params.Add('user_name=SYSDBA');
            Params.Add('password=masterkey');
            attach;
            try
              DatabaseName:=server_path+server_name;
              BackupFile.Clear;
              BackupFile.Add(edt4.Text + '\elevator'+DateToStr(Date)+'.fdk');
              mmo1.Clear;
              ServiceStart;
              Mmo1.Lines.Add(
              '================== Backup begins ==================');
              While not Eof do
              begin
                Application.ProcessMessages;
                Mmo1.Lines.Add(IntToStr(i) + ') '+ GetNextLine);
                i:=i+1;
              end;
              Mmo1.Lines.Add(
              '================= Backup ends =====================');
            finally
              Detach;
            end;
            end;
          edt4.Text:='';
          Button7.Enabled:=false;
      end;
  end;
end;
end;

С восстановлением возникли проблемы. Код писал аналогично коду для бэкапа, но кое где пришлось переделать. Итак:

procedure TForm5.Button8Click(Sender: TObject);
var i: Integer;
begin
i:=1;
if MessageDlg('Вы уверены, что хотите восстановить базу данных?',
            mtConfirmation, [mbYes, mbNo], 0) = mrYes  then
  begin
    pfbdtbs1.Connected:=false;
    with pfbrstrsrvc1 do
    begin
      try
         ServerName:=server_ip;
         Params.Clear;
         Params.Add('user_name=SYSDBA');
         Params.Add('password=masterkey');
         DatabaseName.Clear;
         DatabaseName.Add(server_path+server_name);
         BackupFile.Clear;
         BackupFile.Add(edt5.Text);
         mmo1.Clear;
        // attach;
         try
          Active:=True;
          ServiceStart;
          Mmo1.Lines.Add(
          '================ Restore begins ================');
          While not Eof do
          begin
          //Application.ProcessMessages;
          Mmo1.Lines.Add(IntToStr(i) + ') '+ GetNextLine);
          i:=i+1;
          end;
          Mmo1.Lines.Add(
          '=============== Restore ends ===================');
         finally
          Active:=False;
         // Detach;
         end;
      finally
        Free;
        edt5.Text:='';
      end;
    end;
    activ;
  end;

end;

Свойства TpFIBRestoreService приведены на скрине и ошибка тоже. Может кто-нибудь по шагам объяснит мне, как делать восстановление?

[Yurk@]

ругается на то что такой файл уже есть.
поставь в опциях Replace = True;

[Ivan174]

Пробовал. В таком случае, другая ошибка.
Я так понимаю: удаление невозможно, так как база используется. но я перед запуском процесса восстановления подключение к базе отключаю.

[Yurk@]

значит где-то еще она используется ... искай где именно

[Аватар]

offtop
Не догоняю, какой сокровенный смысл ресторе и бэкап базы программно делать?

[Rik]

Сообщение от Ivan174

Пробовал. В таком случае, другая ошибка.
Я так понимаю: удаление невозможно, так как база используется. но я перед запуском процесса восстановления подключение к базе отключаю.

Восстанавливайте вообще в новый файл БД. Если восстановление пройдет удачно, напишите код замены файла, вернее старый файл базы переименуете в другое имя например с суфиксом _OLD, а новому зададите нужное имя, восстановление может и не удачно пройти... Подключение к базе не есть хорошо отключать, нужно вообще весь сервис FB тормозить, иначе тот же свипер может зпуститься в любой момент...

[Yurk@]

а попробуй еще выключить CreateNewDB; (= False)
Аватар, сам не очень люблю этот прикол, но если есть средства для этого - почему бы и нет
Rik, рубить сервис не вариант. gbak же делает это нормально

gbak -r c:\back_base.fbk d:\data\base.fdb -user SYSDBA -pass masterkey -v -y "%systemdrive%\restore_%date%.log"

[Stilet]

А я думаю что в программе нужно формировать BAT файл, как Юра описал и запускать его. Действительно пусть Жабак сам это сделает.

[Ivan174]

Если отключить replace и CreateNewDB, то вылетает ошибка на скрине).
Если оставить включенным только replace, то ошибка: could'nt drop database В общем БД используется

[Yurk@]

проект собраный на бегу)
сильно не заморачивался, поэтому привязка везде жестко к каталогам.
Архив распаковываем на диск D (полный путь до проекта = D:\Новая папка\).
1я кнопка делает рез. копию с именем 1.fbk в свой же каталог.
2я кнопка восстанавливает архив в файл 1.fdb с заменой файла.
вроде ничего лишнего.
компонент FIBDatabase там только для наглядности) (участия он не принимает)