Discussion :

[nanau]

Bonjour

je développe sous Windev 19

j'ai besoin de faire un developpement Windev sous forme d'un service.
J'ai commencé à regarder un peu comment ça fonctionne.

EN me basant sur l'exemple WD Service, j'ai crée un service test.
Dans la partie initialisation, j'ai mis en place des instructions pour installer/désinstaller démarrer/arrêter le service.

Dans la partie execution du service j'ai juste mis quelques instructions qui ajoutent des enregistrement dans une table

Quand je fais déboguer en tant que service, tout se passe bien, il passe dans la partie initialisation puis dns la partie execution.
Mais quand je l'installe sur mon poste et que je l'executes, il ne passe jamais dans la partie execution. il s'arrête à la fin de l'initialisation

Si quelqu'un a une idee
Merci d'avance

[WebJaseur]

Difficile d'appréhender le code que vous avez écrit.

vous dites :
Dans la partie initialisation, j'ai mis en place des instructions pour installer/désinstaller démarrer/arrêter le service.
votre code n'arrêtrait t'il pas le service ...

Etes vous sur que votre service tourne toujours voir le statut du service : Control Panel -> Outil d'administration -> Services

Par rapport à l'exemple seul le contenu de la fonction ExécutionService dans la zone Execution du service (appelé en boucle)
sera exécuté en mode service toutes les minutes

pas de fenêtre ni d'interaction utilisateur bien sur

bon dev

Jean-Jacques
WebJaseur.com

[nanau]

Bonjour

Merci de votre réponse.
Dans la partie initialisation, j’arrête ou je démarre le service (suivant un paramètre passé avec l'appel du programme)

J'ai vérifie que le service tourne, il est bien dans la liste des service. il est déclaré comme démarré et lancement automatique (voir le fichier joint)

la partie exécution du service n'a aucun affichage:

Code :

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

1
2
3
4
5
HRAZ(Test)
Test.testdate=DateSys()
Test.testheure=HeureSys()
HAjoute(Test)
ServiceTemporise(1000)

Lorsque je fais Déboguer en tant que service, tout se passe bien

[DelphiManiac]

..Mais quand je l'installe sur mon poste et que je l'executes, il ne passe jamais dans la partie execution. il s'arrête à la fin de l'initialisation

La question que je me pose, c'est qu'est ce qu'il te fait dire qu'il ne passe jamais dans la partie exécution ? le fait que les enregistrements ne s'ajoute pas à ton fichier ?

Rien ne dis qu'il ne passe pas dans la partie exécution, mais qu'une erreur se produit. Lorsqu'on installe un service sur un PC, celui ci s'installe avec des droits utilisateurs spécifique au compte associé au lancement du service. Par défaut ces comptes n'ont pas des droits très étendues. Je soupçonne plus, dans ton cas, que l'exécution se réalise bien, mais qu'une erreur lié au droit d'accès au fichier se produit et que du coup, tu as l'impression que rien ne se produit alors que c'est juste un problème de droit.

Essaye d'utiliser ServiceEcritEvénementJournal au début de ta partie "exécution" et vérifie ton journal d'évènements.

[nanau]

En fait ce service est juste un test. pour essayer de comprendre comment cela fonctionne car je vais avoir besoin de développer des services..
j'ai juste mis en place cette histoire de table a renseigner pour voir si le service fonctionne bien ou pas.
Donc déjà j'ai vu qu'il n'y avait aucun enregistrement de crée.
Mais, comme je l'ai utilisé sur le poste sur lequel je développe, j'ai essayé d'utilisé "lancer et déboguer l'executable" et la j'ai vu qu'il ne passé jamais dans la partie Execution du service.
Quand aux droits, lors de la création de l'executable, j'ai indiqué qu'il necessitait les privilèges admistrateur (sinon la partie initialisation de mon service n'avait pas suffisement de droit pour s'executer normalement). et, lors que lance l'excutable, il demande bien confirmation pour les droits administrateurs.
Mais je vais tester de créer quelque chose dans le journal d'évènement pour être certain

[laurent30s]

Regarde ce tutoriel
http://wind.developpez.com/tutoriels...ev-webservice/

[nanau]

OK merci je vais regarder cela