Implémentation Service Windows:implémentation

Microsoft a fourni tout un développement Pack pour implémenter et utiliser un service à partir de Windows NT 3.51. Il s’agit du Service Control Manager qui expose un nombre important d’API. Delphi XE fournit tout un framework rendant l’utilisation de service beaucoup plus simple.

Ainsi, pour créer un service, utilisons le wizard fourni par Delphi en le faisant apparaître par File - New - Other et choisissons Windows Service dans l’arborescence Delphi - Windows comme dans la capture ci-dessous :

images/09EP01.png

Delphi génère un fichier dpr et un fichier source pascal.

Le fichier dpr se présente ainsi :

program ServiceExemple; 
 
uses 
 Vcl.SvcMgr, 
 UServiceExemple in 'UServiceExemple.pas' {Service1: TService}; 
 
{$R *.RES} 
 
begin 
 if not Application.DelayInitialize or Application.Installing then 
 Application.Initialize; 
 Application.CreateForm(TService1, Service1); 
 Application.Run; 
end. 

On remarque que le type de binaire est un programme (program). Lors de la sauvegarde, le nom ServiceExemple a été choisi. Le binaire qui sera généré sera ServiceExemple.exe, mais cela ne sera pas forcément le nom publié dans le gestionnaire de service.

On remarque aussi l’inclusion de l’unité Vcl.SvcMgr qui porte l’encapsulation des API Windows permettant de manipuler...

Pour consulter la suite, découvrez le livre suivant :
couv_RIDELPH.png
60-signet.svg
En version papier
20-ecran_lettre.svg
En version numérique
41-logo_abonnement.svg
En illimité avec l'abonnement ENI
130-boutique.svg
Sur la boutique officielle ENI
Précédent
Configuration
Suivant
Débogage de service Windows