Dienst und Timer

[Delphi.Narium]

Zitat von himitsu:

Demnach ist die Wahrscheinlichkeit geringer, dass die Message des Timer nicht verarbeitet werden kann, aber wenn doch, dann ist es die Schuld des Entwicklers.

Wenn ich diesen Satz richtig interpretiere, spricht also nichts gegen die Verwendung von Timern in einem Service, was für den Threadersteller ja bedeuten würde, dass er sich wegen seiner bisherigen Vorgehensweise keine Sorgen zu machen braucht.

[himitsu]

mmmmmmja

So lange er nicht durch irgendwas Anderes den Hauptthread blockiert. (Entslosschleife oder Deadlock in einem eigenen Code im Hauptthread)

[Delphi.Narium]

ok.

Unter keine Sorgen machen verstehe ich, dass der Service so progammiert ist, dass er keine Teile enthält (wissentlich oder unwissentlich), die eine Nutzung von Timern sowieso ausschließen bzw. (annähernd) unmöglich machen, also eigentlich das:

Zitat von himitsu:

dann ist es die Schuld des Entwicklers

kann ausgeschlossen werden.

Bzw.: Ein derartiger Service würde, auch ohne Timer, vermutlich nicht vernünftig laufen

[HolgerX]

Hmm..

Wenn es nicht zu genau sein soll, reicht auch eigentlich:

Delphi-Quellcode:

procedure TService1.ServiceExecute(Sender: TService);
var
  tmpTime : TDateTime;
begin
  tmpTime := now;
  while not Terminated do begin
    if  SecondsBetween(tmpTime, now) >= 20 then begin
      tmpTime := now;
      // Mache deine Timeraktion...
    end;
    Sleep(1);
    ServiceThread.ProcessRequests(false);
  end;
end;

Damit hast Du einen ~20 Sekundentimer

Ganz ohne Messages..

[MechMac666]

Danke für die Antworten,

mittlerweile läuft der Dienst auf dem Server und es gab bisher keinerlei Probleme.
Ich selbst hatte mit Timern auch noch nie Probleme, mich hatten nur diverse Threads verunsichert.
Und zeitlich genau muss das in meinem Fall auch nicht sein.
Ob die Aktion nun eine Sekunde früher oder später ausgelöst wird ist total egal.
Passt also

Gruß, Andreas