Eigener Dienst startet, läuft kurz und beendet sich wieder

[Die Muhkuh]

Hi,

ich hab einen kleinen Dienst, in dem ein TIdTCPServer erstellt wird und auf Port 49880 lauscht (zum Testen ist im Moment die Property Active auf false!). Wenn ich den Dienst in Delphi starte (ganz normal über F9), dann läuft er ca. 30 Sekunden und beendet sich wieder von selbst, ohne Exception etc. pp.

Exceptions werden über ein TApplicationEvents geloggt. Der Dienst ist nicht interaktiv und macht im Moment auch nicht mehr als nur ein TIdTCPServer zu erstellen (ohne Active = true).

Ich bin gerade ein bisschen am Rätsel raten, woran das liegen könnte, da ich bisher noch nichts mit Diensten am Hut hatte.

Hat jemand kleine Denkanstöße?

[Apollonius]

Du startest den Dienst aus Delphi heraus? Das geht?

[halinchen]

Ich glaube man muss den Dienst erst installieren und muss sich dann mit dem Dienst via Debugger verbinden. Ansonsten klappt das nicht.

Schau dir mal das Tutorial an. Als ich einen Dienst gemacht hatte, klappte es prima.

http://www.delphipraxis.net/internal...ct.php?t=71367

edit: Da war ich wohl etwas zu voreilig. Das steht da ja gar nicht . Auf jeden Fall muss der Dienst installiert werden. Das geht, indem man /INSTALL oder so per Parameter übergibt. Und genau das wirst du Debuggen können. Aber in den eigentlich Dienst-Thread kommst du nicht rein. Da muss via Debugger > mit Prozess verbinden was machen. Dann einfach auf Anhalten gehen und man kann durchsteppen.

Dafür muss man allerdings Admin am PC sein.

[Die Muhkuh]

Ich sag mal "es geht". Vielleicht liegt die kurze Laufdauer auch eben daran. Ich bin gerade dabei, den Dienst auf einen anderen PC zu packen und dort richtig zu installieren und zu starten.

Wenn ich den in Delphi starte, kann ich zumindest auch noch durchsteppen etc. pp.

Halinchen: Ich werd gleich mal schauen.

[halinchen]

siehe mein Edit.

[Die Muhkuh]

Ich schau das gerade durch. Grob würde ich sagen, dass mir die Schleife im OnExecute fehlt.

Wenn ich mir dazu die Hilfe anschaue:

Zitat:

Wenn die Aktionen in der Behandlungsroutine für OnExecute abgeschlossen sind, wird der Dienst-Thread beendet. In der Regel enthält die Ereignisbehandlungsroutine für OnExecute eine Schleife

Hört sich das ganze recht logisch an, warum mein Dienst sich beendet.