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;