Verständnisfrage zur Erstellung eines Dienstes

[Jumpy]

Hallo,

hab mir schon einige Threads und Tutorials zur Erstellung eigener Dienste mit Delphi durchgelesen und wollte das mit der TService Klasse und der TService Application umsetzen.

Der Dienst soll nicht in einer Schleife immer wieder eine Aktion durchführen oder so, sonder es soll ein TTimer aktiviert und ein TServerSocket geöffnet werden. Nun soll nur noch mit entsprechenden Funktionen auf deren Events reagiert werden (TimerTimer, ServerSocker.On ClientRead,...).

Reicht es dazu, "einfach" diese Komponenten im OnExecute des Services zu aktivieren?:

Delphi-Quellcode:

procedure TService1.ServiceExecute(Sender: TService);
begin
  ServerSocket.Open
  Timer.Enabled:=true;
  while not Terminated do
    ServiceThread.ProcessRequests(True); // or False?
  ServerSocket.Close
  Timer.Enabled:=false;
end;