Dienst mit 100% CPU-Last

[Catbytes]

Hallo,

habe folgenden Test-Service geschrieben:

Delphi-Quellcode:

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service1.Controller(CtrlCode);
end;

function TService1.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TService1.ServiceExecute(Sender: TService);
begin
  while not Terminated do
  begin
    ServiceThread.ProcessRequests(False);
  end;
end;

Läßt sich registrieren und starten - nur hat das Teil durchgehend 100% CPU-Last.

Weiß einer warum?

[Angel4585]

versuch mal in die while-Schleife ein sleep(1) reinzumachen

[Der_Unwissende]

Hi,
das liegt an deiner while-Schleife, die wird immer wenn sie kann die Bedingung prüfen und prüfen und prüfen usw. Du kannst hier mehrere Dinge tun, einerseits kannst du einen bestimmten Zeitraum abwarten oder du fügst einfach in die Schleifen eine Application.ProcessMessages ein (erlaubt anderen Programmen die Nachrichtenabarbeitung), besser ist es aber immer, wenn du auf ein Ereignis/eine Nachricht warten kannst und den Prozess solange einfach schlafen legst.

Gruß Der Unwissende

[freak4fun]

Mach aus dem
ServiceThread.ProcessRequests(False); ein
ServiceThread.ProcessRequests(True); und gut.

MfG
freak

[Catbytes]

Zitat von freak4fun:

Mach aus dem
ServiceThread.ProcessRequests(False); ein
ServiceThread.ProcessRequests(True); und gut.

Danke - das wars.

Den Code habe ich übrigens von diesem Thread.

Sollte man das dort ändern, oder war ich zu blöde zum lesen?

[freak4fun]

Zitat von Catbytes:

Sollte man das dort ändern, oder war ich zu blöde zum lesen?

Ich hab da auch ne Weile dran gesessen hab dem netten MaBuSe jetzt eine PN geschickt.

MfG
freak