Problem mit Service und TEvent

[fajac]

Hallo zusammen,
ich habe einen Windows-Service erstellt, den ich per Windows-Event von aussen, mit einer kleinen Konsolenanwendung, zu einer Aktion veranlassen möchte. Ich nehme dazu die Klasse TEvent aus SyncObjs.
Hier der Code:
1) Server, Erzeugen des TEvent-Objekts

Delphi-Quellcode:

FEvent := TEvent.Create (nil, False, False, 'MyEventName');

2) Server, Thread-Methode, die das TEvent-Objekt überwacht

Delphi-Quellcode:

var
  res : TWaitResult;
begin
  while not Terminated do
  begin
    res := FEvent.WaitFor(500);
    case res of
      wrSignaled  : { => Aktion!};
      wrTimeout   : ;
      wrAbandoned : Terminate;
      wrError     : { Fehler loggen };
    end;
  end;
end;

3) Setzen des Event in der Konsolenanwendung

Delphi-Quellcode:

  FEvent := TEvent.Create(nil, True, False, 'MyEventName');
  try
    FEvent.SetEvent;
  finally
    FEvent.Free;
  end;

Das Merkwürdige ist: Baue ich den Service-Thread in eine normale Applikation ein, wird der Event ausgelöst. Im Service allerdings laufe ich immer nur in den Timeout hinein, habs per Debugger getestet.
Ich nehme an, dass das mit den Sicheheitseinstellungen (erster Parameter des TEvent-Konstruktors, hier "nil") zu tun hat, kenne mich aber damit nicht aus und kann auch im Netz kein passendes Beispiel finden.
Bin für jeden Tipp dankbar!

[samso]

Eventuell hilft:

Delphi-Quellcode:

var
  FSecurityAttributes : TSecurityAttributes;
  FSecurityDescriptor : TSecurityDescriptor;
begin
  InitializeSecurityDescriptor(@FSecurityDescriptor, SECURITY_DESCRIPTOR_REVISION);
  SetSecurityDescriptorDacl(@FSecurityDescriptor, true, nil, false);
  FSecurityAttributes.nLength := SizeOf(FSecurityAttributes);
  FSecurityAttributes.lpSecurityDescriptor := @FSecurityDescriptor;
  FSecurityAttributes.bInheritHandle := false;

  FEvent := TEvent.Create (@FSecurityAttributes, False, False, 'MyEventName');
...

[fajac]

Ich verstehe das Ganze zwar nicht, aber es funktioniert. Herzlichen Dank!

[Bernhard Geyer]

Ist bei Dienst "Interakton mit Desktop" aktiviert? Ab Vista wird dies aber u.U. auch nichts mehr nützen.

[fajac]

"Interakton mit Desktop" ist aktiviert. Wie gesagt, es funktioniert auch so.
Gibt es eine Doku dazu, warum es unter Vista möglicherweise nicht geht?

[Bernhard Geyer]

Zitat:

Zitat von fajac

Gibt es eine Doku dazu, warum es unter Vista möglicherweise nicht geht?

Diese Option wird unter Vista standardmäßig ignoriert. Du mußt hier noch zusätzlich (offiziell undokumentierte) Registryschalter ändern damit es doch wieder geht.

[fajac]

Thx Microsoft! :(
Aber vielen Dank für die Info.

[samso]

Ich würde sagen, es ist so: Da bisher ein NIL-Zeiger als SecurityAttributes übergeben wurde, werden die Standardrechte auf das Event-Objekt vergeben. Diese Standardrechte reichen nicht aus, damit eine Anwendung auf das Event-Objekt zugreifen darf. Deshalb ist es erforderlich, die Rechte explizit zu vergeben. Mit der Aufrufsequenz wird die "discretionary access control list" (DACL) auf NULL gesetzt. Es hat also nun "Jeder" Zugriff auf das Event-Objekt.

s.a. Hilfe Text zu "SetSecurityDescriptorDacl":

Zitat:

If this parameter is NULL, a NULL DACL is assigned to the security descriptor, which allows all access to the object.

P.S. Dieses Problem tritt eigentlich regelmäßig auf, wenn unterschiedliche Anwendungen untereinander über gemeinsame Objekte kommunizieren

[Dezipaitor]

Da steht aber sicherlich auch irgendwo, dass eine NULL-DACL ein Sicherheitsloch sein kann.
Wollte ich nur sagen :?