Service & on Execute

[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?

[rollstuhlfahrer]

Dann klatsch doch einfach die Timer-Komponente auf dein Form. Dann einen Doppelklick drauf und dein Ereignis ist angelegt. Dann noch Intervall und Aktivität einstellen -> Fertig.

Ansonsten: Bei OnTimer muss der Name einer Prozedur rein, die du vorher angelegt hast.

Bernhard

[alfold]

Zitat von rollstuhlfahrer:

...Ansonsten: Bei OnTimer muss der Name einer Prozedur rein, die du vorher angelegt hast.
Bernhard

in den Vorschlag von mir nicht unbedingt.
Wenn er so macht wie mit den Beep

@value is Null! Bitte erst lesen, dann ausprobieren und wenn was nicht richtig geht wieder nachfragen!
Das hilft Dir mehr, als nur fragen ohne auszuprobieren!

Gruss alfold

[value is NULL]

^hm das mit dem timer drauf klatschen geht schon gut aber wie gesagt
ich weiß nicht wie ich das mit dem ontime in meinem onexecute event aufrufe

[himitsu]

Zitat von rollstuhlfahrer:

Dann klatsch doch einfach die Timer-Komponente auf dein Form.

Service und Form paßt nicht ganz ... ist das gleiche, wie mit dem schon genannten ShowMessage.

Aber ein DataModul kann man dafür auch sehr gut verwenden.
Und zusätzlich hat man eine Klasse (die des Datamoduls), wo man seine Methoden drin unterbringen kann.

[rollstuhlfahrer]

Zitat von himitsu:

Zitat von rollstuhlfahrer:

Dann klatsch doch einfach die Timer-Komponente auf dein Form.

Service und Form paßt nicht ganz ... ist das gleiche, wie mit dem schon genannten ShowMessage.

Mir ist klar, dass das, was ein Dienst hat, kein Form ist. Es mangelt mir nur am Namen. Außerdem habe ich in einem Beitrag davor schon darüber gesprochen, dass es einen weißen Hintergrund hat (und somit eigentlich nicht zu verfehlen sein sollte).

Zitat von 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!

Dann muss ich bei mir immer wieder was falsch machen, dass es ausgerechnet bei mir nicht geht. Zudem kommt da noch der klitzekleine Unterschied zwischen System-Prozess und Delphi auf Benutzerebene. Es könnte (will Windows jetzt dafür nicht anschmeißen) sogar sein, dass das Rechte-mäßig gar nicht klappt (Edit: es geht, aber ohne Pascal-Code) und wenn es klappen sollte, kommt bei mir immer nur das CPU-Fenster wo kein Delphi-Code drin ist (den hab ich da nämlich noch nicht gefunden, werde es aber gerne nochmal versuchen).

Zitat von value is NULL:

Wenn ich soetwas ähnliches gebraucht habe, habe ich mir immer die aktuelle zeit ausgelesen, 5 Minuten adiert, und in einer while schleife die aktuelle zeit verglichen. ABER wenn ich das bei einem Service mache geht mir die Maschine in die knie!

Sag mal, funktioniert mein Beispiel jetzt etwa doch nicht oder hast du es noch gar nicht ausprobiert? - Und für Warte-Probleme gibt es in der Code-Lib das Delay von negaH, welches alle Probleme umgehen sollte (-> CPU-Auslastung oder nicht-Reaktion von Anwendungen).


Bernhard

[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!