Tservice démarrage automatique

Version imprimable

27/01/2015, 08h11
magil

Tservice démarrage automatique

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 ?
27/01/2015, 09h13
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...
27/01/2015, 13h03
magil

C'est curieux, car sous windows 8 ça se passe normalement, il démarre en automatique
27/01/2015, 14h19
Ph. B.

Bonjour,

Citation:

Envoyé par magil

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 ?
27/01/2015, 19h06
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..
28/01/2015, 11h08
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?
28/01/2015, 11h53
Andnotor

Citation:

Envoyé par magil

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.
28/01/2015, 18h05
magil
En fait, le execute a un code
Code:

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.

Quelle horreur 8O

Code:

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

29/01/2015, 08h36
magil
Je n'ai pas de ServiceThread.

en remplaçant par
Code:

1 2 3 repeat sleep(100); until terminated;
ça ne change rien
29/01/2015, 09h37
Andnotor

Citation:

Envoyé par magil

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.

J'ai simplifier encore, et j'ai résolu 1 problème :
Le service de détection des services interactif doit être mis en automatique sur windows 7 pour que je n'ai plus de message d'erreur dans l'observateur d'évènement.
Mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
type
  TSimple_service = class(TService)
    Timer1: TTimer;
    procedure ServiceStart(Sender: TService; var Started: Boolean);
    procedure Timer1Timer(Sender: TObject);
    procedure ServiceStop(Sender: TService; var Stopped: Boolean);
  private
    { Déclarations privées }
    nb_son : integer;
  public
    function GetServiceController: TServiceController; override;
    { Déclarations publiques }
  end;
 
var
  Simple_service: TSimple_service;
 
implementation
 
{$R *.DFM}
 
procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Simple_service.Controller(CtrlCode);
end;
 
function TSimple_service.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;
 
 
 
procedure TSimple_service.ServiceStart(Sender: TService; var Started: Boolean);
begin
  nb_son := 0;
  timer1.Enabled := true;
  Started := True;
end;
 
procedure TSimple_service.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
  Stopped := true;
end;
 
procedure TSimple_service.Timer1Timer(Sender: TObject);
begin
  if nb_son < 10 then
  begin
    inc(nb_son);
    Try
      logmessage('simple_service',EVENTLOG_INFORMATION_TYPE,0,nb_son);
      PlaySound('C:\Windows\Media\Ring05.wav', 0, SND_SYNC);
    except
       if fileexists('C:\Windows\Media\Ring05.wav') then
         logmessage('simple_service',EVENTLOG_INFORMATION_TYPE,0,20)
       else
         logmessage('simple_service',EVENTLOG_INFORMATION_TYPE,0,21);
 
    End;
  end
  else
    Timer1.Enabled := false;
end;

Normalement, il doit jouer 10 fois le son.
Sous Windows 8, c'est ce qui arrive.
Sous Windows 7, il démarre normalement, les messages 1 à 10 sont bien dans l'observateur d'évènement, mais pas de son

10/02/2015, 09h11
magil

Finalement, le service démarre automatiquement si l'installation se fait par Execute C:\xxxx\Monservice.exe /Install.
Bizarre, dans le logiciel ou je l'installe, ça fonctionne sous windows 8, mais pas sous windows 7.

Il me reste le problème du son : Playsound fonctionne sous Windows 8, mais pas sous windows 7. Sous windows 7, le plays sound fonctionne dans un programme sous un utilisateur lambda.