Subscribing to Windows Events / winevt.h API

[SirTwist]

Hallo zusammen,

im MSDN habe ich die Möglichkeit gefunden, sich auf ein EventLog aufzuschalten, um sofort über neue Ereignisse informiert zu werden: MSDN: Subscribing to Windows Events

Ich möchte regelmäßig die neuen Events auslesen und in eine SQL-Datenbank schreiben. Ein regelmäßiges Polling mit GetNumberOfEventLogRecords und Co halte für ungeeignet, deshalb wollte ich über dieses Subscribing gehen.

Ich finde aber keine .dcu oder ähnliches, um z.B. die API-Funtkion EvtSubscribe einzubinden.

In der SuFu habe ich jede Menge Treffer zum Schreiben und Lesen des EventLogs gefunden, aber nichts, was sich direkt mit der Windows Event API beschäftigt. Auch Google schweigt sich in Zusammenhang mit Delphi darüber aus.

Hat sich schonmal jemand damit beschäftigt und weiß evtl. weiter? Vielen Dank schonmal!

Gruß,
SirTwist

[jfheins]

Du kannst die Funktion doch einfach selber einbinden oder nicht?

Wenn du aber WinXP unterstützen möchtest, musst du die dll dynamisch einbinden, das ist etwas mehr Schreibarbeit ...

Kurz zusammenkopiert:

Delphi-Quellcode:

function EvtSubscribe(
    Session: Handle; 
    SignalEvent: Handle; 
    ChannelPath: PAnsiChar; 
    Query: PAnsiChar; 
    Bookmark: Handle;
    context: Pointer;
    Callback: Pointer;
    Flags: DWORD
  ): Handle; stdcall; external 'Wevtapi.dll' name 'EvtSubscribe';

Ohne Gewähr

[nicodex]

Zitat von SirTwist:

Hat sich schonmal jemand damit beschäftigt und weiß evtl. weiter?

Nö, aber ich habe mal schnell den Anfang des aktuellen Headers "übersetzt".

[SirTwist]

Zitat von nicodex:

Nö, aber ich habe mal schnell den Anfang des aktuellen Headers "übersetzt".

Klasse! Vielen Dank, ich bastel damit mal weiter.

An einer Stelle verwendest Du einen Typ ULONGLONG, der bei mir aber undefiniert ist. Ich habe einen type ULONGLONG = UInt64; gemacht, damit geht es dann.

Ich bin jetzt gerade daran, den Beispielcode von der MSDN-Seite zu übersetzen. Mal gucken, wie weit ich komme. Wenn alles klappt, häng ich das Ergebnis mal hier ran.

Gruß,
SirTwist

[nicodex]

Zitat von SirTwist:

An einer Stelle verwendest Du einen Typ ULONGLONG, der bei mir aber undefiniert ist. Ich habe einen type ULONGLONG = UInt64; gemacht, damit geht es dann.

Wurde mit Delphi 2007 übersetzt

Ich musste die Unit vorhin aktualisieren, da ich TEvtVariant falsch übersetzt hatte (Kommentar "//NOTE:" am Ende von TEvtVariant).
Grundsätzlich ist die Übersetzung sehr strikt/typsicher, was man bei Bedarf anpassen kann/muss (TFoo = type Bar -> TFoo = Bar).