Retrouver une instance de classe par son nom

Version imprimable

18/02/2008, 15h45
chipster45

Décrire une classe via fichier XML
Bonjour,

J'ai dans mon programme une " SuperClasse " Abstraite dont dérive plusieurs autres classes ( nommons les " Classe1 ", " Classe2 " , ...). La " SuperClasse " contient une méthode " Ajouter " ( dont l'implémentation varie suivant la classe " fille " ).

Je lis un fichier XML contenant des nodes dont le traitement varie suivant le nom du noeud. Chaque type de noeud correspond à une instance ( " Classe1 ", " Classe2 " ). Ces noeuds ont les memes noms que mes classes. ex :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 <Classe1> .... </Classe1> <Classe2> .... </Classe2> <Classe1> .... </Classe1> <Classe1> .... </Classe1> <Classe2> .... </Classe2>
Ce que je voudrais faire, c'est pouvoir appeller directement la bonne classe pour le traitement sans avoir à passer par quelque chose du genre :
Code:

1 2 if XMLNode.name = 'Classe1' then InstanceClasse1.add(XMLNode);
Je voudrais donc pouvoir directement appeller la bonne classe ( ou l'objet...unique dans le programme et dont la rêgle de nommage est stricte ex : " MonClasse1 " ) du genre :

Code:

TSuperClasse(RetrouveObjetParSonNom('Mon'+XMLNode.name )).add(XMLNode);

ou

Code:

TSuperClasse(RetrouveInstanceDeClasse(XMLNode.name )).add(XMLNode);

Je précise que la " SuperClasse " ne dérive elle d'aucune classe et que " Classe1 " , " Classe2 " n'ont qu'une seule instance dans le programme.

Citation:

Envoyé par chipster45

Je précise que la " SuperClasse " ne dérive elle d'aucune classe et que " Classe1 " , " Classe2 " n'ont qu'une seule instance dans le programme.

Cela dérive forcément de TObject (c'est implicite, voir l'aide) même si tu as fais
Code:

1 2 3 4 type TSuperClass = class ... end;
"Retrouver une instance de classe par son nom ?"

Juste évite TSuperClass, comme nom, c'est réservé à la Référence de classe de TSuper ... mais je suppose que c'est juste un exemple ...

Soit Tu confonds une Instance de Classe qui est un Objet
Et une Référence de Classe qui est le "descripteur" (je ne trouve pas le bon mot) de ta Classe

Soit, tu voulais parler de Singleton, je donc traiter les deux

Pour Reférence de Class, j'ai fait exactement, la même chose pour ma couche de persistante, où dans un XML était décrit les classes de l'application, les relations entre classes, l'héritage, ... pour encaspuler la DB dans une couche Objet

Il faut recenser les classes (hérité de TPersistent) avec RegisterClass, et faire ensuite FindClass

Sinon, faire une TStringList, donc chaque objet pointe en fait une TClass ... et non une instance

Pour Instance de Classe, un singleton ...

il te suffit ce faire une méthode de classe abtraite dans Super

Code:

class function GetInstance: TSuper; virtual; abstract

et dans les sous classes
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 interface class function GetInstance: TSuper; override; implementation var _SingletonMaClasse1: TMaClasse1 = nil; class function TMaClasse1.GetInstance: TSuper; begin if not Assigned(_SingletonMaClasse1) then _SingletonMaClasse1 := TMaClasse1.Create(); Result := _SingletonMaClasse1; end; initialization // _SingletonMaClasse1 := TMaClasse1.Create(); finalization if Assigned(_SingletonMaClasse1) then begin _SingletonMaClasse1.Free(); _SingletonMaClasse1 := nil; end;
tu peux aussi faire une propriété publiée, mais il te faudra tout de même avoir une variable globale derrière

PS : Si tu as Delphi 2006, ils ont ajouté les variables de classes, il me semble, tu devrais voir cela, si tu as Delphi 7 ou moins, mon code remplacera cette grosse lacune

18/02/2008, 21h26
chipster45

Citation:

Soit Tu confonds une Instance de Classe qui est un Objet
Et une Référence de Classe qui est le "descripteur" (je ne trouve pas le bon mot) de ta Classe. Soit, tu voulais parler de Singleton, je donc traiter les deux

En fait, je n'ai qu'une seule instance par type de classe ( objets créés dans le " create " de ma " form " principale ). C'est pour cela que je recherche soit à retrouver mon objet par son nom ou soit par sa classe instanciée " unique " dans mon programme.

Citation:

Juste évite TSuperClass, comme nom, c'est réservé à la Référence de classe de TSuper ... mais je suppose que c'est juste un exemple ...

Oui c'est un exemple.

Citation:

Pour Reférence de Class, j'ai fait exactement, la même chose pour ma couche de persistante, où dans un XML était décrit les classes de l'application, les relations entre classes, l'héritage, ... pour encaspuler la DB dans une couche Objet

Il faut recenser les classes (hérité de TPersistent) avec RegisterClass, et faire ensuite FindClass

Bon, je pense que c'est là que se situe actuellement mon problème. Je ne comprends pas bien l'utilisation du " RegisterClass ". Ma classe n'héritant pas d'un Tpersistent (?), je n'arrive pas à effectuer cette procédure ( et d'ailleurs ou faut-il l'implanter ? ) et donc je ne trouve pas la classe correspondante. En tout cas, ce n'est pas bien clair pour moi. :roll:

tu peux aussi faire ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
type
  TMyClassesType = (mcSuper, mcHerite1, mcHerite2);
  TSuper = Class
    ...
    class function GetInstance: TSuper; virtual; abstract;
  end;
  TSuperClass = class of TSuper;
  THerite1= Class(TSuper)
    ...
    class function GetInstance: TSuper; override;
  end;
 
const
  MY_CLASSES : array[TMyClassesType] of TSuperClass = (TSuper, THerite1, THerite2)

tu parcoures le tableau

Code:

1
2
3
4
5
6
7
function GetIndexClasses(const AClassName: string): TMyClassesType;
begin
  for Result := Low(TMyClassesType) to High(TMyClassesType) do
    if MY_CLASSES[Result].ClassName = AClassName then
      Exit;
  Result := mcSuper;
end;

Code:

1
2
3
4
5
6
7
8
9
function RetrouveObjetParSonNom(const AClassName: string): TSuper;
begin
  try
    Result := MY_CLASSES[GetIndexClasses(AClassName)].GetInstance;
  except
    on E: Exception do
      raise ExceptClass(E.ClassType).CreateFmt('la Classe %s n''a pas d''instance : "%s"', [AClassName, E.Message]);
  end;
end;

27/02/2008, 07h30
chipster45

Merci beaucoup pour les réponses. J'ai finalement opté pour une solution " plus simple " et rapide à mettre en oeuvre ( c'est mon avis :roll: ) : J'ai créé une liste d'objet ( TObjectList ) dans laquelle j'ajoute tout mes objets dérivés de ma " Super Classe " à laquelle j'ai ajouté une propriété " Name " ( String ) qui me permet d'identifier directement l'objet et ensuite à chaque node de mon fichier XML, je compare son nom à tout les noms de ma liste d'objets et je peux ainsi " orienter " directement vers le bon objet pour traitement.

