Fórum Erro tentando fazer backup no firebird.O que fazer? #586341

procedure TfrmBackUp.btRestoreClick(Sender: TObject);
begin
  ABRIR.InitialDir := ExtractFilePath(Application.ExeName) + 'BACKUP\\';
  ABRIR.FileName := UpperCase(FormatDateTime('DDDD',DATE-1));
  ABRIR.Execute;
  if ABRIR.FileName <> '' then
  begin
    {Desabilita a conexão com o Banco de dados e os Timers}
    DM.myConnection.Close;
    {Iniciar a Thread de Restauração}
    RestauraBackup := TRestaura.Create(False);
  end;
end;

procedure TfrmBackUp.btBackUpClick(Sender: TObject);
begin
  SALVAR.InitialDir := ExtractFilePath(Application.ExeName) + 'BACKUP\\';
  SALVAR.FileName   := UpperCase(FormatDateTime('DDDD',DATE));
  SALVAR.Execute;
  if SALVAR.FileName <> '' then
  begin
    GeraBackup := TGera.Create(False); // Inicia a Thread para a geração do backup.
  end;;

end;

{ TGera }

procedure TGera.Execute;
begin
  inherited;
  FreeOnTerminate := True;
  try
    with frmBackup do
    begin
      Backup.ServerName      := SERVIDOR;
      Backup.DatabaseName    := BANCO;
      Backup.BackupFile.Text := SALVAR.FileName;
      Backup.Active := True;
      Backup.ServiceStart;
      Memo.Lines.Clear;
      Memo.Lines.Add('Backup iniciado em ' + FormatDateTime('dd/mm/yyyy - hh:mm:ss', Now));
      Memo.Lines.Add(' ');
      While not Backup.Eof do
        Memo.Lines.Add(Backup.GetNextLine);
      Backup.Active := False;
      Memo.Lines.Add('Backup finalizado em ' + FormatDateTime('dd/mm/yyyy - hh:mm:ss', Now));
      Application.MessageBox(' SUA CÓPIA DE SEGURANÇA FOI GERADA.',' CÓPIA DE SEGURANÇA', MB_OK + MB_ICONINFORMATION);
    end;
  except
    Application.MessageBox(' ERRO AO GERAR O ARQUIVO DE BACKUP.' + #13 + ' REINICIE O APLICATIVO E TENTE NOVAMENTE.',' ATENÇÃO', MB_OK + MB_ICONERROR);
  end;
end;

{ TRestaura }

procedure TRestaura.Execute;
begin
  inherited;
  FreeOnTerminate := True;
  try
    with frmBackup do
    begin
      Restore.ServerName        := SERVIDOR;
      Restore.DatabaseName.Text := BANCO;
      Restore.BackupFile.Text   := ABRIR.FileName;
      Restore.Active := True;
      Restore.ServiceStart;
      Memo.Lines.Clear;
      Memo.Lines.Add('Restauração iniciada em ' + FormatDateTime('dd/mm/yyyy - hh:mm:ss', Now));
      Memo.Lines.Add(' ');
      While not Restore.Eof do
        Memo.Lines.Add(Restore.GetNextLine);
      Restore.Active := False;
      Memo.Lines.Add('Restauração finalizada em ' + FormatDateTime('dd/mm/yyyy - hh:mm:ss', Now));
      Application.MessageBox(' A CÓPIA DE SEGURANÇA FOI RESTAURADA.',' CÓPIA DE SEGURANÇA', MB_OK + MB_ICONINFORMATION);
    end;
  except
    Application.MessageBox(' ERRO AO RESTAURAR O ARQUIVO DE BACKUP.' + #13 + ' REINICIE O APLICATIVO E TENTE NOVAMENTE.',' ATENÇÃO', MB_OK + MB_ICONERROR);
  end;
  {Retiva os Timers}
end;