SERVICE NT | TOUS CE QUE VOUS DEVEZ SAVOIR | INCLU DOC, ZIP ET SOURCE

Commentaire de gaudetm le 05/04/2004 09:23:27

Merci à toi ;)
Je suis hyper occupé dans mon travail, et surtout que je travail en freelance pour la créations de site, donc mon temps est en or :)
si je travail, je vis pas lol
n'est-ce pas la vie est belle? lol

sinon j'ai une chose à rajoutter concernant le demarrage du service, au lieu d'aller ds le gestionnaire de service et de l'installer, on peut le faire via le shell de winNT (invite de commande).
donc il suffit d'utiliser la syntaxe suivante:
NET START "NOM DE VOTRE SERVICE"

pour arreter un service:
NET STOP "NOM DE VOTRE SERVICE"

dans le cas de la source que j'ai fourni, le service s'apelle:
"DELPHI FR SERVICE"
donc pour le demarrer:
NET START "DELPHI FR SERVICE"

voili voilou

Commentaire de gaudetm le 05/04/2004 23:30:35

@ ffert
ton problème est en qcq sorte classique, surtout sur les serveurs NT4.
en effet c'est un defaut dans l'heritage ds NT4, par contre comprehensible aussi, pour empecher l'execution de codes "malicieux" indirectement?
car à priori quand on est loggé en user, l'administrateur aurait établie au préalable la gestion de la sécurité locale, et donc si la sécurité des users a bien etait faite, un user normal ne pourrait pas lancer des actions qui touchent l'OS...

par defaut le service crée par Delphi, à son installation, s'attribue les droit du user SYSTEM (privilèges supérieurs à admin) et s'execute sous le user SYSTEM pour effectué ses taches (et donc a les droits absolues, meme pour detruire l'OS, que d'ailleur admin ne peut pas faire directement)

PS: le service Delphi peut etre configuré pour utiliser un nom d'utilisateur et un mot de passe pour son installation (voir proprietés du service)

maintenant concernant ton problème, essaye de le créer comme j'ai indiqué (je travail sour Delphi 7, et donc je ne sais pas si les version antérieurs possèdent les meme proprietés) et essaye d'executer tes actions.
je viens de tester sous XP et 2000 Advanced Server le meme service pour effectuer des actions sur le OS (install et désinstall d'un pilote système) et ça ne m'a pas causé de problème de droits ou de privilèges.
je n'ai pas NT d'installé pour tester, donc je ne pourrai pas prédire.
mais logiquement si sous NT le service demarre en tand que SYSTEM, je ne pense pas que l'OS refusera ces actions.

Cordialement,

Commentaire de gaudetm le 17/04/2004 02:27:03

@ Encore1ben

c'est dans les proprietés du service qu'il faut changer:

StartType => AUTO/MANUAL... (pour demarrer automatiquement avec l'ordi)...

la proprieté StartType du Service sous delphi te permet de choisir le mode de demarrage lors de son installe ;)

voila

Commentaire de gaudetm le 17/04/2004 05:29:48

pour le faire en manuel, suffit ds Delphi, de choisir ds la section Proprieté du service, StartType = MANUAL
tu le mets à MANUAL, et donc au redemarrage le service ne demarrera pas automatiquement (tout seul)
à ce moment là pour le demarrer fo faire NET START...
et pour le tuer c'est NET STOP...

voili voilou ;)

Commentaire de gaudetm le 01/06/2004 20:29:05

@ PascalZ

ce né pa possible de le lancer avec l'utilisateur en cours, et ça pour des raisons de sécurité...

pour lancer un service Delphi avec un user et pass d'un compte NT, suffit de remplir les 2 champs proprietés du service:
"ServiceStartName" et "Password"

ds le 1er tu mets ".\Pascal"  (si Pascal est le user en question)
ds le 2nd le pass de Pascal

PS: sans les guillemets, et noublie pas le .\ qui signifie le user sur cet ordi et non pas sur un domaine...

Commentaire de gaudetm le 09/09/2004 23:45:54

@aknoth

si j'ai bien comprit, windows bloque ou se met en attente à la fermeture de session...

à priori le probleme vient de ton application service (fo voir au nivo OnCloseQuery ça peut bloquer la fermeture du programe de là...)