Voilà :) Ca marche bien mais je rêve encore d'une fonction " GetObjectByName " :D
27/02/2008, 07h51
Paul TOTH
Citation:

Envoyé par chipster45

Merci beaucoup pour les réponses. J'ai finalement opté pour une solution " plus simple " et rapide à mettre en oeuvre ( c'est mon avis :roll: ) : J'ai créé une liste d'objet ( TObjectList ) dans laquelle j'ajoute tout mes objets dérivés de ma " Super Classe " à laquelle j'ai ajouté une propriété " Name " ( String ) qui me permet d'identifier directement l'objet et ensuite à chaque node de mon fichier XML, je compare son nom à tout les noms de ma liste d'objets et je peux ainsi " orienter " directement vers le bon objet pour traitement.

Voilà :) Ca marche bien mais je rêve encore d'une fonction " GetObjectByName " :D

les solutions les plus simples sont parfois les meilleurs :)

tu aurais aussi pu utiliser ceci
Code:

1 2 3 4 ClassList:=TStringList.Create; ClassList.AddObject('Class1',TClasse1.Create); ClassList.AddObject('Class2',TClasse2.Create);

L'utilisation d'une TStringList peut être pas mal en effet mais je pense qu'en couplant le TObjectList qui permet de gérer la libération automatiquement des instances et le ClassName qui contient déjà le nom de la classe on obtient de meilleurs résultats. ;)

