eigenen eintrag ins ereignisprotokoll von xp?

[richard_boderich]

hallo

weis jemand ob das machbar ist und mit welchen mitteln?

richard

[Luckie]

Habe gerade dazu ein Artikel in der Tutorialsparte veröffentlicht: http://www.michael-puff.de/Developer...ortEvent.shtml

[mkinzler]

Ja, in der neuen Toolbox ist ein Artikel zu diesem Thema.
[Edit: zu langsam]

[richard_boderich]

oh danke dir fuer deine schnelle antwort :) werd ich mir gleich ma zu gemuete fuehren.

richard

[Union]

Wenn man auf individuelle Texte verzichten kann, geht es auch noch kürzer:

Delphi-Quellcode:

EventSource := ChangeFileExt(ExtractFilename(paramstr(0)), ''); 
EventLog := RegisterEventSource(nil, PChar(EventSource));
if EventLog <> 0 then
begin
   PMsg := PChar('Meldung im Eventlog');
   ReportEvent(EventLog, 1, 0, 0, nil, 1, 0, @PMsg, nil);
   DeregisterEventSource(EventLog);
end;

[Luckie]

Dann hast du aber leider diesen Text

Zitat:

Die Beschreibung der Ereigniskennung ( 0 ) in ( Project1 ) wurde nicht gefunden. Der lokale Computer verfügt nicht über die zum Anzeigen der Meldungen von einem Remotecomputer erforderlichen Registrierungsinformationen oder DLL-Meldungsdateien. Möglicherweise müssen Sie das Flag /AUXSOURCE= zum Ermitteln der Beschreibung verwenden. Weitere Informationen stehen in Hilfe und Support. Ereignisinformationen: Meldung im Eventlog.

auch noch mit im EventLog stehen. :(

[richard_boderich]

@lucki

also dein tut ist sehr informativ. ich habe aber das problem das ich variablenwerte in den
eventtext einfuegen moechte. ist es denn moeglich in die resource zu schreiben wenn die exe läuft?

richard


edit // ich brauch es so resourcensparend wie moeglich. sprich am besten keinen HDD zugriff und wenig cpu belastung

[Chewie]

Zitat:

Zitat von richard_boderich

@ich habe aber das problem das ich variablenwerte in den
eventtext einfuegen moechte. ist es denn moeglich in die resource zu schreiben wenn die exe läuft?

:shock: Dafür sind doch die Platzhalter da!

Code:

Das ist mein Text mit dem Platzhalter %1

[richard_boderich]

@ chewie

ich hab echt kein plan wovon du redest meinst du sowas wie paramstr()?

richard

[Luckie]

In die Ressource packst du den Text mit den Platzhaltern. Diese werden dann durch den Text ersetzt, den du in dem String-Array übergibst.

Was hast du jetzt für Probleme mit den Festplattenzugriffen? Es wird nur dann auf de festplatte zugegriffen, wenn sich jemand deinen Eintrag im Eventlog anguckt. Dann wird der Text aus der Ressource deiner Exe oder DLL geladen.

[peanut]

@Luckie:

Toller Artikel - Mensch, hätte ich den vor 2 Monaten schon gehabt, dann hätte ich mir viel Gegrübel sparen können :-D an der Ressourcendatei saß ich am längsten...

Gruß peanut.

[Luckie]

Zitat:

Zitat von peanut

Toller Artikel - Mensch, hätte ich den vor 2 Monaten schon gehabt, dann hätte ich mir viel Gegrübel sparen können :-D

Danke. Und geanu das ist der Grund, warum ich die Artikel und Tutorials schreibe, damit der nächste es etwas einfacher hat. ;)

Und einfach mal öfters vorbeigucken http://artikel.michael-puff.de ;)

[richard_boderich]

naja ich muss doch dann vor jeden event die resource aendern in meiner datei oder?

richard

//die demoanweindung lauft bei mir nicht. er sagt rpc server nicht verfuegbar

[Chewie]

Zitat:

Wenn deine Meldung vollständig anwendungsbestimmt sein soll, heißt dein Nachrichtentext eben nur %1.

[richard_boderich]

wenn ich aber bei jedem eintrag einen anderen text haben will?

[Chewie]

Das, was oben steht, ist eine Antwort auf deinen Post, auch wenn die Forensoftware da offentsichtlich anderer Meinung ist :shock:

[richard_boderich]

@ union

habe deinen code mal angepasst. er legt zwar einen eintrag im ereignislog an, jedoch traegt er die eingentliche meldung nicht ein und
ich seh nur den /auxsource text.

hab ich einen fehler drin oder funktioniert es so nicht? kann man die mc.exe auch extra bei ms downloaden ?

//quelltext

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
    EventSource:string;
    EventLog:cardinal;
    Pmsg:Pansichar;

begin
EventSource := ChangeFileExt(ExtractFilename(paramstr(0)), '');
EventLog := RegisterEventSource(nil, PChar(EventSource));
if EventLog <> 0 then
begin
   PMsg := PChar('hallo das ist eine meldung von mir!');
   ReportEvent(EventLog, 2, 0, 0, nil, 0, 0, @PMsg, nil);
   DeregisterEventSource(EventLog);
end;
end;

//quelltext ende

//meldung

Code:

Ereignistyp:   Warnung
Ereignisquelle:   Project1
Ereigniskategorie:   Keine
Ereigniskennung:   0
Datum:      28.07.2006
Zeit:      19:32:06
Benutzer:      Nicht zutreffend
Computer:   CORE
Beschreibung:
Die Beschreibung der Ereigniskennung ( 0 ) in ( Project1 ) wurde nicht gefunden. Der lokale Computer verfügt nicht über die zum Anzeigen der Meldungen von einem Remotecomputer erforderlichen Registrierungsinformationen oder DLL-Meldungsdateien. Möglicherweise müssen Sie das Flag /AUXSOURCE= zum Ermitteln der Beschreibung verwenden. Weitere Informationen stehen in Hilfe und Support. Ereignisinformationen: Die Ereignisprotokolldatei ist beschädigt..

//meldung ende


richard

[edit=alcaeus]Delphi-Tags eingefuegt. Mfg, alcaeus[/edit]

[Luckie]

Zitat:

Zitat von richard_boderich

//die demoanweindung lauft bei mir nicht. er sagt rpc server nicht verfuegbar

Hast du im Code auch den Computernamen angepasst? Und den nötigen Zweig in die Registry erzeugt? (Reg-Datei liegt bei.)