La création d'une véritable classe singleton dans delphi

La creation d'une veritable classe singleton dans delphi

La creation d'une veritable classe singleton dans delphi : Plusieurs milliers de conseils pour vous faciliter la vie.

cet article decrit comment creer une classe qui suit le pattern singleton. La classe decrit prendra soin de le singleton exigences et les effets sur lui-meme, pour effet de laisser au programmeur d'utiliser la classe comme tout les autres.
Un singleton est une classe qui prend en charge la creation d'un seul objet. C'est comme votre ordinateur, il y a juste un clavier. Donc, si vous avez ecrit le code Delphi qui a simule votre ordinateur, vous souhaitez simplement une instance de l'objet a traiter avec le clavier de lecture, d'ecriture et les activites de controle.
Articles a propos de singleton classes sont rares, mais il ya un peu sur Internet. J'ai vu quelques-uns dans les magazines. Mais aucun de ces articles comprennent des exemples de code pour creer une veritable classe singleton.
Par 'reel', je veux dire que la classe elle-meme impose une instance exigence, au lieu de laisser cette tache pour le programmeur. Tous les articles que j'ai vu jusqu'a present ont exige le programmeur d'utiliser la classe d'une maniere speciale a appliquer le pattern singleton.
Dans cet article, vous verrez comment creer une bonne classe singleton qui inclut la logique a appliquer l'une instance de la regle.
Remarque: L'approche conventionnelle, dans lequel une instance de la regle est maintenue explicitement par le programmeur, n'est pas sans merite. Reel singleton classes comme celle que je presente ici effectivement masquer les details et la sensibilisation du pattern singleton du programmeur. Le programmeur est decharge de la tache de faire respecter le modele & c'est bien, mais le programmeur peut aussi ne pas etre conscients de la nature particuliere de la classe, ce qui est mauvais. Si vous ne savez pas que la classe est une classe singleton alors toutes sortes d'erreurs peuvent survenir. Vous avez ete averti!
l'Ecriture de code
Notre objectif est d'ecrire une classe qui peut etre utilisee comme ceci:

(je l'ai laisse de cote l'essayer...enfin les blocs et les autres mesures de protection pour des raisons de simplicite.)
L'objectif est de faire de la TSingleton classe se comporter de telle maniere que les deux s1 et s2 se referer au meme objet. Voici ce que nous avons a faire:

• Instancier l'objet la premiere fois de Creer est appele (lorsque s1 est cree au-dessus)
  
• assurez-vous que lorsqu'un autre Creer est executee (s2 ci-dessus), l'objet existant est reutilises au lieu d'une autre creee
  
• Eviter de detruire l'objet lorsqu'il n'est pas le dernier de reference qui est detruit (lorsque s2 est liberee)
  
• Detruire l'instance lorsque la derniere reference est detruit (lorsque s1 est liberee ci-dessus)
  

Est-il possible de remplacer la creation et la destruction d'un nouvel objet en Delphi? Il est sûr. Dans la classe TObject (la mere de tous les objets {pun intended}), il existe deux methodes que nous pouvons utiliser:

NewInstance est responsable de l'allocation de memoire pour contenir une nouvelle instance de la classe, et FreeInstance est responsable de la liberation de la memoire lorsque la classe est grace a elle.
Ces methodes de controle de ce qui se passe lorsque l'objet est cree et lorsque l'objet est detruit. Si l'on remplace ce code, nous pouvons modifier le comportement par defaut de travailler le dire une classe singleton exige. Rien.
le Suivi des cas est un peu plus delicat. Nous devons:

1. Garder une trace de chaque instance de notre classe
   
2. Garder une trace de la façon dont de nombreuses references y sont a cette instance
   
3. Creer un nouvel objet uniquement si aucune instance existe
   
4. destruction de l'objet lorsque la derniere reference est supprimee
   

Pour garder la trace d'une instance existante, nous allons utiliser une variable globale. En fait, la variable sera finalement declare a l'interieur de la mise en Œuvre d'une unite afin de ne pas etre un vrai variable globale. Mais le champ d'application doit etre suffisante pour suivre toutes les Creer et les appels Gratuits. Nous allons appeler la variable d'Instance, donc nous savons de quoi il s'agit.
Comme pour garder une trace de la façon dont de nombreuses references existent, nous avons besoin d'une autre variable. Nous pouvons a l'interieur de la classe ou de faire une sorte de global comme Exemple. Je vais opter pour la derniere methode, mais de faire ce qui vous convient le mieux. Je vais le nom de cette variable Ref_Count.
Nous avons maintenant deux variables:

j'initialise les variables de sorte que, au depart, ils ne contiennent pas de dechets. Je sais que le compilateur le fait automatiquement, donc c'est juste un probleme de lisibilite.
Nous allons avoir besoin de declarer la TSingleton classe au-dessus de la variable de bloc, et si vous jetez un oeil a l'exemple de fichiers que vous pouvez telecharger a la fin de cet article, vous verrez que j'ai mis de la declaration dans la partie interface de l'appareil de sorte qu'il est visible de l'exterieur.

Voici la declaration de la TSingleton classe:

j'ai ajoute le RefCount fonction de sorte que nous pouvons voir que cela fonctionne reellement, et il est souvent pratique de pouvoir lire comment de nombreuses references a l'objet existe. Il n'est pas necessaire, cependant, de sorte que vous n'avez pas a l'ajouter a vos classes singleton si vous n'en avez pas besoin.
Ok, maintenant pour la mise en œuvre de l'une des trois methodes:

Et voila!
Lorsque vous appelez TSingleton du constructeur, d'un appel a la methode NewInstance declare dans TObject. Cette methode alloue de la memoire pour contenir le nouvel objet et le retourne pour le constructeur. Le constructeur utilise que de la memoire et, eventuellement, retourne un pointeur vers la memoire pour le code qui appelle le constructeur. Ce pointeur est generalement stocke dans une variable tandis que l'objet est en cours d'utilisation.
j'ai remplace la methode NewInstance donc il va allouer de la memoire uniquement si aucune instance de la classe existe. Si il y a une instance existante, la fonction retourne simplement qu'une instance pour le constructeur de sorte qu'il sera reutilise.
Si l'on appel le constructeur de trois fois, un objet est cree uniquement la premiere fois. Les deux autres appels simplement reutiliser le premier objet. La reference de la variable nombre de laissez-nous savoir que nous avons trois references a l'instance unique.
Lorsque le programme appelle le destructeur, un appel a FreeInstance est place pour liberer la memoire allouee dans le constructeur. Cette methode, aussi, est remplace, de sorte que l'objet est detruit que lorsque la derniere reference est supprimee.
Si vous avez l'intention d'utiliser un singleton dans un programme multithread, traiter l'objet comme vous le feriez pour n'importe quelle variable partagees entre les threads. Parce que c'est juste ce que vous faites: le partage entre les threads. Si vous devez prendre un soin particulier lors de la modification de donnees.
Simplicite
Comme vous pouvez le voir, la creation d'une classe singleton ne necessite pas beaucoup d'effort, juste le droit de connaissances et de quelques lignes de code. Mon code fonctionne tres bien en Delphi 5. La technique sera probablement tres bien avec les anciennes versions de Delphi, mais je ne l'ai pas teste donc je ne fais pas de garanties.
Avant de vous donner le fichier a jouer avec, permettez-moi de vous donner quelques mots de mise en garde.

• Ne pas descendre d'une classe singleton. La raison pour cela est qu'il n'est qu'un exemple et de reference de la variable nombre. Si vous derivez deux classes de TSingleton, un seul objet sera cree. L'autre categorie de reutilisation de l'objet, qui sera une instance d'une classe differente. N'allez pas sur la route!
  
• Vous ne pouvez pas faire singleton composants pour la simple raison de la propriete. Un composant est detenue par une forme et un composant ne peut pas etre possede par plusieurs autres composants.
  
• ne pas oublier que le constructeur et le destructeur appelee pour chaque nouvelle reference qu'ils sont crees et detruits. Ne pas initialiser les variables privees dans le constructeur et ne pas les liberer dans le destructeur. Au lieu de cela, generer ce code dans les NewInstance et la FreeInstance methodes, comme indique dans les commentaires.
  
• La commande de reglage de Ref_Count dans les deux methodes en parallele avec le reste du code dans ces deux methodes est essentielle. Il a a voir avec la realisation correcte de la creation et de la destruction lorsque quelque chose va mal. Si votre code d'initialisation souleve une exception, l'ordre de faire les choses comme indique ci-dessus assurez-vous que la classe est detruite correctement. Modifier ce code a vos risques et perils!
  Le fichier que vous pouvez telecharger est juste une copie de l'unite qui declare la classe singleton decrit dans cet article.
  Lien vers le fichier: CodeCentral entree 15083.
  je suis sûr que vous pouvez trouver quelques endroits ou une classe singleton est tres pratique et vous avez maintenant les outils pour creer votre propre! Si vous souhaitez entrer en contact avec moi, mon email est [email protected]
  bonne programmation!