Systemdienst stresst CPU

[pertzschc]

Hi,

bei mir ist die Methode so implementiert und es gibt 0% Auslastung solange auf einem TCP Port für den Dienst nichts hereinkommt (er quasi im Leerlauf ist).

Delphi-Quellcode:

procedure TPTSService.ServiceExecute(Sender: TService);
begin
   // main schleife
   while not Terminated do
   begin
      ServiceThread.ProcessRequests(True);
   end;
end;

Gruß,
Christoph