Service & on Execute

[Meta777]

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

[value is NULL]

die idee ist ja recht cool und simpel aber wenn ich zB 5 Minuten warte bis ich wieder etwas tue, kann der Dienst nicht beendet werden. Hängt sich beim beenden jedes mal auf.

Jemand ne Idee?

PS: das einzige was ich vor habe ist, das ich zyklisch einen gewissen ablauf (Datenbankabfragen etc.) durchführe und danach ein paar minuten warte bis zum nächsten durchlauf

[generic]

Für regelmäßige Aufgaben gibt es in Windows die "geplanten Tasks".
-> siehe Systemsteuerung

Das sind einfache Programm/Skripte welche nach Regeln aufgerufen werden. z.B. mach mal alle 5 Minuten...

Das ist auch viel einfacher, als einen Dienst oder ähnliches hinzustellen.

[value is NULL]

nur das ich eine delphi console app als Service laufen lassen muss....

[alfold]

Hier noch ein simpler Vorschlag
nimm deinen timer, im timer dann:

Delphi-Quellcode:

Procedure Timer
begin
   inc(a);
end;


procedure Ttest.ServiceExecute(Sender: TService);
begin
  while not terminated do
  begin
    if a >= 10 then
    begin 
       Beep; //Oder ruf hier DEINE Methode auf
       a:= 0;
    end;
 end;
end;

Gruss alfold

[value is NULL]

ach sch*** jetzt blick ich mich nicht durch...

kannst du mir das erklären damit ich das verstehe´?!

[DeddyH]

Wenn der Timer feuert, wird a um 1 erhöht. Hat a die 10 erreicht oder überschritten, wird ein Ton ausgegeben und a wieder auf 0 gesetzt, das Spiel beginnt also von vorn.

[value is NULL]

ja aber wann wird er hier erhöht?

Delphi-Quellcode:

procedure Ttest.ServiceExecute(Sender: TService);
begin
  while not terminated do
  begin
    if a >= 10 then
    begin 
       Beep; //Oder ruf hier DEINE Methode auf
       a:= 0;
    end;
 end;
end;

müsste man hiern icht irgendwo a := a + 1 einbauen?

[alfold]

Nein zurückgesetzt!
Wenn der Timerinteval auf 1000 gleich (1sec) steht, wird jede sec a um 1 erhöht. (inc(a) entspricht a:=a+1
Ergo wird ca alle 10 sec der beep ausgelöst oder das was du da machen willst. Dann wird a wieder auf 0 gesetzt.
Nun dauert es wieder 10 sec und das spiel beginnt von vorn!

Hat @DeddyH doch geschrieben , oder war es nicht verständlich

Wenn es so ist, dann fehlen Dir aber die elementarsten Grundlagen.

Gruss alfold

[taveuni]

Zitat von value is NULL:

die idee ist ja recht cool und simpel aber wenn ich zB 5 Minuten warte bis ich wieder etwas tue, kann der Dienst nicht beendet werden. Hängt sich beim beenden jedes mal auf.

Jemand ne Idee?

Delphi-Quellcode:

procedure Ttest.ServiceExecute(Sender: TService);
var
  c: Integer;
begin
  c:= 0;
  while not terminated do
  begin
    inc(c);
    if c:= 60 then
    begin
      // ruf hier DEINE Methode auf
      c:= 0;
    end;
    Sleep(1000);
  end;
end;