Discussion :

[magil]

Bonjour,
J'ai réalisé des services qui doivent se lancer avant que le premier utilisateur se connecte.
Le démarrage automatique ne se fait pas (Temps de démarrage > 30000 ms dans l'observateur d'évènement)
Pour analyser le problème, J'ai retiré tout traitement.
J'obtiens un service qui se lance bien lorsqu'on fait démarrer, mais ne se lance pas au démarrage du PC
Ceci ne se passe que sur Windows 7.
Ca démarre normalement sur Windows 8.
Une piste ?

[Andnotor]

Il prend beaucoup de temps mais il démarre
C'est l'OS qui détermine l'ordre de démarrage des services (et il y en a beaucoup) et il n'est pas possible d'en rendre un prioritaire. Je ne pense pas que tu puisses faire grand chose...

[magil]

C'est curieux, car sous windows 8 ça se passe normalement, il démarre en automatique

[Ph. B.]

Bonjour,

C'est curieux, car sous windows 8 ça se passe normalement, il démarre en automatique

Quels sont les traitements ?
Le service possède-t-il pour chacun des SE des droits adéquats ?

[magil]

Pour simplifier le problème, j'ai retiré tous les traitements :
J'ai mis // dans le oncreate
J'ai mis started := true dans le onstart, etc..

[Linkin]

Le problème est ailleurs. Sur Windows 7, mes services démarrent normalement et instantanément que ce soit en automatique ou en manuel.

Pour le temps de démarrage du service, il faudrait voir le contenu du execute.
Pour le service qui ne démarre pas, ça ne serait pas le fait d'avoir un execute vide qui fait que le service se termine?

[Andnotor]

Le démarrage automatique ne se fait pas (Temps de démarrage > 30000 ms dans l'observateur d'évènement)

Le démarrage prend 30s mais le service est bien lancé automatiquement
Il n'est pas possible de comparer le démarrage manuel de ce seul service depuis le bureau et le démarrage à froid du PC qui doit en lancer plusieurs dizaines.

[magil]

En fait, le execute a un code

Code :

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

1
2
3
repeat
  sleep(100);
until 1 = 0;

Pour le démarrage avec tous les services windows,
- sous windows 8 tout démarre normalement
- sous windows 7, le service ne démarre pas, même si on augment le tende de démarrage à 120 s.

[Andnotor]

Quelle horreur

Code :

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

1
2
3
4
5
procedure TService1.ServiceExecute(Sender: TService);
begin
  while not Terminated do
    ServiceThread.ProcessRequests(True);
end;

[magil]

Je n'ai pas de ServiceThread.

en remplaçant par

Code :

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

1
2
3
repeat
sleep(100);
until terminated;

ça ne change rien

[Andnotor]

Je n'ai pas de ServiceThread.

Ce qui serait surprenant puisque c'est lui qui lance OnExecute. Tu utilises bien le service Delphi de base ou une autre implémentation comme TDDService ?
Là, tu ne lui donnes pas la possibilité de traiter les messages qu'il reçoit.

Utilise LogMessage pour ajouter des entrées dans l'observateur d'événements.