Service & on Execute

[DeddyH]

Kennst Du diesen Link bereits? http://www.delphi-treff.de/tutorials/grundlagen/

[value is NULL]

^ja den link kenne ich aber ich kann den Lösungsansatz momentan einfach nicht umsetzen

könnte mir jemand ein beispiel zeigen?

[Aurelius]

Einen Timer benötigst du in meinen Augen nicht wirklich, http://www.delphipraxis.net/1098601-post28.html tuts eigentlich auch sehr gut.

Möchtest du es mit einem zur Laufzeit erzeugten Timer machen musst du es so ähnlich machen:

Delphi-Quellcode:

// ...
procedure Ttest.TueWas(Sender:TObject);
begin
 // das was du periodisch ausführen möchtest
end;

procedure Ttest.ServiceStart(Sender: TService; var Started: Boolean);
begin
  test_time := TTimer.Create(nil);
  test_time.Enabled := True;
  test_time.Interval := 60000;
  test_time.OnTimer := TueWas; //damit definierst du welche Prozedur der Timer ausführen soll
end;
// ...

Wenn du den Timer einfach auf dein Formular ziehst und die OnTimer-Prozedur über den OI einfügst kannst du dir das alles sparen.

Dennoch würde ich dir wie Deddy schon geschrieben hat zu weiteren Tutorials raten :)

//Edit: Kann gut sein (bzw. ist sogar sehr wahrscheinlich :stupid:), dass der Code noch nicht ganz korrekt ist. Ich habe schon ne ganze Weile nichts mehr mit Delphi gemacht und auch grad keins zur Hand. Korrekturen, Verbesserungsvorschläge ausdrücklich erwünscht!
//Edit2: Und da haben wir es schon :oops: Passt das jetzt so?

[Bummi]

@Aurelius

der Betrag war Kontraproduktiv, da hier eine Methode und keine Prozedur benötigt wird.

[DeddyH]

Nunja,

Zitat:

Zitat von Bummi (Beitrag 1098625)

:wall::wall::wall::wall::wall::wall:

ohne weiteren Text ist auch nicht gerade ein Beispiel für Produktivität :roll:

[Bummi]

@DeddyH

ja, ich bewundere Deine Geduld bei diesem Thread, mir fehlt sie hier. Ohne Basics in die Wüste predigen das erinnert mich zu sehr an die Th*******9 Threads.

[rollstuhlfahrer]

So mal ein Beispiel: (AUSDRÜCKLICH: Nicht getestet)

Bernhard

[MephistoMyRo]

Also ich habs gerade mal unter Windows 7 Ultimate 64Bit getestet und läuft.

[himitsu]

Zitat:

Zitat von rollstuhlfahrer (Beitrag 1098611)

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.

[omata]

Zitat:

Zitat von rollstuhlfahrer (Beitrag 1098606)

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!