EventLog. Daten, Text, Sourcen, Computer auslesen

[Jackie1983]

Servus,

habe es nun geschafft das wenn ein neuer Eintrag ins Ereignisprotokoll geschrieben wurde
ich eine Meldung bekomme.

Daten auslesen.

Delphi-Quellcode:

  if ReadEventLog(log, EVENTLOG_SEEK_READ or EVENTLOG_FORWARDS_READ, index, pelr, needed, bufsize, needed) then
  begin
    RecNumber := pelr^.RecordNumber;
    EventID := pelr^.EventID;
    //...
  end;

Wie bekomme ich aber den Text, Source, Beschreibung / Meldung, Computer etc. ausgelesen?

mfg

[nahpets]

Hallo,

falls Du die JVCL hast, schau Dir mal die Komponente JvNTEventLog an, gglfs. kannst Du aber auch in den Sourcen der Komponente nachschauen, wie die das machen.

Die gesuchten Infos scheinen in

Delphi-Quellcode:

DataLength: DWORD;
DataOffset: DWORD; // Offset from beginning of record

von pelr zu stehen.

[Jackie1983]

servus,

habe mir die Sourcen mal angeschaut.
So richtig blicke ich da nicht durch.

Also habe ich es so gelöst.
Sobald mein Thread ein neuen Eintrag feststellt,
wird per JvNTEventLog der Datensatz ausgelesen.

Das einzige was nicht in den Datensatz steht ist die Beschreibung.
Wo bekomme ich die? Eventuell aus der Reg :gruebel:

mfg

[nahpets]

Hallo,

mit der Beschreibung ist das schwierig, die steht nicht im Eventlog selbst, irgendwo in der Registry steht für die einzelnen Programme, welche DLL... als Resource für den Meldungstext heranzuziehen ist. Die Meldung selbst enthält nur ggfls. Parameter, die in den Meldungstext übernommen werden.