Delphi-PRAXiS
Seite 1 von 4  1 23     Letzte »    

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Eigener Dienst beendet nicht korrekt... (https://www.delphipraxis.net/127539-eigener-dienst-beendet-nicht-korrekt.html)

cherry 15. Jan 2009 07:54


Eigener Dienst beendet nicht korrekt...
 
Hi

Mein Dienst beendet manchmal korrekt, manchmal nicht. Nicht nur beim manuellen start/stop sondern auch beim Herunterfahren des PC's...

Wenn ich den Dienst manuell beende erhalte ich manchmal die Meldung: "Dienst konnte nicht beendet werden" und die Function "Update Userinfo" wird nicht mehr ausgeführt.

Beim Herunterfahren des PCs werden ja alle Dienste beendet, doch meiner scheint dies nicht korrekt zu tun, denn auch hier wird die Function "Update Userinfo" nicht immer ausgeführt.

Delphi-Quellcode:
procedure TMeinDienst.ServiceShutdown(Sender: TService);
begin
  UpdateUserInfo(Username, false);
  LogFile.LOG(msg0009);
end;
Hier das Execute...

Delphi-Quellcode:
procedure TMeinDienst.ServiceExecute(Sender: TService);
begin
  //ShowMessage('OnExecute - begin');
  while not Terminated do
  begin
    TRY
      // try to catch a user
      if Username <> '' then
      begin
        // AUTOSCAN
        // THIS SECTION IS FOR USER WHO JUST LOGGED IN
        if (Username <> GetSession) or (Welcome = False) then
        begin
          ChangeUser;
          if Username <> '' then // its important to get sure that the username has really been catched
          begin
            Welcome := True;
            LogFile.Log(msg0004+GetIPAddress);
            // check if the user already exists in the database
            CheckDBforUser(ADOQuery1,ADOStoredProc1);
            // Save to database that the user is logged in
            UpdateUserInfo(Username, true);
            // get all info from User Table "t_bb_user"
            ADOQuery3.Close;
            ADOQuery3.Parameters.ParamValues['@username'] := username;
            ADOQuery3.Open;

            // If the logged in user is not on the blacklist it will autoscan now
            if CheckUserOnBlacklist(Username) = False then
            begin
              // autostart scan now, but first get defined scan_type from db!
              case ADOQuery3scan_type.AsInteger of
                0: begin ScanAndWriteToDB(True, stNoScanNoWrite); end;
                1: begin ScanAndWriteToDB(True, stFullScanWriteJustRootFoldersSize); end;
                2: begin ScanAndWriteToDB(True, stFullScanAndWrite); end;
              end;
            end
            else
            begin
              // user is on blacklist, but login info will be saved
              ScanAndWriteToDB(True, stNoScanNoWrite);
              LogFile.Log(Username+msg0016);
            end;

            // activate TCP server
            if not assigned(TCPServer) then
              ActivateTCPServer;

          end;
        end
        else if StartManScan then
        begin
          try
            // check if the user already exists in the database, else it will create him
            if Username <> '' then
            begin
              CheckDBforUser(ADOQuery1,ADOStoredProc1);
              ScanAndWriteToDB(False, stFullScanAndWrite);
            end;
          finally
            // its very important to reset the variable StartManScan
            StartManScan := False;
            // send to the requesting host that the scan is complete now...
            Connect;
            TCPClient.IOHandler.WriteLn(IntToStr(CmdScanFinished));
            // disconnect
            Disconnect;
          end;
        end;
      end
      else
      begin
        ChangeUser;
        Welcome := False;
      end;
    EXCEPT
      on e:Exception do
      begin
        LogFile.LOG(msg0000+e.Message);
        // maby there are some tcp actions pending...
        Disconnect;
        if fulllog then LogFile.Log(msg0039);
      end;
    END;
      ServiceThread.ProcessRequests(False);
      Sleep(1000);
  end;
  //ShowMessage('OnExecute - end');
end;
Bitte wirf doch mal ein Blick drauf.. PS: und wenn du gleich andere Sachen siehst die man anders strukturieren müsste, dann lass es mich wissen...

LG
Cherry

franktron 15. Jan 2009 08:13

Re: Eigener Dienst beendet nicht korrekt...
 
Greift

Delphi-Quellcode:
  UpdateUserInfo(Username, false);
auf eine DB zu, wenn ja dann musst du die Abhängigkeiten für diesen Dienst änder.

nahpets 15. Jan 2009 08:17

Re: Eigener Dienst beendet nicht korrekt...
 
Hallo,

Du greifst auf eine Datenbank zu, läuft die zufällig auf dem gleichen Rechner? Dann könnte es sein, dass die (zumindest beim Herunterfahren) vor Deinem Dienst beendet wurde.
Soweit ich weiß ist die Reihenfolge, in der Dienste beim Runterfahren beendet werden, nicht definiert, daher mal das: geht / geht nicht. Das ist natürlich keine Erklärung für das manuelle Stoppen des Dienstes.

Da Du eine Methode zum Loggen hast, schreib da mal etwas mehr mit in die Logdatei, z. B. vor jeden Funktions- bzw. Prozeduraufruf ala
Delphi-Quellcode:
LogFile.Log(msg4711+'vor ADOQuery.Open');
Damit der Änderungsaufwand für diese Form des "von Hand debuggen" nicht zu groß wird, mache ich das meistens so:
Am Anfang der Unit steht ein
Delphi-Quellcode:
{$DEFINE VERBOSE}
das bei (hoffentlicher) Fehlerfreiheit auskommentiert wird. Das Loggen steht dann in der Form im Quelltext:
Delphi-Quellcode:
{$IFDEF VERBOSE}
LogFile.Log(msg4711+'vor ADOQuery.Open')
;{$ENDIF}
Eventuell solltest Du dem Try-Finally-Block noch einen zusätzlichen Try-Except-Block gönnen, um dort auftretende Fehler loggen zu können.
Ausgehend von Deinem geposteten Quelltext kann ich auf die Schnelle kein grundlegendes Problem erkennen. Da Du aber etliche Methoden aufrufst, könnte dort irgendwo ein "Hänger" sein, z. B. ein Timeout, dass höher ist, als die Wartezeit, die Deinem Dienst beim Beenden vom Betriebssystem gegönnt wird. Und wenn mehrere Methoden auf ein Timeout warten oder nur mit nicht allzu kurzen Wartezeiten zu tuen haben, könnte das zu diesem sporadischen Problem führen.

cherry 15. Jan 2009 08:30

Re: Eigener Dienst beendet nicht korrekt...
 
Danke für die schnelle Antworten. Erstmal:

Zitat:

Zitat von nahpets
Hallo,
Du greifst auf eine Datenbank zu, läuft die zufällig auf dem gleichen Rechner?

Ne, die MSSQL Datenbank läuft auf einem Server.

Zitat:

Zitat von franktron
Greift
Delphi-Quellcode: markieren
UpdateUserInfo(Username, false);
auf eine DB zu, wenn ja dann musst du die Abhängigkeiten für diesen Dienst änder.

Ja tut es. Was für Abhängigkeiten meinst du? -Wie soll ich das realisieren...

Zitat:

Zitat von nahpets
Da Du eine Methode zum Loggen hast, schreib da mal etwas mehr mit in die Logdatei, z. B. vor jeden Funktions- bzw. Prozeduraufruf ala...

Ok, da auch Ihr auf den ersten Blick keinen Fehler sieht, werde ich das Problem so mal probieren einzugrenzen.

nahpets 15. Jan 2009 08:53

Re: Eigener Dienst beendet nicht korrekt...
 
Zitat:

Zitat von cherry
Zitat:

Zitat von nahpets
Du greifst auf eine Datenbank zu, läuft die zufällig auf dem gleichen Rechner?

Ne, die MSSQL Datenbank läuft auf einem Server.

Zitat:

Zitat von franktron
Greift
Delphi-Quellcode: markieren
UpdateUserInfo(Username, false);
auf eine DB zu, wenn ja dann musst du die Abhängigkeiten für diesen Dienst änder.

Ja tut es. Was für Abhängigkeiten meinst du? -Wie soll ich das realisieren...

Zitat:

Zitat von nahpets
Da Du eine Methode zum Loggen hast, schreib da mal etwas mehr mit in die Logdatei, z. B. vor jeden Funktions- bzw. Prozeduraufruf ala...

Ok, da auch Ihr auf den ersten Blick keinen Fehler sieht, werde ich das Problem so mal probieren einzugrenzen.

Was die Abhängigkeiten betrifft:
Nutzt Dein Dienst irgendwelche Daten (Dateien, Datenbanken, Server, Services...), die auf dem gleichen Rechner laufen? Wenn ja, musst Du sicherstellen, dass Dein Dienst vor den Anderen beendet wird. Die Datenbank dürfte hier jedoch schonmal nicht das Problem sein (da auf anderem Server).
Was macht z. B. ScanAndWriteToDB und mit wem unterhält sich TCPClient.IOHandler.WriteLn(IntToStr(CmdScanFinish ed))?
Sind das Sachen auf dem Rechner mit dem Dienst oder greifst Du auf andere Systeme zu?
Wer wird mit Connect angesprochen?

Dienstabhängigkeit einrichten unter Windows 2003 siehe hier:http://techpubs.borland.com/starteam...readme_de.html und auf der Seite nach "Dienstabhängigkeit" suchen.

cherry 15. Jan 2009 10:27

Re: Eigener Dienst beendet nicht korrekt...
 
Zitat:

Zitat von nahpets
Was die Abhängigkeiten betrifft:
Nutzt Dein Dienst irgendwelche Daten (Dateien, Datenbanken, Server, Services...), die auf dem gleichen Rechner laufen? Wenn ja, musst Du sicherstellen, dass Dein Dienst vor den Anderen beendet wird.

...Was macht z. B. ScanAndWriteToDB und mit wem unterhält sich TCPClient.IOHandler.WriteLn(IntToStr(CmdScanFinish ed))? ...

Naja, mein Dienst greifft auf folgende Ressourcen zu:

Lokal:
- Logfile auf "C:\Programme\MeinDienst\Logfile.log"
- Prozeduren die auf Lokale Dateien zugreiffen (nur Lesen) {ScanAndWriteToDB}
- Prozeduren die Registry Keys lesen (nur lesen)
- Prozedur die angemeldeten Benutzer ausliest

Extern:
- MSSQL DB {ScanAndWriteToDB}
- Auswertungsprogramm das von einem anderen Rechner aus läuft {TCP/IP}

Zitat:

Zitat von nahpets
Dienstabhängigkeit einrichten unter Windows 2003 siehe hier:http://techpubs.borland.com/starteam...readme_de.html und auf der Seite nach "Dienstabhängigkeit" suchen.

Ich werde mir das mal anschauen

Dezipaitor 15. Jan 2009 11:04

Re: Eigener Dienst beendet nicht korrekt...
 
ServiceShutdown wird nur aufgerufen, wenn der Dienst von außen beendet werden soll, aber nicht wenn er sich beendet.
In ServiceShutdown musst du deine Prozedur ServiceExecute veranlassen aus der while-Schleife zu springen.
Dann kannst du am Ende von ServiceExecute dein Logging machen.

Es sieht so aus, als ob es nur deshalb manchmal geht, weil Windows deinen Dienst abschießt, da er nicht schnell genug aus ServiceExecute austritt. Ich sehe nämlich garkein Endbedingung.

nahpets 15. Jan 2009 11:45

Re: Eigener Dienst beendet nicht korrekt...
 
Hallo,

verschieb mal Deine Methode
Delphi-Quellcode:
procedure TMeinDienst.ServiceShutdown(Sender: TService);
begin
  UpdateUserInfo(Username, false);
  LogFile.LOG(msg0009);
end;
nach
Delphi-Quellcode:
procedure TMeinDienst.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
  UpdateUserInfo(Username, false);
  LogFile.LOG(msg0009);
  Stopped := True;
end;

cherry 15. Jan 2009 12:50

Re: Eigener Dienst beendet nicht korrekt...
 
Zitat:

Zitat von nahpets
Hallo,

verschieb mal Deine Methode
Delphi-Quellcode:
procedure TMeinDienst.ServiceShutdown(Sender: TService);
begin
  UpdateUserInfo(Username, false);
  LogFile.LOG(msg0009);
end;
nach
Delphi-Quellcode:
procedure TMeinDienst.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
  UpdateUserInfo(Username, false);
  LogFile.LOG(msg0009);
  Stopped := True;
end;

an dem kanns leider nicht liegen, da ich das schon von anfang an auch dort implementiert habe!

Zitat:

Zitat von Dezipaitor
ServiceShutdown wird nur aufgerufen, wenn der Dienst von außen beendet werden soll, aber nicht wenn er sich beendet.
In ServiceShutdown musst du deine Prozedur ServiceExecute veranlassen aus der while-Schleife zu springen.
Dann kannst du am Ende von ServiceExecute dein Logging machen.

Es sieht so aus, als ob es nur deshalb manchmal geht, weil Windows deinen Dienst abschießt, da er nicht schnell genug aus ServiceExecute austritt. Ich sehe nämlich garkein Endbedingung.

Das probiere ich gleich mal aus...

Angel4585 15. Jan 2009 12:54

Re: Eigener Dienst beendet nicht korrekt...
 
hast du das da:

ServiceThread.ProcessRequests(False);

schonmal so hingeschrieben:

ServiceThread.ProcessRequests(True);

?

Edit: Ah ne das war ja was anderes -.-

Wie wäre es mit debuggen? Aus der IDE mit dem prozess verbinden und dann schauen was wo wie hängt


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:26 Uhr.
Seite 1 von 4  1 23     Letzte »    

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz