Использование TEventLog в Lazarus

Question

Я понимаю, что EventLog способен в письменной форме сообщения об исключениях в журнал на disk.I удалось установить компонент, но когда я установить компонент активным, и сделать простой тест, как:

eventlog.Debug('Application has started!'); 

я получаю следующее исключение:

операция не разрешена, когда EventLog активен.

Что я делаю неправильно? Я не могу найти исключение в журнале, что бы никогда не было, если я установил RaiseExceptionOnError в true.

Пожалуйста, простое использование образца было бы здорово!

Answer 1

Минимальный рабочий образец: форма с двумя кнопками и один журнал событий.

Код (изменить $ Имя пользователя):

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    EventLog1.LogType := ltFile; 
    EventLog1.FileName := 'C:\users\$USERNAME\Desktop\Test.log'; 
    EventLog1.Active := True; 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
    EventLog1.Debug('This is a test.'); 
end; 

Нажмите сначала на Button1, затем на Button2. Повеселись.

Answer 2

Если вы хотите автоматически войти исключения, посмотрите на http://wiki.freepascal.org/Logging_exceptions#Handling_exceptions