Autor | Thema: ADVAPI32.DLL & Eventlog | | Datum:04.09.02 10:51 
(mohrbringfried@web.de) | |
Hallo,
ich möchte mit der Advapi32.dll aus dem Eventlog die Fehler auslesen, aber irgendwie scheitert es schon am Öffnen des Eventlog. Es gibt keine Fehlermeldung, aber geöffnet wird es auch nicht lt.Rüchgabewert. So sieht das Miniprogramm für meinen ersten Test aus :
declare filehandle&
DEF @OpenEventlog(2) ! "Advapi32","OpenEventLogA"
filehandle& = @OpenEventlog("","Applikation")
print filehandle&
waitinput
Vielleicht sieht jemand meinen Fehler, wobei ich sagen muß, beim ersten Parameter für @OpenEventlog mit "" bin ich mir nicht ganz sicher. Hier kann ich reinschreiben was ich will, es passiert nichts !
Im voraus besten Dank
Bringfried
|
| | Datum:04.09.02 12:55 
(joerse@gmx.de) | |
Hallo,
Vielleicht mußt Du die Strings in Bereichsvariablen übergeben:
Declare p1#,p2#
Dim p2#,11
String p2#,0="Applikation"
filehandle& = @OpenEventlog(p1#,p2#)
Zum ersten Parameter kann ich Dir allerdings auch nix sagen.
Gruß
Jörg
|
| | Datum:04.09.02 13:08 
(mohrbringfried@web.de) | |
Hallo Jörg,
besten Dank für den Tip. Habe ich gleich ausprobiert und hat leider auch kein anderes Ergebnis gebracht!
Gruß
Bringfried
|
| | Datum:04.09.02 14:51 
(andreas@andreas-miethe.de) | |
Hallo Bringfried,
so geht es, allerdings funktioniert das nur mit NT !!
DEF OpenEventlog(2) ! "Advapi32","OpenEventLogA"
DEF CloseEventlog(1) ! "Advapi32","CloseEventLog"
Declare p1#,Handle&
Dim p1#,11
String p1#,0="Application"
Handle& = @OpenEventlog(0,p1#)
Print Handle&
waitinput
CloseEventlog(Handle&)
end
Gruss
Andreas
|
| | | Datum: 04.09.02 15:20 
(mohrbringfried@web.de) | |
Hallo Alexander,
besten Dank. Klappt ! Das mt den Pointern hatte ich nicht beachtet. Besten Dank !
Gruß
Bringfried
|
|
|