Service & on Execute

[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

[rollstuhlfahrer]

Da man einen Dienst nicht debuggen kann, würde ich mal empfehlen, zuerst eine Anwendung (mit graphischer Oberfläche) zu erstellen und dann mal alles zu implementieren, was du brauchst. Dann kannst du immer noch und ganz einfach alles in den Dienst reinkopieren und da du dir ja vorher sicher warst, dass es geht, geht es auch hinterher.

Zitat von value is NULL:

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

Eine Konsolenanwendung hat im Normalfall nichts mit einem Dienst gemeinsam. Man kann das ungefähr so vergleichen: Du hast eine Fenster-Anwendung (GUI/VCL), bei der du das Fenster nicht siehst. Das Fenster ist auch nicht in der Lage, Fenster-Nachrichten zu erhalten (SendMessage geht also nicht). So und dass das jetzt noch zum Dienst wird, läuft das unter einem anderen Benutzerkonto (im Normalfall SYSTEM) und mit dessen Rechten.

Bernhard

[value is NULL]

hm... naja meine fragen mögen blöd klingen, bin aber ein selbst lerner dh. ich hab das weder in der schule noch sonst wo gelernt.
Hab schon ziemlich viel gemacht mit datenbanken, xml usw usw. Einen Timer habe ich bis dato noch nie benötigt und einen Service schon gar nicht.

ich finde die Sleep Methode einfach aber wie gesagt beim stoppen bekomme ich dann immer, das der Dienst nicht beendet werden kann, warscheinlich weil er sich in der sleep phase befindet oder? Deswegen werde ich wohl um einen Timer nicht rum kommen oder?

ich verstehe das prinzip den Timer einzubauen, das ich jedoch nicht weiß ist, was ich den Timer bei ttest_timer.ontime := ???? mitgeben muss. das ist ja praktisch der moment an dem heruntergezählt wurde oder?

[omata]

Zitat von rollstuhlfahrer:

Da man einen Dienst nicht debuggen kann...

Wieso kann man einen Dienst nicht debuggen?

Start->Mit Prozess verbinden Prozess auswählen und los geht es!