Par exemple le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
interface
uses Contnrs;
 
  // accesseur public pour la liste contenant les instances d'objets
  function ObjectsManager: TObjectList;
  // deux méthodes pour ajouter une instance d'une classe quelconque à la liste
  procedure AddClassInstance( AClass: TClass ); overload;
  procedure AddClassInstance( AObject: TObject ); overload;
  // routine pour récupérer l'instance depuis son nom de classe
  function GetObjectByName( const AClassName: String ): TObject;
 
implementation
 
uses SysUtils;
 
var
  // variable "privée" de la liste des instances d'objets
  voObjectsManager: TObjectList;
 
function ObjectsManager: TObjectList;
begin
  // si la liste n'est pas encore crée alors le faire
  // noter que OwnedObject est ici à True donc quand la liste sera détruite alors
  // les instancas d'objets seront détruites elles aussi => pas de gestion mémoire à effectuer
  if not Assigned( voObjectsManager ) then
   voObjectsManager := TObjectList.Create;
 
  Result := voObjectsManager;
end;
 
// ajouter une instance d'objet via sa classe, ceci peut poser problème si jamais
// on a un constructeur avec paramètres ou que l'on veut utiliser initialiser l'objet
// avant, dans ce cas utiliser l'autre version
procedure AddClassInstance( AClass: TClass );
begin
  if not Assigned( GetObjectByName( AClass.ClassName ) ) then
   ObjectsManager.Add( AClass.Create );
end;
 
// ajouter une instance d'objet via un objet déjà instancier
// attention que cet objet sera détruit en même temps que la liste, ne pas faire
// de Free sur cet objet
procedure AddClassInstance( AObject: TObject );
begin
  if not Assigned( GetObjectByName( AObject.ClassName ) ) then
   ObjectsManager.Add( AObject );
end;
 
function GetObjectByName( const AClassName: String ): TObject;
var
 Cpt: Integer;
begin
  // renvoyer NIL par défaut
  Result := NIL;
 
  // si le nom de classe est vide ou si la liste ne contient pas d'instance alors sortir
  if ( AClassName = '' ) or ( ObjectsManager.Count = 0 ) then
   Exit;
 
  // sinon boucler jusqu'à trouver l'instance dont le nom de classe correspond
  Cpt := 0;
  while not Assigned( Result ) and ( Cpt < ObjectsManager.Count ) do
   if ObjectsManager[Cpt].ClassNameIs( AClassName ) then
    Result := ObjectsManager[Cpt]
   else
    Inc( Cpt );
 
end;
 
initialization
  // initialisation de la variable "privée"
  voObjectsManager := NIL;
 
finalization
  // si la liste des instances est créé alors la supprimer
  if Assigned( voObjectsManager ) then
   FreeAndNil( voObjectsManager );

Après il suffit juste d'appeler une des versions de AddClassInstance pour chaque classe à ajouter (dans le Initialize par exemple) puis appeler GetObjectByName pour récupérer l'instance de l'objet.

