Dienst schließt sich automatisch

[KoRn117]

Hallo,

also ich hab n Problem und zwar will ich mit Delphi 7 einen Dienst schreiben. Ich öffne das Standart Formular für "Service- Anwendung".
Sobald der Dienst startet schließt er sich gleich wieder obwohl noch ein zweiter Thread vorhanden ist indem ne schleife läuft, doch anscheinend überspringt der selbst das Ereignis OnStart - wenn ich dort nämlich ein "beep" reinschreibe passiert auch nix. Der Dienst wird nach ca.10 sek automatisch geschlossen egal was im quelltext steht. Bitte verweist NICHT auf das Tutorial von Assarbad(Ich möchte einen Timer etc verwenden)
Ich dachte es passt in die Sparte weil es sich ja nicht um Windows api Handelt.

Schonmal Danke für Antworten

Mfg

payne

[sakura]

Zitat:

Zitat von KoRn117

Ich öffne das Standart Formular für "Service- Anwendung".

Was genau meinst Du damit :gruebel: Hast Du ein paar Code-Broken zum anschauen?

...:cat:...

[KoRn117]

ich weiß es nciht was "er" damit meinte ich habe diese frage für einen freund reingestellt

[WtF]

Ne sorry hab gerade keinen code Brocken da, aber vieleicht kannst du mir mal nen allgemeinen Tip geben, wie ich es hinbekomme, das nach dem starten des Projekts es NICHT automatisch geschlossen wird. Geh mal auf Neu->weitere...->TabSheet"Neu" ->Service- Anwendungen. Wenn man das dann einfach nur so startet hab ich ja volles verständnis dazu, das es sich nach kurzer zeit wieder schließt, aber wenn man ne schleife, in das ereignis onexecute haut (die sich garnicht beenden kann) beendet sich der dienst trotzdem nach ca.10 sekunden - warum??Was muss man machen damit dies nicht passiert?
Vieleicht n plan haben :idea:
Es gibt auch nicht wirklich viel die sich mit diensten beschäftigen so wie ich das sehe
mfg

[Luckie]

Du musst den Service auch installieren / bekannt machen und dann musst du ihn starten über das Controlpanel für Dienste.

[sakura]

Zitat:

Zitat von WtF

Es gibt auch nicht wirklich viel die sich mit diensten beschäftigen so wie ich das sehe

Keine Sorge, ich habe mehrere davon im täglichen Einsatz. Aber wie Luckie schon sagte. Nachdem man einen Dienst installiert hat (pfad\dienst.exe /install) startet man diesen über die Diensteverwaltung (Systemsteuerung -> Verwaltung -> Dienste)

...:cat:...

[WtF]

Danke für die schnelle Antwort.
Das ich den Dienst mit /install installieren muss ist mir bekannt. Versteh ich das Richtig, das unter der Entwicklungsphase das Programm nicht ausgeführt werden kann?? Ich meine ja wenn ich das Projekt starte fliege ich nach n par sekunden und es reagiert auch auf garnix was im quelltext steht. Muss ich wirklich erst die Exe mit /install oder silent ausführen damit das Prog normal läuft? Das kann doch nicht sein

[Luckie]

Das ist nun mal das Prinzip von Diensten. Sie werden ja vom Srvicemanager gesteuert und der kann seine Arbeit nur tun, wenn der Service installiert wurde.

[WtF]

sorry ich glaube ich drücke mich ein wenig undeutlich aus.
Also wenn ich in Delphi gerade einen Dienst programmiere kann ich den nicht mit delphi ausführen (F9) sondern muss ihn kompilieren und mit /install erstmal installieren um zu sehen ob das so funktioniert wie ich will? Hab ich das jetzt richtig verstanden

[Chewie]

Zitat:

Zitat von WtF

Hab ich das jetzt richtig verstanden

Ja. Aber du musst ihn nur einmal installieren.