puis verifies que ton service demarre en tand que SYSTEM et non pas un user normal de l'ordi

sinon fo regarder ds ton code (ça ne vient surrement pas des sockets car windows sait les fermer comme un grand ;)  )

Commentaire de gaudetm le 13/09/2004 18:26:41

@aknoth

ben peut etre tout simplement le programe attend la fermeture des sockets (fo voir o nivo de ton code)

ça ne vient pas du service lui meme mais des composants INDY.
tu dois avoir des fonctions thread pour le TCP, et essaye de forcer la fermeture des connections manuellement

à part ça je ne suis pas dans ton code, donc je suis celui qui est le moin qualifié à te répondre ;)

Commentaire de gaudetm le 29/10/2004 00:00:02

@ Deufr

je ne suis pas certain que la version perso de Delphi a le support Services NT...

et ce n'est pas des rats chez Borland, ils estiment tout simplement que la personne ayant la version perso n'est pas un developpeur professionel, et donc la création de Services NT n'est pas censé etre à sa portée.

biensure, le sens de "developpeur professionel" ne veut en aucun cas dire que la personne est incompetente, mais plutot que la personne ne fait pas partie qu'une societé (et donc n'est pas censé avoir le besoin de creer des Services NT, car ce genre d'applications sont reservées aux logiciels à utilisation spécifique et orientées entreprises...)

Commentaire de gaudetm le 01/11/2004 21:26:34

@Deufr

biensure que tu peux
t'achetes la version pro ou entreprise de Delphi ;)

Commentaire de wismerhill40 le 14/12/2004 16:09:30

je viens de lire tout ce qui est ecrit sur cette page et moi j'ai autre probleme (comme beaucoup d'autre je pense) a savoir que lorsque j'arrete ma machine j'ai un message d'erreur du type
"nom_du_service" erreur d'application  exception logiciel inconnue blablabla 0x77e7e592".
sachant que dans mon service j'ai un client TCP. J'ai essaye de voir avec l'appartenance au groupe tcp mais ca ne change rien. Je me demande si le service ne s'arrete pas apres le service TCP. Mais jai essaye de l'arrete avant. Soit il s'arrete avant mais cela n'a rien change, soit il s'arrete toujours quand il veut. Si quelqu'un a une solution quelquonque cela m'aiderai car ca fait 6 mois que je suis dessus sans rien regler !!!
Pitier ...

Commentaire de falves le 09/01/2005 12:04:31

Hello,

Super, ça marche très bien.
Quelqu'un sait-il comment, via un service, obtenir, sous XP :
* Le nom de la session en cours ?
* l'évenement d'ouverture de session ?
* l'évenement d'ouverture de session ?

merci d'avance.

Commentaire de gaudetm le 09/04/2005 12:05:12

@cdetre

ya pa de koi

concernant ta question, avant toute chose, le service doit demarrer avec les droits asequats pour kil puisse naviguer sur un systeme de fichier NTFS.
l'ideal c'est de demarrer le service avec les droits system.
pour le composant, utilise plutot un listarray ou un array carremen
je ne t'aiderai pa d'avantage car j'ai l'impression ke ton service a un but pa trop amical...

@++

Commentaire de Didier44 le 12/07/2005 14:30:54

Bonjour,
Tout d'abord félicitation pour cet exemple qui a le mérite de nous  mettre rapidement le pied à l'étrier dans l'apprentissage et la manipulation d'une application service. Je rencontre toutefois une difficulté lorsque j'essaie dans cette application d'accéder à une base Interbase , je m'explique:
Dans l'application Service j'ai programmé une interruption toutes les 3 secondes dans laquelle je déclenche un bip me permettant de vérifier que mon appli tourne ; dans cette interruption j'ouvre une table et je la referme aussi sec ; j'ai donc utilisé un composant TDataBase et TTable ; je me connecte à ma database apres l'install de l'application service . Que se passe-t-il ? lors de l'installation de l'appli (appli /install) celle-ci tourne normalement jusqu'à ce que je valide par Ok ; ensuite je fait dans la gestion des service et je démarre mon service et la tout se passe normalement , j'obtiens un bip et puis plus rien alors que je devrai retrouver ce bip toutes les 3 secondes ?WHYYYYY ; j'ajoute que si j'arrete ce service cela répons apparemment correctement el lorsque je desinstalle l'appli se met à refonctionner normalement jusqu'à ce que j'appuie sur la touche OK