Effectivement, La méthode de la TStringList (ObjectList) est très utile lorsque l'on a beaucoup de classe (je pense par exemple à l'une de mes réalisations professionnelles qui gèraient l'importation et la transformation de plus d'une centaine de format de fichier Comptable ou Santé (SAGE, CIEL, CEGI, NX, CCAM, CIM10, ...) en XML et bien sur chaque fichier avait sa classe ... avec la liste, on peut retirer les singletons par unité, mais en encapsulant proprement l'obtention des singletons dans la classe ancêtre on peut avoir un avantage non négligeable c'est que l'instance n'est créée qu'à partir du moment où s'est utile, et non pas dès le début [/B]... mais il est vrai qu'à l'époque, sur WinNT, les machines sur lesquelles nous travaillons n'avait que 256Mo de RAM, et l'on traiter des fichiers de plusieurs Go, l'économie mémoire était de mise pour bufferiser la lecture au maximum ... ah oui, en plus en améliorant\corrigeant mon exemplen on pourrait s'approcher de la gestion par Singleton décrite dans les Design Patterns ...

Ce qui important c'est que l'ancêtre doit être au moins un TPersistent , on peut faire un RegisterClass, ce qui permet de gérer la recherche de la classe par le système interne de delphi, ...

quelques extraits de code, biensur TSuper, THerite1 sont dans des unités différentes, même principe que le code de Aka Guymelef (mais avec TStringList) et totalement encapsulé dans une classe ...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 type TSuper = Class(TPersistent) private class procedure Initialize(); class procedure Finalize(); public class function GetSingleton(const AClassName: string): TSuper; end; implementation var _SingletonList: TStringList = nil; class procedure TSuper.Initialize(); begin if not Assigned(_SingletonList) then _SingletonList := TStringList.Create(); end class procedure TSuper.Finalize(); var I: Integer; begin if Assigned(_SingletonList) then begin for I := 0 to _SingletonList.Count - 1 do _SingletonList.Objects[I].Free(); _SingletonList.Free(); _SingletonList := nil; end; end class function TSuper.GetSingleton(const AClassName: string): TSuper; var I: Integer; SingletonClass: TPersistentClass; begin I := _SingletonList.IndexOf(AClassName); if I < 0 then begin SingletonClass := GetClass(AClassName); if Assigned(SingletonClass) then begin Result := SingletonClass.Create(); _SingletonList.AddObject(AClassName, Result); end else Result := nil; end else Result := _SingletonList.Objects[I] as TSuper; end; initialization TSuper.Initialize(); finalization TSuper.Finalize();
Code:

1 2 3 4 5 6 7 8 THerite1 = class(TSuper) ... end; initialization RegisterClass(THerite1);
Enfin, il me semble que l'on parlait de XML, avec un XSL pour transformer le XML en DFM Text, on peut directement utilisé le système de Flux du TComponent ... résultat, on peut charger un XML sans presque aucun code Delphi, mais juste avec les RTTI et les propriétés publiées ... c'est qui est utilisé actuellement chez mon employeur pour générer des Formulaires dynamiques (stocké en XML et transformer à la volée), on peut le faire sans XSL, mais dans ce cas, avec un TXMLDocument, on peut facilement faire un code générique pour transformer un XMLNode vers un TComponent via TypInfo.SetPropValue

.

Bonsoir,

Je vous remercie pour toutes vos réponses et je me permets de rebondir un peu sur la question en l'étendant à une nouvelle problématique :

Est-il possible de décrire une classe ( au moins ses propriétés ) entièrement depuis un fichier xml ? Je m'explique :

Imaginons que j'ai toujours une " Super Classe " ( ou plusieurs ) dont vont hériter toutes mes classes. Cette classe possède elle même une propriété ListeObjet de type TObjectList dont tout les objets sont de la même classe. Je voudrais donc pouvoir créé dynamiquement via la lecture d’un fichier xml un objet la classe des objets de ma ListeObjet.

Je donne un déroulé ( grossier et volontairement simplifié ) type du processus :

1- Je lis un fichier xml qui contient
Code:

