Fórum Tipo Cardinal #418926

Options :=[];
if checkDB.Checked then
Options := Options + [CheckDB];
if checkLimboTransaction.Checked then
Options := Options + [LimboTransactions];
if checkIgnoreChecksumChecagem.Checked then
Options := Options + [IgnoreChecksum];
if CheckKillShadowns.Checked then
Options := Options + [KillShadows];
if CheckMendDB.Checked then
Options := Options + [MendDB];
if CheckSweepDB.Checked then
Options := Options + [SweepDB];
if CheckValidateDB.Checked then
Options := Options + [ValidateDB];
if CheckValidateFull.Checked then
Options := Options + [ValidateFull];

---------------------------
Debugger Exception Notification
---------------------------
Project backup.exe raised exception class EIBInterBaseError with message please retry, specifying an option. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------

procedure TfrmBackup.validacao;
var
  vVerificaStatus:String;
begin
    Screen.Cursor:= CrHourGlass;
    MemoDetalhes.Lines.Clear;
    with IBValidate do
       begin
           //Define o nome do servidor do banco de dados
           ServerName := EditCaminhoServer.Text;
           DatabaseName := EditCaminhoOrigem.Text;

           //Define o protocolo da rede
           case RadioGroupProtocolo.ItemIndex of
             0: Protocol := TCP;
             1: Protocol := Local;
           end;

           //Configura os parâmetros do Restore
           LoginPrompt := false;
           Params.Clear;
           Params.Values[user_name] := Editusuario.Text;
           Params.Values[password]  := editSenha.Text;

           //Configura as opções de Checagem
          // TValidateOption.Options[]check;
            Options :=[];
          if checkboxDB.Checked then
             Options := Options + [CheckDB];
           if checkLimboTransaction.Checked then
            Options := Options + [LimboTransactions];
           if checkIgnoreChecksumChecagem.Checked then
            Options := Options + [IgnoreChecksum];
           if CheckKillShadowns.Checked then
            Options := Options + [KillShadows];
           if CheckMendDB.Checked then
            Options := Options + [MendDB];
           if CheckSweepDB.Checked then
            Options := Options + [SweepDB];
           if CheckValidateDB.Checked then
            Options := Options + [ValidateDB];
           if CheckValidateFull.Checked then
            Options := Options + [ValidateFull];

            IBValidate.Options := Options;
           try
              try
                Active := True;
                //Inicia a operação
                 ServiceStart;
                 //Verifica se a base esta com problemas e avisao ao usuario se estiver
                  vVerificaStatus := GetNextLine;
                 if vVerificaStatus = EmptyStr then
                   MemoDetalhes.Lines.Add(Atenção foi detectado um problema +#13 + com sua base de dados o sistema tentará repara, por favor aguarde);
                //Lista os processo no Memo
                 While not eof do
                   MemoDetalhes.Lines.Add(GetNextLine);
                 except
             on e : exception do
               begin
                   MemoDetalhes.Lines.Add(Erro:  + e.Message);
               end;
             end;
            finally
          Active := False;
          Screen.Cursor := CrDefault;
      end;
      end;
  end;