Commentaire de Didier44 le 13/07/2005 19:45:27

Encore merci GAUDETM de m'accorder un peu de temps
mais je n'arrive décidément pas à me connecter à une database dans mon application service
J'ai essayé de passer la propriété interactive à true et cela n'a rien changé; tout se passe comme si la base n"était pas ouverte et pourtant je l'ai effectué dans la routine afterinstall (j'ai également essayé beforeinstall sans résultart)

Commentaire de Didier44 le 19/07/2005 20:31:59

bonjour ,
je n'arrive toujours pas à trouver ma solution pour l'utilisation d'une database dans une apllication service ;est-ce que tu peux jeter un coup d'oeil sur mon micro-projet; je sais qiue ton temps est compté mais là vraiment je craque et ne voit pas d'issue ; j'ai essayé de contacter team-b qui me mène en bateau (avez-vous essayé ceci,cela et au bout du compte je n'avance pas).le projet est vraiment très très court (je tente d'ouvrir un composant TDataBase dasn l'instruction onstart du Tservice ,j'ajoute que je manipule les composants TdataBase depouis pas mal de temps et n'ai jamis rencontré ce type de problème.

Commentaire de gaudetm le 21/07/2005 09:07:03

@Didier44

mettre ton code dans OnStart peut causer des problemes avec un service...
regarde bien mon code, tu verras que le 1er timer commence a s'executer apres 3 secondes du demarrage du service (pour etre sure que le service a demarré)
essaye de faire pareil. faut bidouiller, car la tu ne travailles pas dans une application win32 normale!

tu poses trop de questions sans vouloir savoir le pourquoi, tu veux juste savoir le comment.
je te conseil de documenter et de savoir comment windows fonctionne, t'auras toutes les reponses que tu cherches.
je ne pense pas etre un pro windows, donc je ne me permet pas de t'expliquer.
du coup, pourquoi mon code fonctionne et pas le tient?

perso j'ai reussi a me connecter a des bases externes et des bases via ODBC, et jamais eu de probleme.

Commentaire de askil2000 le 08/09/2005 16:22:04

Salut tout le monde !
Merci GAUDETM pour ta source et ton explication :o)
c'est tout simplement génial. Petite question au sujet du service toujours, est t'il possible de mettre une description ?

Car tu dis comment changer le Nom, le StartType, mais pas la Description. Et j'avoue avoir cherché dans l'appli, puis sur le net, à croire que c'est toi qui a inventé le service windows. Je t'implore oohhh grand GAUDETM livre nous le secret de ton savoir lol. Et encore merci ....

Commentaire de askil2000 le 08/09/2005 16:48:16

nikel, merci PascalZ !

Commentaire de Didier44 le 19/10/2005 16:35:24

J'ai enfin trouvé l'explication : je ne pouvais tout simplement pas accéder à ma base de données (Interbase) dans mon apllication service parceque le serveur Interbase éatit lancé comme apllication standard et non comme service (Je ne peux dire pourquoi cela ne fonctionnait pas ; en revanche je sais que depuis que je l'ai lancé en tant que service je n'ai plus aucun pb!) Peut-être auras-tu une explication
Merci encore pour ton exemple qui m'a permis de m'appuyer sur quelque chose d'éprouvé et qui m'a permis de faire des tests par ailleurs.

Commentaire de thierrylp le 21/10/2005 02:18:33

Bonjour,
Je developpe egalement un service Delphi permettant de scruter un trigger sur un Bdd Firebird 1.5 (projet Phoenix basé sur interbase 6.0).
lors du lancement de mon service j'ai une erreur qui se produit : Erreur 193 0xC1
J'ai respecté les recommandations en lancant cette connection bdd au bout de 5 s.
Rien n'y fait , je dois passer à coté de qq chose.
Merci pour toute info.

Commentaire de thierrylp le 27/10/2005 05:27:02

La suite...
maintenant mon service se lance, la connexion à la bdd se fait correctement.
mon service recoit les evenements postés par la bdd firebird.
Sur un evenement je desire lancer un executable developpé en delphi (aussi).
J'utilise la mm commande que dans la source ci dessus.:
WinExec(PChar('C:\Program Files\Micap\Administration\miAdmin.exe'), SW_SHOWNORMAL);
Lors du lancement de cette ligne de commande j'ai un message d'erreur Unnamed:
----------------------------------------------------------------------------------
C:/Documents and Setting\LocalService\Bureau fait référence à un emplacement non disponible. Il peut s'agir d'un emplacement situé sur un disque dur de cet ordinateur ou sur un reseau. Vérifier que le disque est insérer correctement, ou que vous êtes connecté(e) à Internet ou à un réseau domestique, puis essayer à nouveau. Si vous ne trouvez toujours pas l'information, elle a peut être été déplacée vers un emplacement différent.
--------------------------------------------------------------------------------------
Désolé pour la longueur. Une fois le message acquité, mon executable est lancé mais cé bien dommage pour une application qui doit se gerer sans intervenant.
Des suggestions ? elles seront bienvenues.

Commentaire de raimbow64 le 19/11/2005 12:36:28

Bonjour, merci pour ces informations. Une question peut on gerer les execptions ?
car j'ai essayé de faire ceci (qui fonctionne dans une appli normale)
dans le oncreate j'ajoute
application.onexception := mafonctionaexecuter;
mais lors de la compilation il me dit que onexception est un identificateur non déclaré. Je ne vois d'où cela peut provenir.

Commentaire de MAURICIO le 10/01/2008 18:49:40

Salut GaudeTM,

faut dire que les sources sur les services, ça court pas les rues!
Vu que j' en ai besoin pour un programme de mails qui importe les mails de plusieurs comptes (il marche en ce moment comme exe normal).

J' apporte un petit suplément à cette source, comment insérer un TrayIcon avec un PopMenu :

const
  WM_TASKBAREVENT = WM_USER + 1;

type
  TService1 = class(TService)
    Timer1: TTimer;
    Timer2: TTimer;
    PopMenu: TPopupMenu;
    MIMainWindow: TMenuItem;
    MIPause: TMenuItem;
    N1: TMenuItem;
    MIClose: TMenuItem;
    procedure ServiceExecute(Sender: TService);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure ServiceCreate(Sender: TObject);
    procedure ServiceDestroy(Sender: TObject);
  private
    { Private declarations }
    procedure HandleIconMessage(var Msg: TMessage);
    procedure WMTaskBarEvent(var Msg: TMessage); message WM_TASKBAREVENT;
  public
    FHandle: HWND;     // On va créer un HWND juste pour capturer le click de la souris ...
    IconData : TNotifyIconData;
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

var
  Service1: TService1;


procedure TService1.WMTaskBarEvent(var Msg: TMessage);
var pt: TPoint;
begin
  if msg.LParam = WM_RBUTTONDOWN
  then begin          
    GetCursorPos(pt);
    PopMenu.Popup(pt.x, pt.y);
    PostMessage(aHWND, WM_NULL, 0, 0);
  end;
end;

procedure TService1.HandleIconMessage(var Msg: TMessage);
begin
  if Msg.Msg = WM_TASKBAREVENT
  then WMTaskBarEvent(Msg);
end;

procedure TService1.ServiceCreate(Sender: TObject);
begin
  FHandle := Classes.AllocateHWnd(HandleIconMessage);

  // Tray Icon :
  IconData.cbSize := sizeof(IconData);
  IconData.Wnd := FHandle;

  IconData.uID := 100;
  IconData.uFlags := NIF_MESSAGE + NIF_ICON + NIF_TIP;
  IconData.uCallbackMessage := WM_TASKBAREVENT;
  IconData.hIcon := Forms.Application.Icon.Handle;
  StrPCopy(IconData.szTip, Service1.DisplayName);
  Shell_NotifyIcon(NIM_ADD, @IconData);
end;

procedure TService1.ServiceDestroy(Sender: TObject);
begin
  Shell_NotifyIcon(NIM_DELETE, @IconData);
  Classes.DeallocateHWnd(FHandle);    
end;

A+