A propriedade ErroClasse presente na interface do componente tem como finalidade classificar o erro obtido na requisição, auxiliando na forma como será feita a interpretação dos erros por parte do sistema.

É do tipo TErroClasse(enum)  e contém as constantes:

  • ecNenhum(0)
  • ecValidacao(400)
  • ecAutenticacao(401)
  • ecAcessoNegado(403)
  • ecNaoEncontrado(404)
  • ecParametroTamanhoExcedido(413)
  • ecInterno(500)
  • ecServidorIndisponivel(503)
  • ecNaoTratado(999)

Exemplo de utilização:

 
  
function TfrmExemploBoletoX.ConverterErroClasse(
  aErroClasse: TErroClasse): string;
begin
  case aErroClasse of
    ecValidacao: Result := 'VALIDACAO';
    ecAutenticacao: Result := 'AUTENTICACAO';
    ecNaoEncontrado: Result := 'NAOENCONTRADO';
    ecInterno: Result := 'INTERNO';
    ecParametroTamanhoExcedido: Result := 'PARAMETROTAMANHOEXCEDIDO';
    ecServidorIndisponivel: Result := 'SERVIDORINDISPONIVEL';
    ecNaoTratado: Result := 'NAOTRATADO';
    ecAcessoNegado: Result := 'ACESSONEGADO';
    ecNenhum: Result := 'NENHUM';
  end;
end;  
 

O método ConverterErroClasse verifica qual a constante do Enum e converte para string para exibir na mensagem.

 
  
procedure TfrmExemploBoletoX.btnIncluirClick(Sender: TObject);
var
  _BoletoList: IspdRetIncluirLista;
  i: Integer;
begin
  _BoletoList := FBoletoX.Incluir("Conteúdo do Tx2");

  if AnsiSameText(_BoletoList.Status, 'ERRO') then
    ShowMessage('Erro: ' + ConverterErroClasse(_BoletoList.ErroClasse));
end;
   

 

Sumário