Comment débuguer un Service ?

**WebPac** · 21/08/2006, 14h39

Salut tout le monde,

toute la question est dans le titre : Comment débuguer un service ?
J'air regardé dans la FAQ et fais une recherche sur le forum et je n'ai rien trouvé.
Apparement, ce n'est pas possible, mais je suis sûr qu'il y a un moyen de contourner le problème, mais je ne sais pas encore comment.

**Yurck** · 21/08/2006, 14h48

Bonjour,

Je n'ai pas (trop) de difficulté à déboguer mes services.
Je désinstalle celui-ci et je le lance en mode install.

Code :

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

1
2
3
4
5
6
7
8
 
procedure TMyService.ServiceCreate(Sender: TObject);
var
  yes : BOOLEAN;
begin
  if EnDebug then
    ServiceStart(Self,yes);
end;

EnDebug est un boolean perso

P.S : je suis en D6

a+

**WebPac** · 21/08/2006, 14h58

Merci pour l'idée, j'essayais une autre approche.
J'ai créé un autre projet classique, intégré les unités, copier/coller ce qui se trouvait dans le .dpr, changé une unité par Forms, mais c'est lourd.
Ta solution est plus simple.

**WebPac** · 21/08/2006, 15h32

En fait, avec cette façon, on peut débuguer certaines fonctions, mais on ne peut pas lancer l'application, dès qu'elle passe le code Application.Run, elle s'arrête.

**Yurck** · 21/08/2006, 15h53

je mets mon point d'arrêt au plus près de ce que je veux déboguer.

J'ai essayé d'epuré le code et ds l'exemple suivant je débogue mon timer qui scrute en attente ...

Mon point d'arrêt est donc dans la méthode "TimerLectureTimer"

Code :

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

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

procedure TMyService.ServiceCreate(Sender: TObject);
begin
  try
  Session.TraceFlags := [tfqprepare..tfDataOut];
  {$IFDEF USE_IBOBJECT}
  DisplayName := 'MyService (IB natif)';
  {$ELSE}
  DisplayName := 'MyService (mode BDE)';
  {$ENDIF}

    if FindCmdLineSwitch('DEBUG',['-','/'] , true) then
      EnDebug := True;
  if EnDebug then
    ServiceStart(Self,yes);
  except
    on e:exception do
      showmessage(e.message);
  end;
end;

procedure TMyService.ServiceStart(Sender: TService; var Started: Boolean);
begin
  try
    TimerLecture.Enabled  := True;
    if EnDebug then
      TimerLectureTimer(TimerLecture);
    Started := true;
  except
    on e:exception do
      showmessage(e.message);
  end;
end;

a+

**WebPac** · 21/08/2006, 16h04

Je comprends bien ce que tu veux dire, mais dans mon cas, le Service fait office de serveur, les points d'arrêt doivent se mettre dans les méthodes lancées après connexion du client.

En fait, c'est quand même faisable, je mets un point d'arrêt dans le ServiceStart, puis je lance et connecte mon client. Je mets un point d'arrêt dans la méthode et je continue le serveur jusqu'au second point d'arrêt.

Quand même le fait qu'Application.Run termine le service n'est pas très pratique.

**Cpt Anderson** · 22/08/2006, 11h42

Je l'ai déjà fais mais je ne me rappelle plus exactement la manip:

tu installes ton service et tu le démarres. En parallèle, tu places ton point d'arret dans ton code et tu fais Executer/Attacher au processus. Tu vas chercher ton service et tu l'attaches.

Si tout va bien, ca devrait fonctionner...

Si j'ai oublié un truc, que quelqu'un complète mon explication.

**NoisetteProd** · 22/08/2006, 13h46

La méthode la plus simple que j'ai trouvé pour débugger les services est de logger les actions pour trouver ou ca plante...

Avec un code du style :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure Log(mess : string);
var
  tempName : string;
  f : textFile;
begin
  tempName := IncludeTrailingPathDelimiter(ExtractFilePath(Paramstr(0))) + 'Nomdemonservice_' + FormatDateTime('mm', now) + '.log';
  assignfile(f, tempName);
  if not FileExists(TempName) then
    ReWrite(F)
  else
    append(f);
  writeln(f, DateTimeToStr(now) + ' : ' + mess);
  Flush(f);
  closeFile(f);
  mess := '';
end;

**WebPac** · 25/08/2006, 12h37

En fait, en mettant ServiceStart dans le .dpr pour débuguer le chargement de l'application et utiliser la méthode de NoisetteProd en utilisant Exécuter > Attacher au processus pour débuguer le service lancé, cela permet de débuguer facilement les différents cas d'utilisation de façon simple.

Je mets [Résolu], les solutions sont bonnes.
Merci pour vos conseils.

**WebPac** · 25/08/2006, 17h46

Pour info, j'ai trouvé dans l'aide de Delphi : Débogage d'applications service.
Cela explique qu'il faut attacher le processus :

Vous pouvez déboguer les applications service en attachant le processus de l'application service lors de son exécution (c'est-à-dire en commençant par démarrer le service puis en l'attachant au débogueur). Pour effectuer l'attachement au processus d'application service, choisissez Exécuter|Attacher au processus et sélectionnez l'application service dans la boîte de dialogue résultante.