Tester le service de notification

applications de notification.

La définition des abonnées et leur inscription dans la base se réalise facilement à partir d’un programme en VB.Net ou bien C#. Il est également possible de faire appel à un script en utilisant les objets NSInstance, Subscriber et SubscriberDevice de Microsoft.SqlServer. Notification- Services. Le script suivant permet de réaliser l’inscription de l’abonné « Antoine » :

Dim nsInstance, nsSubscriber, nsSubscriberDevice ‘ Créer et initialiser l’objet NSInstance Set nsInstance = WScript.CreateObject("Microsoft.SqlServer.Notification- Services.NSInstance") nsInstance.Initialize "InstanceDemoService"

‘ Créer et initialiser l’objet qui permet de définir les abonnés

Set nsSubscriber = WScript.CreateObject("Microsoft.SqlServer.NotificationServices. Subscriber") nsSubscriber.Initialize (nsInstance) ‘ Définir et ajouter 1 abonné nsSubscriber.SubscriberId = "Antoine" nsSubscriber.Add

‘ Définir et associer à chaque abonné un canal de remise

Set nsSubscriberDevice = WScript.CreateObject("Microsoft.SqlServer. NotificationServices.SubscriberDevice") nsSubscriberDevice.Initialize (nsInstance) nsSubscriberDevice.DeviceName = "File" nsSubscriberDevice.SubscriberId = "Antoine" nsSubscriberDevice.DeviceTypeName = "File" nsSubscriberDevice.DeliveryChannelName = "FileChannel" nsSubscriberDevice.Add

Souscrire un abonnement Après avoir défini et enregistré les abonnés possibles, ces derniers doivent souscrire un abonnement en utilisant les objets NSInstance, NSApplication et Subscription de Microsoft.SqlServer.NotificationServices. Le script présenté ci-dessous permet de définir un abonnement pour l’abonné Antoine afin qu’il suive l’article n°1 :

Dim nsInstance, nsApplication, nsSubscription
‘ Se positionner sur l’instance du service de notification
‘ Créer et initialiser l’objet NSInstance
Set nsInstance = WScript.CreateObject("Microsoft.SqlServer.Notification- Services.NSInstance") nsInstance.Initialize "InstanceDemoService"

‘ Se positionner sur l’application
Set nsApplication = WScript.CreateObject("Microsoft.SqlServer.NotificationServices. NSApplication") nsApplication.Initialize (nsInstance), "Stock"

‘Définir un nouvel abonnement
Set nsSubscription = WScript.CreateObject("Microsoft.SqlServer.NotificationServices. Subscription") nsSubscription.Initialize (nsApplication), "AbonnementStock" nsSubscription.SetFieldValue "DeviceName", "File" nsSubscription.SetFieldValue "SubscriberLocale", "fr-FR" nsSubscription.SetFieldValue "ID", 1 nsSubscription.SubscriberId = "Antoine" nsSubscription.Add

Consulter les notifications Pour pouvoir suivre les notifications, il est nécessaire que l’article identifié par le numéro 1 dispose d’un stock inférieur au stock minimum. Les données dans la table articles sont donc modifiées à cet effet à l’aide d’une instruction UPDATE. Le service de notification effectue alors son travail et très rapidement le fichier « FileNotification.txt » apparaît dans le dossier « Notifications » : Voir Figure 8.

Ce fichier contient l’avertissement tel qu’il a été mis en forme par le fichier « Stock.xslt ».