1 2 3 4 5 6 7 <?xml version="1.0" encoding="UTF-8"?> <MaClasse NomClasse="MaClasse" Extends="MaSuperClasse" NomListeObjetClasse="MaListeObjetClasse"> <MaPropriete1 Type="integer" Visibility="public">...</MaPropriete1> <MaPropriete2 Type="boolean" Visibility="public">...</MaPropriete1> <MaPropriete3 Type="string" Visibility="public">...</MaPropriete1> … </MaClasse>
2- Mon programme créé une classe « MaClasse » héritée de « MaSuperClasse ». Donc dans cette classe, j’aurais un TObjectList ( hérité de ma « SuperClasse » ) que je veux remplir avec des objets de la classe « MaListeObjetClasse » qui contient les propriétés MaPropriete1, MaPropriete1, MaPropriete1,…Et dans la foulée instancier un objet de type « MaClasse ».

Voilà, je ne sais pas si je suis vraiment clair mais l'idée est là : décrire une classe via lecture des données dans un fichier xml. Le but étant de permettre l'ajout et la gestion de type d'objets ( nombreux ) en dynamique sans avoir à recompiler continuellement le programme...

06/03/2008, 09h08
Aka Guymelef

Pour cela je pense que tu vas devoir t'orienter vers les RTTI, qui permettent de faire de la réflexion sur les classes et autres.
06/03/2008, 12h52
ShaiLeTroll

Citation:

Envoyé par Aka Guymelef

Pour cela je pense que tu vas devoir t'orienter vers les RTTI, qui permettent de faire de la réflexion sur les classes et autres.

Merci Aka, ...

Citation:

Envoyé par ShaiLeTroll

résultat, on peut charger un XML sans presque aucun code Delphi, mais juste avec les RTTI et les propriétés publiées ...
.

j'ai eu l'impression de "parler" dans le vide avec mes idées, puisque tout ce que je propose n'est pas assez simple ...

Sinon chipster45, je confirme ce que je disais et je m'en doutais que ton idée allait bien plus loin que ce tu nous avait enoncé au début, tu veux faire une sorte de couche de persistance pour un Mapping Object de données (en XML ou DB SQL ???), personnellement, j'ai déjà fait cela pour un projet c'est fonctionnel mais codé en dur car la parti dynamique (le fichier XML de structure qui ressemble au tient :mouarf:) n'est pas fini aujourd'hui, seul le moteur persistant RTTI\DB-SQL et le mapping façon DataSource pour lié les objets avec des controls visuels est fait, tout ce qui concerne le XML de structure généré par un site web n'est pas fait, nous étions 3 personnes sur le code, et je suis le seul encore présent dans la boite, et plus de budget pour ce projet inutilement ambitieux (eh on m'a proposé de faire un Ferrari au prix d'une Fiat, je n'ai pas hésité, trop fun ce dev, j'ai fait le moteur, manque juste la carrosserie ... :mrgreen:), surtout qu'il était prévu de faire de la génération de code delphi automatique via XSL à partir du XML de structure ... pour l'instant, l'automatique c'est mes petits mains ...

... juste comme ça, etudie InstantObject ou le modèle ECO ... c'est pointu, tient un message que j'ai écrit, lit le donc, cela ne contient que la partie interface de la classe "Super", et des Classes pour les relations entre les objets ... rien que le prototype peut te laisser voir tout le travail à effectuer ...
06/03/2008, 13h22
Aka Guymelef

Je pense tout de même que la discussion a été intéressante dans le sens où l'on a pu voir toutes les possibilités de résoudre le problème suivant le niveau de complexité : du plus simple (juste les noms de classes) aux plus complexes (récupérer les propriétés).

De toute façon je pense que dès qu'on parle d'export/import de classes avec leurs propriétés tout en essayant d'être un maximum générique il ne reste plus que les RTTI ou les ReadComponent/WriteComponent.

Après les modèles ECO ou autre là c'est encore le domaine au-dessus mais ça oblige aussi à revoir la structure de son application. Chose pas forcement évidente sur une appli existante ou bien entamée...

