Buscar por:

Criando log básico para qualquer aplicação delphi

Código

Muitas vezes as mensagem de erro apresentada pelo sistema quando escapou algum tratamento de exceção fica complicado identificar o que esta acontecendo. Segue abaixo um exemplo básico de como implementar Log para apoiar a identificação de um erro que pode ser empregado em qualquer aplicação.

- Adicionar o TApplicationEvents no Formulário PRINCIPAL da aplicação.(Paleta:Additional do D7)

- Adicionar o código abaixo no evento onException do componente.

var

  NomeDoLog: string;

  Arquivo: TextFile;

begin

  NomeDoLog := ChangeFileExt(Application.Exename, '.log');

  AssignFile(Arquivo, NomeDoLog);

  if FileExists(NomeDoLog) then

    Append(arquivo) { se existir, apenas adiciona linhas }

  else

    ReWrite(arquivo); { cria um novo se não existir }

  try

    WriteLn(arquivo, DateTimeToStr(Now) + ':' + E.Message);

    WriteLn(arquivo, '----------------------------------------------------------------------');

    Application.ShowException(E);

  finally

    CloseFile(arquivo)

  end;

end;

Será criado um arquivo como o nome da Aplicação e a extensão ".LOG" no mesmo lugar que está alocado o arquivo EXE.