Einträge ins Eventlog

[Codewalker]

Weiß jemand, wie ich über mein Programm eigene Einträge in das Eventlog von Windows XP eintrage? Ich möchte gerne Logeinträge teilweise darin eintragen mit einem kurzen Text, was passiert ist. Wie?

[Basilikum]

dazu gibt es die API ReportEvent und Konsorten...

[Codewalker]

Das sieht schon gut aus, aber wie benutze ich diese Funktion? Was trage ich denn bei dwEventID ein? Wenn ich das so eintrage gibt es irgendwelche komischen Fehler. Der Eintrag an sich ist vorhanden, aber wie füge ich dazu einen Text ein. Hast du vielleicht einen Beispielaufruf für mich?

[Basilikum]

der Text wird vom Event-Viewer aufgrund der Event-Source und Event-ID aus einer DLL geladen... in diesem Text kannst du Platzhalter (in der Art von Format()/sprintf()) einbauen, die dann durch die beim Aufruf von ReportEvent angegebenen Strings ersetzt werden...
ich denke mal, du wirst nicht darum herum kommen, dich etwas in das Event-Logging einzulesen... ein guter Start wäre http://msdn.microsoft.com/library/de...nt_logging.asp

(ein Beispiel habe ich leider nicht zur Hand)

[generic]

ich hatte mal auf meiner hp etwas auf die schnelle dazu geschrieben.

gugst du bitte hier:
http://www.quantendrehung.de/cms/p40.html

[Codewalker]

Danke für die vielen schnellen Antworten. Damit sollte das hinzubekommen sein! Jetzt muss ich nur noch meinen Grips anstrengen! :gruebel:

[Luckie]

Wenn ich diese

Code:

LanguageNames=(German=0x407:MSG00407)
MessageId=0
SymbolicName=evt_Demo
Language=German
Demo
.

Testeintrag von %1.
.

Message-Datei mit mc.exe kompilieren will, bekomme ich immer die Fehler:

Zitat:

EvtLogMsg.mc(8) : error : expected keyword - Testeintrag
EvtLogMsg.mc(8) : error : expected keyword - von

Obwohl sie genauso aufgebaut ist, wie in dem Tutorial.

Desweiteren hätte ich da noch ein paar Fragen: Geht das auch ohne den zusätzlichen Eintrag in der Registry für mein Programm? Und geht es eventuell auch ohne diese Ressource?

[Luckie]

So, habe es hinbekommen: Sie muss so aussehen:

Code:

LanguageNames=(German=0x407:MSG00407)

MessageId=0x1
SymbolicName=CAT_1
Language=German
Kategorie 1
.

MessageId=0x100
SymbolicName=MSG_DEMO_ENTRY
Language=German
Testeintrag von %1.
.

Aber leider funktioniert es immer noch nicht. Meine Registryeinträge sehen so aus:

Code:

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\Demo]
"CategoryCount"=dword:00000001
"TypesSupported"=dword:00000000
"EventMessageFile"="E:\\Delphi\\Sourcecodes\\In_Bearbeitung\\MpuWriteEventLog\\Project1.exe"
"CategoryMessageFile"="E:\\Delphi\\Sourcecodes\\In_Bearbeitung\\MpuWriteEventLog\\Project1.exe"

Und mein dazugehöriger Programmcode:

Delphi-Quellcode:

{$R 'EvtLogMsg.res'}

var
  Form1             : TForm1;

implementation

{$R *.dfm}

const
  cSourceName       : string = 'Application'; // wir wollen in das EventLog "Anwendungen" schreiben

procedure LogMessage(typ, kategorienr: word; nachrichtnr: Cardinal; parameter1: string);
var
  log               : THandle;
  pmsgArray         : array[0..0] of PChar;
begin
  log := OpenEventLog(nil, pchar(cSourceName));
  if log > 0 then
  begin
    try
      pmsgArray[0] := PChar(parameter1);
      if not ReportEvent(log, typ, kategorienr, nachrichtnr, nil, 1, 0, @pmsgArray, nil) then
        ShowMessage(SysErrorMessage(GetLastError));
    finally
      CloseEventLog(log);
    end;
  end
  else
    ShowMessage(SysErrorMessage(GetLastError));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  LogMessage(EVENTLOG_INFORMATION_TYPE, $1, $100, 'Hallo');
end;

Ich bin etwas ratlos. :gruebel:

[Muetze1]

Schonmal hier geschaut und verglichen?

[Luckie]

Da geht es ums auslesen. Ich will aber was reinschreiben. ;)

[Klaus01]

Hallo Luckie,

vielleicht kann Dir das weiterhelfen: http://groups.google.de/group/comp.l...9c458596e135d4

Grüße
Klaus

[Luckie]

Ich habe das jetzt ausprobiert:

Delphi-Quellcode:

var
  el: TEventLog;
begin
  el := TEventLog.Create(nil);
  try
    el.Open('Application');
    el.Report(EVENTLOG_INFORMATION_TYPE, 'test');
    el.Close;
  finally
    FreeAndNil(el);
  end;

