**Delphi VCL **projenizde kullanıcıların gerçekleştirdiği hareketleri ve olayları kayıt altına almak, karşılaşılan hatalarda çözüme daha hızlı kavuşmanız için size yol gösterecektir. Kullanıcının sistemin gidişatını bozacak şekilde bir işlem yapması, geriye dönük olarak tüm işlemlerin izlenebilirliği ihtiyacını ortaya çıkartıyor.
Gelin birlikte Delphi VCL projenizdeki tüm olayları nasıl Windows Event Log (EventViewer) sistemine kaydedeceğimizi inceleyelim.
Oluşturduğum örnekte iki farklı yöntem ile log kaydı oluşturulabilir. İlk yöntem SvcMgr.TEventLogger ve ikinci yöntem Windows.ReportEvent fonksiyonunu kullanan Helper sınıfı.
You can add your logs to Windows Event Log with SvcMgr.TEventLogger and with TLogger Helper using Windows.ReportEvent.
procedure TForm1.LogWithHelper;
begin
TLogger.Source := 'MyApplicationName';
TLogger.Log('This is an information.', lkInfo);
TLogger.Log('This is an error.', lkError);
TLogger.Log('This is an warning.', lkWarning);
end;
procedure TForm1.LogWithSvcMgr;
begin
with TEventLogger.Create('MyApplicationName') do
begin
LogMessage('This is an error.', EVENTLOG_SUCCESS, 12345);
LogMessage('This is another error.', EVENTLOG_ERROR_TYPE, 12345);
LogMessage('This is information.', EVENTLOG_INFORMATION_TYPE, 12345);
LogMessage('This is a warning.', EVENTLOG_WARNING_TYPE, 12345);
end;
end;
Önemli: WindowsEventLog içerisindeki kayıtlarda Source bilgisinin sistemin(Windows) kayıtlarında tanımlı olması gerekiyor. Bu yüzden uygulamanızı kurarken registry kayıtlarını da oluşturmanız gerekiyor. Bunun için yönetici olarak çalıştırmalısınız.
Important: If you are going to use WindowsEventLog, you should register your application when you are installing. This requires administrative rights.
program WindowsEventLogSample;
uses
Vcl.Forms,
Unit1 in 'Unit1.pas' {Form1},
Logger in 'Logger.pas';
{$R *.res}
{$R MessageFile.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
TLogger.AddEventSourceToRegistry('MyApplicationName', ParamStr(0));
Application.Run;
end.
Örnek çıktı
