Discussion :

[pottiez]

Bonjour,
je vais poser une question qui peut sembler très con, mais je n'arrive pas à ce que mon application service s'exécute, je m'explique :

J'ai créé une Application service, celle-ci contient un TService, dans les évènement OnStart j'ai créé une instance d'un thread et je lance se thread, dans l'évènement OnStop j'ai arrêté le thread et j'ai détruis son instance. Le problème et que lorsque je lance mon service, il ne passe jamais dans ces évènement, aurais-je loupé quelque chose ?

Merci par avance de votre aide.

[blondelle]

Salut pottiez
Dans la FAQ Delphi il y a quelques explications

http://delphi.developpez.com/faq/?page=services

[pottiez]

Salut blondelle,
en fait, je voulais utiliser le composant TService de Borland, la FAQ Delphi elle le fait par rapport à l'API Windows.
Dans tout les exemples que j'ai trouvé, il suffisait de mettre son code dans OnStart et OnStop

[blondelle]

Dis moi si je me trompe, pour creer un service tu fais Nouveau->Autre->ServiceApplication, je n'ai pas trouve de composant a deposer sur la Form

[pottiez]

Oui, et la tu as directement un TService, c'est un espèce de DataModule, c'est un espace ou tu peut mettre certain composant (non graphique) et ce n'est pas une form, c'est un espace de données pour placer des composants non graphique

[blondelle]

Daccord alors dans l'aide TService, onglet Utilisation TService, tu a toute un exemple avec a la fin trois liens dont un sur les Threads de service, et la aussi un exemple

[pottiez]

Oui, et c'est exemple montre qu'il faut soit mettre le code dans un while qui lui même est dans le OnExecute, ou alors mettre des appelle à un Thread dans les OnStart, OnStop,...
J'ai choisie le deuxieme solution est ça ne fonctionne pas, mon service est bien créé, se lance, mais ne passe jamais dans les OnStart, OnStop,...
Du coup j'ai essayé des mettre dans le OnExecute, mais ca n'y passe pas non plus
Je comprend plus trop la

[blondelle]

En faisant des recherches je suis tombe par hazard sur ce lien, il y a un PDF qui explique le code de l'aide BCB, dommage que ce soit en anglais, il explique comment inserer le Thread

http://www.kbcafe.com/articles/TService.pdf

[pottiez]

Pour infos, j'ai trouvé ce que je cherchais, pour que cela fonctionne, il faut obligatoirement du code dans l'évènement OnExecute, si vous utilisé les évènements OnStart, OnStop,... pour lancer d'autre thread qui ferons le travaille il suffit de mettre ceci dans le OnExecute :

Code :

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

1
2
3
4
  while(Terminated == false)
  {
    Service1->ServiceThread->ProcessRequests(false);
  }

Sans oublié que si votre service intervient au niveau interface il faut mettre la propriété Interactive à true