Service & on Execute

[-187-]

Ich glaube du gehst da zu kompliziert dran. Platziere doch mal den TTimer auf deiner Form. Folgende Einstellungen sind nötig (OI oder Form Create)

Timer1.Enabled:=True;
Timer1.Interval:=1000;

im OnTimer Ereignis schreibst du jetzt ShowMessage('jede sekunde kommt diese Nachricht');

[DeddyH]

ShowMessage in einem Service ist aber nicht die beste Idee

[-187-]

Ich wollte auch nicht sein Problem lösen, sondern zeigen wie einfach TTimer funktioniert Der Rest sollte alleine zu schaffen sein.

[value is NULL]

im prinzip schaut das ja gut aus, aber ich verstehe nicht wie ich das im code verwende, sprich welche uses ich dazu benötige

[DeddyH]

TTimer ist in ExtCtrls deklariert.

[-187-]

Wenn du die Komponente auf die Form ziehst wird die Uses Clause automatisch erweitert.
Ansonsten kannst du auch manuell "ExtCtrls" einbinden und den Timer zur Laufzeit erstellen.

[DeddyH]

Zitat von -187-:

Wenn du die Komponente auf die Form ziehst wird die Uses Clause automatisch erweitert.

Nicht ganz, erst beim Kompilieren (zumindest bei mir).

[value is NULL]

Danke für die Antwort das klingt ja schon mal gut!!!

habe jetzt bei dem ServiceStart Event folgendes gemacht:

Delphi-Quellcode:

procedure Ttest.ServiceStart(Sender: TService; var Started: Boolean);
begin
  //Create LOGFILE
  createlog('test','C:\Temp');
  test_time.Create(nil);
  test_time.Enabled := True;
  test_time.Interval := 60000;
end;

Im on Execute habe ich jetzt folgendes:

Delphi-Quellcode:

procedure Ttest.ServiceExecute(Sender: TService);
begin
  while not terminated do
  begin
      if test_time.OnTimer = onTimer  then begin
        // DO IT
      end;
  end;
end;

NATÜRLICH bekomme ich da einen Fehler, was habe ich falsch gemacht?

[rollstuhlfahrer]

Dein Dienst hat auch so was wie eine Form (weiß und man kann die Hintergrundfarbe nicht anpassen). Da ziehst du den Timer aus der Komponentenleiste drauf. Der ist übrigens unter System (der erste Eintrag). Um die USES brauchst du dich nicht zu kümmern, das macht Delphi selbst. Dann noch ein paar Einstellungen (wie beschrieben) tätigen und - ganz wichtig - die Ereignisprozedur anlegen (entweder durch Doppelklick auf den Timer oder ... (du weißt schon). -> Fertig

Bernhard