TEventLog

type TEventLog = class(TComponent)

protected

  procedure CheckInactive;

  procedure EnsureActive;

  function MapTypeToEvent();

  function MapTypeToCategory();

  function MapTypeToEventID();

public

  destructor Destroy; override;

Clean up TEventLog instance

  function EventTypeToString();

Create a string representation of an event type

  function RegisterMessageFile(); virtual;

Register message file

  procedure Log();

Log a message to the system log.

  procedure Warning();

Log a warning message.

  procedure Error();

Log an error message to

  procedure Debug();

Log a debug message

  procedure Info();

Log an informational message

published

  property Identification: String; [rw]

Identification string for messages

  property LogType: TLogType; [rw]

Log type

  property Active: Boolean; [rw]

Activate the log mechanism

  property RaiseExceptionOnError: Boolean; [rw]

Determines whether logging errors are reported or ignored

  property DefaultEventType: TEventType; [rw]

Default event type for the Log call.

  property FileName: String; [rw]

File name for log file

  property TimeStampFormat: String; [rw]

Format for the timestamp string

  property CustomLogType: Word; [rw]

Custom log type ID

  property EventIDOffset: DWord; [rw]

Offset for event ID messages identifiers

  property OnGetCustomCategory: TLogCategoryEvent; [rw]

Event to retrieve custom message category

  property OnGetCustomEventID: TLogCodeEvent; [rw]

Event to retrieve custom event ID

  property OnGetCustomEvent: TLogCodeEvent; [rw]

Event to retrieve custom event Code

end;

TEventLog

Event logging class

TComponent,IUnknown,IInterfaceComponentReference

TPersistent

TObject

Log

Log a message to the system log.

Warning

Log a warning message.

Error

Log an error message to

Info

Log an informational message

Debug

Log a debug message