Dienst stop nicht

[himitsu]

Terminated wird True, wenn Terminate aufgerufen wurde ... wo wird dieses aufgerufen?

Deine While Run do -Schleife wird verlassen, wenn Run auf False gesetzt wird ... wo wird Run auf False gesetzt?

Bzw. Stopped wird im "Beenden"-Ereignis (ServiceStop) gesetzt, aber wo wertest du dieses, in deiner Programmschleife, aus?

usw.


Es bringt nichts irgendwas auszuwerten, was nie gesetzt wird
oder irgendwas zu setzen, welches nie ausgewertet wird.

[DeddyH]

And now for something completely different... die Passage

Zitat:

Delphi-Quellcode:

        Try
          XML_Server:=Txml_kas_server.Create;
          XML_Server.DBServer:=FServerClass.DBServer;
          XML_Server.DBUserName:=FServerClass.DBUserName;
          XML_Server.DBPassword:=FServerClass.DBPassword;
          XML_Server.DBDatabase:=FServerClass.DBDatabase;
          XML_Server.DebugLevel:=FServerClass.DebugLevel;
          XML_Server.OnStatus:=ShowStatus;
          XML_Server.UpdTable;
          XML_Server.StartDay;
          XML_Server.Free;
        Finally

        End;

sollte wohl besser etwas umgeschrieben werden.

Delphi-Quellcode:

XML_Server:=Txml_kas_server.Create;        
        Try
          XML_Server.DBServer:=FServerClass.DBServer;
          XML_Server.DBUserName:=FServerClass.DBUserName;
          XML_Server.DBPassword:=FServerClass.DBPassword;
          XML_Server.DBDatabase:=FServerClass.DBDatabase;
          XML_Server.DebugLevel:=FServerClass.DebugLevel;
          XML_Server.OnStatus:=ShowStatus;
          XML_Server.UpdTable;
          XML_Server.StartDay;
        Finally
          XML_Server.Free;
        End;

[SirThornberry]

Meine nächste Vermutung, bei der ich mir aber nicht sicher bin ist, dass ganz keine Möglichkeit besteht das jemals ein Stop bei deinem Service ankommt.
Denn du hast da deine Endlosschleife und darin maximal ein Sleep. Aber nirgendwo verarbeitest du Nachrichten oder dergleichen.
Das ist wie in einer normalen Anwendung. Wenn du dort eine Endlosschleife drin hast welche keine Nachrichten verarbeitet, kann man auch auf schließen klicken wie man will und es passiert nichts weil die Nachrichten vom Programm nie verarbeitet werden.

[Edit]
Hab mal fix gesucht und ich glaub dir fehlt sowas:

Delphi-Quellcode:

while not Terminated do
begin
  [...]
  ServiceThread.ProcessRequests(False);
end;

[/Edit]

[franktron]

Ich hab den Fehler

Das

ServiceThread.ProcessRequests(False); Fehlte im ServiceExecute muss eine Schleife mit dem Befehl drin stehen sonst gehts nicht