Dienst und Indy TCPServer (Version 9)

[Die Muhkuh]

Hi,

wie in einem anderen Thread schon geschrieben, hab ich einen Dienst mit TCPServer.

Jetzt ist ja die Sache, dass im OnExecute eine Endlosschleife sein muss, damit der Dienst sich nicht beendet. Jedoch mag ich gerade das Wort Endlosschleife nicht, da ich nicht weiß, wie sich das auf meinen TCPServer verhält.

Der Dienst macht nichts anderes, außer einen TCPServer zu erstellen, welcher Verbindungen entgegennimmt und ggf. mit einer Datenbank kommuniziert.

Durch die Endlosschleife könnte der Server blockiert werden, dass der keine Connections mitbekommt. Das heißt, ich müsste den Server in einen eigenen Thread auslagern.

Bevor ich mir nun aber die Arbeit mache, wollte ich wissen, ob ich damit richtig liege. Vielleicht hat ja jemand in dieser Sache schon Erfahrung gesammelt und mag diese mit mir teilen.

Grüße

[Apollonius]

Ziehe den Server einfach auf den Service, erledige Initialisierung im OnStart-Ereignis und verwende kein OnExecute. Dann betreibt der Service-Thread eine ganz normale Nachrichtenschleife.
Ansonsten ist das Äquivalent zu Application.ProcessMessages ServiceThread.ProcessRequests(false).

[Die Muhkuh]

Hi Philip,

was meinst Du mit ziehe den Thread auf den Service? Welchen Thread meinst Du? Den des TIdTCPServers? Ein eigener? Was ganz anderes?

Ich hatte bisher noch keinen eigenen Dienst geschrieben, weswegen ein bisschen ausführlicher beschrieben nett wäre.

[Apollonius]

Tut mir leid, das war natürlich Murks. Ich meinte den Server. Dann sollte eigentlich alles wie gewohnt funktionieren, solange du OnExecute leer lässt.

[Die Muhkuh]

Ich bin nur grad am überlegen, was Du damit meinst "Ziehe den Server in OnStart". Steh grad total auf dem Schlauch.

[Apollonius]

Ich meine einfach zur Design-Zeit in der Formularansichtauf auf den Service ziehen. Das ist ja das tolle an nicht-visuellen Komponenten - man kann sie nicht nur auf Erben von TForm, sondern auch auf Erben von TDataModule ziehen.
Falls dann irgendeine Initialisierung ansteht, kannst du sie im OnStart durchführen.

[Die Muhkuh]

Schau mal ganz vorsichtig, welche Delphi-Version ich hab.

[Apollonius]

Hm, die Indys zicken mal wieder rum. Dann kannst du im Service einfach ein privates Feld deklarieren und den Server im OnCreate instanzieren und im OnDestroy wieder freigeben.

[Die Muhkuh]

So, nach ein bisschen Chat-Gebrabbel, war die Lösung doch ganz einfach. Ich hab den Service ja immer in der IDE gestartet, weshalb er ja immer beendet wurde.

Hab ich den Service installiert und gestartet, lief er ohne Probleme.

Heute ist das Brett vor meinem Kopf wohl zu groß.