Estou querendo gravar em um arquivo texto qualquer exceção que acontecer no sistema.
Estou utilizando o componente Application Events
da paleta additional.
Abaixo segue o exemplo do codigo:
procedure TfmPrototipo.ApplicationEventsException(Sender: TObject;
E:Exception);
var
NomeArquivo: string;
Arquivo: TextFile;
begin
NomeArquivo := ChangeFileExt(Application.Exename, '.log');
AssignFile(Arquivo, NomeArquivo);
if FileExists(NomeArquivo) then
Append(arquivo)
else
ReWrite(arquivo);
try
WriteLn(arquivo, 'Data: '+ DateTimeToStr(Now));
WriteLn(arquivo, 'Erro: ' + E.Message );
WriteLn(arquivo, '------------------------------------------- ');
Application.ShowException(E);
finally
CloseFile(arquivo);
end;
end;
O problema que em algumas telas do sistemas é utilizado o
try - except
, o mesmo apresenta a mensagem e não chama o evento onException
do componente.
Application Events
é um capturador global de exception não tratados pelo sistema, ou seja, os que vão gerar crash no sistema, os problemas não conhecidos no desenvolvimento. Já os erros onde você utiliza otry - except
, são erros que você já previu no desenvolvimento e possivelmente os tratou de alguma forma, então se essa exception não for propagada, não vai ser capturada peloApplication Events
. Então se apesar de tratar a exceção você quiser fazer log das mesma você deve faze-lo noexcept
dotry - except
.