Einzelnen Beitrag anzeigen

Meta777

Registriert seit: 8. Sep 2004
Ort: Magdeburg
248 Beiträge
 
Delphi 10 Seattle Enterprise
 
#20

AW: Service & on Execute

  Alt 3. Mai 2011, 11:16
Was soll das eigentlich mit dem Timer?
der service hat ja nen Thread.
Folgender Code piept jede sekunde:

Delphi-Quellcode:
procedure Ttest.ServiceExecute(Sender: TService);
begin
  while not terminated do
  begin
    Beep; //Oder ruf hier DEINE Methode auf
    Sleep(1000);
  end;
end;
Shalom
  Mit Zitat antworten Zitat