Discussion :

[beastman007]

Bonjour,

j'ai crée une nouvelle "applicationService" qui, par exemple, contient uniquement le code suivant :

Code :

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

1
2
 
showMessage('coucou');

une fois installé, je le lance et il ne se passe rien... à quel évènement doit être rattaché cette ligne de code pour qu'il soit exécuté au lancemlent du service ?

- onStart ?
- onExecute?
- ?

De plus le service a une méthode 'doStart()' , puis-je écrire

Code :

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

1
2
3
4
5
 
onAfterInstall()
begin
  doStart();
end;

...pour lancer le service dés son installation ?

Merci de votre aide, donnez moi tout les renseignements que vous connaissez sur ce composant ou bien une adresse de tutorial...?

[Keke des Iles]

Quand je fais des services, je mets le code à exécuter au démarrage dans le OnStart. Sinon, j'ai regardé vite ce que faisait OnExecute et avec simplement l'aide de delphi, je n'ai pas trop bien compris .

J'ai des doutes sur le fait qu'on puisse faire un ShowMessage dans un service. Normalement, un service n'affiche rien à l'écran (rien de graphique). Cela peut même être une source d'erreur (pour les ShowMessage, je ne sais pas mais si c'est un boîte de dialogue j'en suis sûr)
Pour vérifier que ton service marche, fait plutôt un fichier de logs.

Enfin, je ne connais pas DoStart et je ne l'ai pas trouvé dans les méthodes du TService. C'est une méthode de quelle classe ?

[beastman007]

je ne peux pas te dire pour l'instant mais je regarderai ce soir

[heid]

Bon , primo un service ca peut avoir une interface graphique , donc un showmessage. Il faut pour cela qu'il puisse interagir avec le bureau et donc qu'il soit executé sous le compte localsystème.

Secondo, dans le onexecute met

Code :

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

1
2
while not terminated do
      ServiceThread.ProcessRequests(true);

après met un timer avec un showmessage ou met ton code dans l'évenement onStart.

Tertio, pour faire du pas à pas via delphi avec un service il faut que le service windows installer soit démarré sur ta machine. Attention il s'arrête tout seul et tu as un temps limite après lequel si tu ne fait pas de pas a pas ton service va s'arrêter.

Quatro pour installer otn service utilises les paramètres /install ou /uninstall.

Pour terminer, je préconise d'utiliser un serveur web integré (indy) en guise d'interface pour le service.
Bon code.

[christall]

Pour pouvoir afficher des choses, le service doit avoir la permission d'interragir avec le bureau ... sinon, ça fait une exception et l'appli se termine.