Skip to main content
Bumped by Community user
Bumped by Community user
Bumped by Community user
Bumped by Community user
formatações
Fonte Link
Fernando Leal
  • 10mil
  • 5
  • 44
  • 93

Estou querendo gravar em um arquivo texto qualquer exceção que acontecer no sistema.

Estou utilizando o componente Application EventsApplication 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 - excepttry - except, o mesmo apresenta a mensagem e não chama o evento onExceptiononException do componente.

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.

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.

Fonte Link

Gravar log das exceções do sistema utilizando application Events

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.