Aber da erscheint auch kein Einztag im EventLog. :(

[Klaus01]

Das hilft Dir jetzt nicht weiter, aber bei mir tut es.
OS = w2k SP4

Grüße
Klaus

[Luckie]

Genau der selbe Aufruf, wie ich ihn gepostet habe? Ich habe hier Windows XP SP2. Dann muss es da noch irgendetwas zu beachten geben. Nur was?

[Klaus01]

Ja, habe Deinen Aufruf einen Button zugeordnet.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Eventlog, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  el: TEventLog;
begin
  el := TEventLog.Create(nil);
  try
    el.Open('Application');
    el.Report(EVENTLOG_INFORMATION_TYPE, 'test');
    el.Close;
  finally
    FreeAndNil(el);
  end;
end;

end.

Sonst habe ich nichts weiteres einstellen müßen.

Grüße
Klaus

[Luckie]

Probier doch mal den Code im Anhang bitte aus. In der Exe sind auch die nötigen Ressourcestrings enthalten. Du musst allerdings dann auchg erstmal die Reg-Datei mit den nötigen Informationen in die Registry importieren.

[Khabarakh]

Tja, bei mir funktioniert dein Programm :? .

Win XP Home SP2

[Luckie]

Steht da auch ein richtiger Text drinne? Es sollte drinne stehen:

Zitat:

Testeintrag von Test.

Eventuell muss man die Quelle durch 'Demo' ersetzen.

Könnte jemand bitte auch mal den auskommentierten Code probieren?

Was kann das sein?

[Luckie]

Ich werde irre. Als Administrator geht es. Dabei hatte ich das Programm schon mit "Ausführen als..." gestarte, um es so zu probieren. Und das Eventlog hatte ich auch als Administrator geöffnet, aber nie was gesehen. Jetzt hab eich mich richtig als Admin angemeldt und was sehe ich? Dutzende von meinen Testeinträgen. :wall: Ergo hat es als eingeschränkter Benutzer auch schon geklappt, aber irgendwie werden die Einträge nicht korrekt angezeigt, wenn man das EventLog SnapIn mit "Ausführen als..." als Administrator öffnet. Hmpf. :?

Nachtrag:
Es geht auch, wenn man als eingeschränkter Benutzer eingeloggt ist. Man sieht die Einträge aber nicht, wenn man die Ereignisanzeige mit runas (Administrtorenkonto) öffnet. Öffnet man sie normal, sieht man auch seine Einträge. OK, es funktioniert jetzt also alles bestens. Danke für eure Hilfe. Ich werde das mal alles in einem Artikel zusammenfassen.

[RalfOne]

Hallo zusammen,

die Ereigniseinträge kriege ich auch hin, jedoch würde ich gerne eine eigene Gruppe haben. Als Beispiel: "MeinProgramm".
Weiß jmd. wie ich das realisieren kann.

Ich habe mal gelesen, dass es keine WINAPI dafür geben soll, und man es nur unter NET machen kann.....stimmt das?


Grüße

Ralf

[Codewalker]

Ich meine in einer der letzten Ausgaben der Toolbox war genau dazu eine komplette Anleitung. Ich schau mal, ob ich die Ausgabe rausbekomme oder den Artikel in die Finger bekommen kann. Da war eigentlich gar nicht so viel bei (fast nur Registry-Einträge). Ansonsten kannst du ja mal schauen, ich denke die kann man easy nachbestellen.

[Luckie]

Zitat:

Zitat von RalfOne

Ich habe mal gelesen, dass es keine WINAPI dafür geben soll, und man es nur unter NET machen kann.....stimmt das?

Und wie hat sie Windows vor der .NET Ära dort reinbekommen? ;) Es guibt dafür selbstverständlich auch API-Funktionen. Guck einfach mal im MSDN.

[RalfOne]

Danke für die Infos, die Toolbox müsste ich auftreiben können, wenn ich die Lösung habe kann ich Sie ja mal posten wenn Ihr wollt.
Morgen direkt mal gucken......

Grüße

Ralf

[Luckie]

Hier übrigen mein Artikel: http://www.michael-puff.de/Developer...ortEvent.shtml
Such mal im MSDN nach OpenEventLog und folge den Links am Seiotenende, da müsste was sthen, wie man auch eine Kategorie anlegt.

[RalfOne]

@Luckie
Danke werde ich mir mal angucken.

In der Toolbox stand nur das drin was ich schon wusste.
Dort werden auch keine Kategoreien angelegt.
Ich habe die Toolbox 4 /2006 (juli/august)

Grüße

Ralf

[ste_ett]

Zitat:

Zitat von RalfOne

Hallo zusammen,

die Ereigniseinträge kriege ich auch hin, jedoch würde ich gerne eine eigene Gruppe haben. Als Beispiel: "MeinProgramm".
Weiß jmd. wie ich das realisieren kann.

Ich habe mal gelesen, dass es keine WINAPI dafür geben soll, und man es nur unter NET machen kann.....stimmt das?


Grüße

Ralf

Per Win32-Api muss man alles selber machen, für .NET gibts das vorgefertigt. :)

Möglich ist es mit Beidem. :)

[Codewalker]

Bin fündig geworden: http://www.thedelphimagazine.com/sam...55/article.htm

[RalfOne]

@Codewalker

Danke, dass passt. Klappt auch soweit ganz gut.

[Remko]

Link to Delphi Magazine is dead :-(
If the license permits, please post here.

Zitat:

If you were looking for a free sample article from the magazine, please note that as the magazine has now ceased publication these articles have been withdrawn and are no longer available for free access. You can obtain all of the articles ever published by purchasing our Total Collection product: all of the articles on one handy USB Flash Drive.

edit: samples can be still be downloaded here: http://thedelphimagazine.com/disks.php