Non, vraiment bien cette discussion :D
06/03/2008, 22h16
chipster45

Bonsoir,

Je dois avouer que je me frotte à quelque chose d'assez ardu pour mon niveau et que beaucoup de notions que vous abordez me sont tout simplement inconnues :roll: et donc je n'assimile pas forcément tout tout de suite ( Déja que je suis pas rapide :mrgreen: ). Je vais voir ce qui se fait du côté des RTTI.

Citation:

Sinon chipster45, je confirme ce que je disais et je m'en doutais que ton idée allait bien plus loin que ce tu nous avait enoncé au début, tu veux faire une sorte de couche de persistance pour un Mapping Object de données (en XML ou DB SQL ???)

En fait, je n'avais pas encore cette idée mais étant donné l'architecture finale du projet sur lequel je travaille ( très ressemblante au projet que tu désscris ;) ), l'idée s'est imposé à moi que je devais essayer de mettre en place ce Mapping Object totalement basé sur des fichiers xml.

En tous cas, je vous donne des news dès que j'aurais mis au point une solution à mon problème ( rapidement j'espère ).
09/03/2008, 11h21
chipster45

Bonjour,

Bon je commence à explorer les possibilités des RTTI. J'appréhende petit à petit les mécanismes. C'est vraiment très intérressant et je vois déja pas mal de possibilités pour mon projet mais je ne vois nulle part la possibilité ( la manière ? ) d'ajouter une propriété ? J'ai un peu étudier le sources de différents projets tels que mentionnés dans les articles mais je ne vois rien...:(

"Ajouter une Propriété ?"
Code:

1 2 3 4 5 6 7 8 9 THerite = Class(TSuper ) private FToto: string; protected function GetToto(): string; virtual; procedure SetToto(const Value: string); virtual; published property Toto: string read GetToto write SetToto; end;
tu peux en ajoutant autant que tu veux à tes objets, ... si c'est de cela que tu parles ...

Par contre, chaque modification de structure de xml entrainera forcément une modification du code (pour publier les nouveaux champs) et une recompilation, ... la persistance est quelque chose de très rigide, cela garanti de la cohérence de ton application mais cela contraint à une rigueur assez élévée, qui est parfois en contradiction avec certaines méthodes de développements ...

la Structure des tes données sera immuable (à quelques bidules près), ou au contraire, évoluerons réguilèrement en fonction des besoins fonctionnels ???

Tu devrais regarder "Expert Liaison de données XML" fourni avec Delphi, il pourrait te servir totalement pour mapper ton XML, c'est fourni autant l'utiliser ... le Mapping Object via RTTI est plus dans le cadre d'une Base de Données qui souvent moins "volatile" dans sa structure métier qu'un XML ...

10/03/2008, 19h26
chipster45

En fait, je parle d'ajouter des propriétés à l'exécution. Je vois notamment le projet SEPI qui le fait ( et largement plus même ) mais alors le code...8O J'en ai vu d'autres mais je n'ai pas encore été à fond dans le code ( notamment http://codecentral.borland.com/Item.aspx?id=16204 ), donc ça doit bien être possible de le faire.

Pour le moment, j'arrive très bien à instancier mes objets en parsant mon fichier xml et même à " parcourir " mes objets avec les fonctions de type " RTTI " ( ce qui me facilite la vie d'ailleurs :) ).

Citation:

la Structure des tes données sera immuable (à quelques bidules près), ou au contraire, évoluerons régulièrement en fonction des besoins fonctionnels ???

La structure évoluera un peu mais pas fondamentalement je pense mais j'aimerais bien " appréhender " la technique. On va dire que je voudrais partir d'une classe dont je créerais un objet et si dans mon fichier xml, je " découvre " des champs qui ne correspondent pas aux propriétés de cet objet, pouvoir les créer. Je vais regarder aussi " Expert Liaison de données XML " suivant ton conseil.