在拉撒路

Question

使用TEventLog據我所知，事件日誌能夠進入寫異常消息插入disk.I日誌已成功地安裝該組件，但是當我將組件設置爲活躍，做一個簡單的測試，如：

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

我收到以下異常：

操作時，事件日誌處於活動狀態不允許的。

我在做什麼錯？如果將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