Discussion :

[esa]

J'ai créé un service pour lequel je dois effectuer beaucoup de vérifications lors de son démarrage en ServiceStart et si tout n'est pas correct, je pose :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ErrorLoading := True;

Dans mon ServiceExecute j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

while (not Terminated) and (not ErrorLoading) do ServiceThread.ProcessRequests(True);

Jusque la tout va bien, sauf que si je dois lui faire terminer prematurement, il m'affiche une alerte :
Impossible de démarrer le service ... sur Ordinateur Local.
Le service n'a pas renvoyé d'erreur. Ceci peut être une erreur Windows ou une erreur interne au service.
Si le problème persiste, contactez votre administrateur système.

J'ai contourné ce problème en le forcant quand même a passer une fois dans le Execute :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ServiceThread.ProcessRequests(True);
while (not Terminated) and (not ErrorLoading) do ServiceThread.ProcessRequests(True);

mais la il ne veut plus quitter du tout...

Merci de me donner la solution permettant de quitter proprement un service de l'interieur sans message windows.

[Ba!ron]

Déjà, il faut que tu mettes un sleep pour éviter de prendre toute la CPU ...

Je ne sais pas si j'ai bien compris mais que dis-tu de ça ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If Not ErrorLoading Then
  While Not Terminated Do begin
    ServiceThread.ProcessRequests (True);
    Sleep(1000);
  end;

Ton service s'arrête tout seul si ErrorLoading = True,
Sinon il s'exécute.

N'oublie pas de gérer les exceptions.


[Balise [code] ajoutée par Bloon]

[esa]

presque 8)

d'abord, non, pas de sleep, car le service sera la fonction principale du serveur et doit rester en ecoute permanente (je dois meme gerer des files d'attente pour les flux...).

Le probleme est que si je ne passe pas au moins une fois dans un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ServiceThread.ProcessRequests(True)

et que donc le service se termine car tout n'est pas OK, il me renvoie systemathiquement ce "!§#&" de message en plus des miens qui expliquent pourquoi il ne peut pas demarrer completement.

Je veux pouvoir avoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ErrorLoading := True;

et terminer le service sans message windows (cf. mon 1er post ci-avant).

Merci quand meme

Tu parles d'exceptions, le service en renverrait-il qui me permette d'intercepter ce message :

[esa]

une "pachtouille" mais ca fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
procedure TServiceBDP.ServiceExecute(Sender: TService);
begin
  if ErrorLoading
    then sleep(1000)
    else while not Terminated do ServiceThread.ProcessRequests(False);
end;

J'utilise en fait sleep() pour que windows n'affiche pas le fameux message quand ErrorLoading est True au départ.

Quelqu'un aurait une solution plus élégante ?