Try..Except - Omite mensagem de erro do método

[sergiowilson.sp]

Boa tarde,

Envolvi um método do nfse do acbr num bloco Try..Except e depois disso as mensagens de erro do método deixaram de ser exibidas.

Alguém já passou por esse problema ou sabe o qual pode ser a causa ?

             Try
               ACBrNFSe1.Enviar(ParametroEnvio)
             except
                begin
                  DeuErro := 1;
                  ShowMessage('Erro no Processo de Envio!');
                end;
             End;

 

Grato

[BigWings]

57 minutos atrás, sergiowilson.sp disse:

Boa tarde,

Envolvi um método do nfse do acbr num bloco Try..Except e depois disso as mensagens de erro do método deixaram de ser exibidas.

Alguém já passou por esse problema ou sabe o qual pode ser a causa ?

             Try
               ACBrNFSe1.Enviar(ParametroEnvio)
             except
                begin
                  DeuErro := 1;
                  ShowMessage('Erro no Processo de Envio!');
                end;
             End;

Grato

 

try
  ...
except
  on E:Exception do
    ShowMessage('O erro retornado foi: ' + E.Message);
end;

 

[sergiowilson.sp]

Obrigado pelo Retorno BigWings, como estou desenvolvendo em casa assim que chegar eu testo e posto o resultado aqui.

Vlw !!

[sergiowilson.sp]

6 horas atrás, BigWings disse:

 

try
  ...
except
  on E:Exception do
    ShowMessage('O erro retornado foi: ' + E.Message);
end;

 

Resolvido !

Obrigado BigWings !