[Fichiers] Sauvegarde d'un TObjectList

Version imprimable

15/05/2006, 13h14
maredami

[Fichiers] Sauvegarde d'un TObjectList

Bonjour,

Je souhaite sauver une TObjectList dans un fichier pour pouvoir la récupérer ensuite.
Cette liste est une variable de ma Form.

Pour se faire, j'ai utilisé un fichier typé.

Si je ne ferme pas la fenêtre, la lecture fonctionne mais pas si je ferme la fenêtre et l'appli. Là, il me sort une erreur de violation d'accès.

Utilise-je la bonne méthode ? La liste est-elle bien sauvée en entier (avec tous ses objets et leurs propriétés ) ?

Merci d'avance
15/05/2006, 13h16
Pedro

Citation:

Envoyé par maredami

Utilise-je la bonne méthode ? La liste est-elle bien sauvé en entier (avec tous ses objets et leurs propriétés ) ?

Si tu ne nous donnes pas plus d'éléments, on risque pas de répondre à cette question ;)
15/05/2006, 13h20
tourlourou

je suppose que tu ne sauvegardes que les pointeurs sur les objets : tant que les objets ne sont pas libérés, tu peux sauver leur référence et recharger une liste, mais à la rouverture de l'appli, ils ne pointent plus sur rien => EAccessViolation

à toi de faire une proc de sauvegarde qui enregistre les propriétés des objets, ou regarde du côté des TCollection : il y a pê des solutions
15/05/2006, 13h24
Pedro

Citation:

Envoyé par tourlourou

à toi de faire une proc de sauvegarde qui enregistre les propriétés des objets, ou regarde du côté des TCollection : il y a pê des solutions

Non : le type TCollection ne contient que des descendants de TCollectionItem... Tout dépend de quel type d'objet est "enregistré" dans la TObjectList... C'est pour cela que je lui demande d'expliquer un peu plue ;)

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 codeFile: File of TObjectList; //Ecriture FileMode := fmOpenWrite; Rewrite(codeFile); Write(codeFile,liste); CloseFile(codeFile); //Lecture FileMode := fmOpenRead; Reset(codeFile); while not Eof(codeFile) do Read(codeFile,liste); CloseFile(codeFile);
Voilà le code que j'essaie de mettre en place.

Ça m'ennuierait pas mal de devoir coder la sauvegarde de tous mes objets qui sont de types différents...

Je pensais qu'il était possible de sauvegarder brut comme ça et de récupérer le tout ensuite.

Mes objets sont des composants que j'ai créés.

15/05/2006, 14h08
qi130

Ta liste contient "des choux et des carottes" (rien de péjoratif !).

J'ai été confronté à un pb similaire il y a peu :

http://www.developpez.net/forums/sho...d.php?t=137534

J'ai opté pour la solution proposée pas Waskol (cf genealogie.zip).

Mais mes composants étaient tous du même format.
15/05/2006, 14h10
NotANumber

Citation:

Envoyé par maredami

Je pensais qu'il était possible de sauvegarder brut comme ça et de récupérer le tout ensuite.

Avec la sérialisation c'est possible.
15/05/2006, 14h33
maredami

Citation:

Envoyé par qi130

Ta liste contient "des choux et des carottes" (rien de péjoratif !).

J'ai été confronté à un pb similaire il y a peu :

http://www.developpez.net/forums/sho...d.php?t=137534

J'ai opté pour la solution proposée pas Waskol (cf genealogie.zip).

Mais mes composants étaient tous du même format.

C'est assez compliqué car je dois caster en TComponent pour l'écriture et en TObject pour la lecture vu que j'utilise une TObjectList.

La compilation passe et l'écriture fonctionne. Mais lors de la lecture j'ai une erreur : une des propriétés n'existe pas puisque ne faisant pas partie de TComponent je suppose...
15/05/2006, 15h44
maredami
Et avec WriteBuffer et ReadBuffer, j'ai quasiment aucune information qui s'écrit dans le fichier
Code:

1 2 3 4 UnStream:=TFileStream.Create('essai.ns',fmCreate); UnStream.WriteBuffer(liste,SizeOf(TObjectList)); UnStream.ReadBuffer(liste,SizeOf(TObjectList));
Comment pourrais-je procéder ?
15/05/2006, 17h28
Bloon

Citation:

Et avec WriteBuffer et ReadBuffer, j'ai quasiment aucune information qui s'écrit dans le fichier

C'est normal, ce que tu as écrit correspond à du codage type C, ou tu gères des blocs de mémoire (et encore, il ne fautdrait pas que ta liste soit une liste chainée). SizeOf(unobjet) ou sizeof(uneclasse) te renverra la taille d'un pointeur, soit 4 en environnement 32 bit.

Pour ton cas, il faut sauvegarder sous une forme permettant de reconstruire les objets, par exemple XML ou bien un format texte comme celui utilisé par Delphi pour les .DFM. Il faut ensuite implémenter un mécanisme de lecture/ecriture au niveau de tes classes.

Une difficulté sera de construire, à l'exécution, un objet dont tu ne connais pas la classe, il te faut donc également un mécanisme de référencement de classes, qui te permettra de construire un objet dynamiquement en fonction du nom de la classe. Ceci est évoqué dans cet article :

http://laurent-dardenne.developpez.c...es/metaclasse/

au point 7.2. Retrouver une classe par son nom

bon courage !

Bloon
16/05/2006, 07h53
maredami

Oui, en fait, l'exemple genealogie.zip avec ses méthodes writeComponent et readComponent fonctionne si j'arrive à construire dynamiquement mes objets... ce que je voulais éviter car c'est assez compliqué :lol:

Je pensais que c'était possible de sauver bit à bit ma TObjectList et ensuite de la reconstruire sans avoir à recréer tous mes objets. Je me trompais visiblement... :oops:
16/05/2006, 10h38
maredami

C'est bien ce que je pensais.... je viens de passer 2h à essayer de comprendre l'article et ça donne pas grand-chose.

Surtout que lors d'un readComponent, je dois le stocker dans un objet. Mais je ne sais ni son type, ni son nom ! Donc je ne peux même pas "construire un objet dynamiquement en fonction du nom de la classe".

Serais-je obligé de passer par du XML ? Serait-ce plus facile d'écrire un fichier texte ?

Le XML est un bon moyen de stocker ce genre d'information, tout comme le texte. Ce qu'il faut, c'est que tu récupères le nom de la classe de l'objet à créer sous la forme d'une string.

Voici un exemple avec TEdit :

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
 
uses
  TypInfo;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  classe : TPersistentClass;
  instance : TControl;
begin
  RegisterClass(TEdit); // important, sinon GetClass renvoie nil
  classe := getClass('tedit');
  if assigned(classe) and classe.InheritsFrom(TControl) then
  begin
    instance := TControlClass(classe).Create(self);
    with instance do
    begin
      Parent := self;
      Top := 10;
      Left := 10;
    end;
    // Affectation d'une propriété par son nom
    if (GetPropInfo(classe, 'text') <> nil) then
      SetStrProp(instance,'text','bonjour');
  end;
end;

Une représentation XML pourrait être :

Code:

1
2
3
<component class="tedit">
  <property name="text" type="string">bonjour</property>
</component>

Bloon

J'essaie de faire comme dans l'aide Delphi, ça a l'air de bien fonctionner...
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 functionComponentToString(Component:TComponent):string; var BinStream:TMemoryStream; StrStream:TStringStream; s:string; begin BinStream :=TMemoryStream.Create; try StrStream :=TStringStream.Create(s); try BinStream.WriteComponent(Component); BinStream.Seek(0,soFromBeginning); ObjectBinaryToText(BinStream,StrStream); StrStream.Seek(0,soFromBeginning); Result:=StrStream.DataString; finally StrStream.Free; end; finally BinStream.Free end; end; functionStringToComponent(Value:string):TComponent; var StrStream:TStringStream; BinStream:TMemoryStream; begin StrStream :=TStringStream.Create(Value); try BinStream :=TMemoryStream.Create; try ObjectTextToBinary(StrStream,BinStream); BinStream.Seek(0,soFromBeginning); Result :=BinStream.ReadComponent(nil); finally BinStream.Free; end; finally StrStream.Free; end; end;
Avec ta méthode, Bloon, on peut créer dynamiquement des objets sans connaitre leur type à l'avance. Est-ce possible de faire de même avec un cast ? J'ai essayé mais la compilation ne passe pas. Alors je le fais avec des case of... :oops:

Là où ça va encore se corser pour moi, c'est que mes objets ont des propriétés TObjectList.... :aie:

Citation:

Envoyé par maredami

Avec ta méthode, Bloon, on peut créer dynamiquement des objets sans connaitre leur type à l'avance. Est-ce possible de faire de même avec un cast ? J'ai essayé mais la compilation ne passe pas. Alors je le fais avec des case of... :oops:

Quel est le code qui ne passe pas ?

Citation:

Là où ça va encore se corser pour moi, c'est que mes objets ont des propriétés TObjectList.... :aie:

Il faut que tes objets aient un ID :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 <component class="tlabel" id="1"> <property name="caption" type="string">label1</property> </component> <component class="tlabel" id="2"> <property name="caption" type="string">label2</property> </component> <component class="tmaliste" id="3"> <list name="liste"> <item id="1"/> <item id="2"/> </list> </component>
Bloon

17/05/2006, 08h01
maredami
Citation:

Quel est le code qui ne passe pas ?

Par exemple :

Code:

Instance := TControlClass(mesClasses.objects[n]) (liste[i]);

Ce serait pratique de pouvoir caster dynamiquement des objets...

Voilà ce que le StringStream me sort avec "BinStream.WriteComponent(TMonObjet(liste[i]));" :
Code:

1 2 3 4 5 6 7 8 9 10 11 object MonObjet1: TMonObjet Tag = 1 Left = 300 Top = 150 Width = 100 Height = 50 DragCursor = crCross PopupMenu = Form1.PopupMenu1 Selected = False end
Jusque là tout va bien. Mais quand j'essaie de le récupérer avec "TMonObjet(BinStream.ReadComponent(nil));", tout se complique.

Car ReadComponent ne lit que des TComponent et fait une erreur "Classe TMonObjet non trouvée".

Citation:

Il faut que tes objets aient un ID

Mes objets ont leur Tag qui sert d'id mais je ne vois pas en quoi ça peut m'être utile pour sauvegarder mes TObjectList contenues dans mes objets.

J'ai un truc du genre à sauver :

TObjectList
-Objet1: TMonObjet4
Selected: boolean;
Next,Previous: TobjectList
Height,Width,Top: Integer
-Objet2: TMonObjet1
.........
Voilà, j'espère que c'est plus clair, car moi, je m'enfonce ! :(

Citation:

Envoyé par maredami

Par exemple :

Code:

Instance := TControlClass(mesClasses.objects[n]) (liste[i]);

Ce serait pratique de pouvoir caster dynamiquement des objets...

L'intérêt du cast, c'est de forcer un type que l'on connaît sur une instance déclarée d'un type "supérieur" dans la hiérarchie d'objets afin d'utiliser les méthodes et attributs de la classe castée. Ca n'a pas de sens de le faire dynamiquement, ou alors il faudrait également accéder aux propriétés et méthodes dynamiquement (ce qui est faisable en partie avec les fonctions de l'unité TypInfo mais pas avec la syntaxe du cast).

Dans ton exemple, si liste contient des contrôles, tu peux écrire :

Code:

Instance := TControl(liste[i]);

Citation:

Car ReadComponent ne lit que des TComponent et fait une erreur "Classe TMonObjet non trouvée".

Il faut peut-être que la classe TMonObjet soit enregistrée par RegisterClass.

Citation:

J'ai un truc du genre à sauver :

TObjectList
-Objet1: TMonObjet4
Selected: boolean;
Next,Previous: TobjectList
Height,Width,Top: Integer
-Objet2: TMonObjet1

Le problème là c'est que tu définis l'objet à l'intérieur de la liste. Imagine que ton objet soit également présent dans une autre liste, tu te retrouveras avec 2 instances différentes pour le même objet, donc pas dans ta situation initiale.

Il faut donc un mécanisme du genre :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 -ObjetZ : TMonObjetZ ... -Objet1: TMonObjet4 Selected: boolean; Next : tobjectlist -item : ObjetZ Previous: TobjectList Height,Width,Top: Integer -Objet2: TMonObjet1 -Objet 3 : TObjectList -Item : Objet1 -Item : Objet2 ownsEmelents : boolean = false
Dans lequel les objets sont identifiés (ci-dessus par leur nom). Cependant, le XML me semble plus adapté.

Bloon

17/05/2006, 11h05
maredami

Citation:

Il faut peut-être que la classe TMonObjet soit enregistrée par RegisterClass.

Bien vu ! ;)

Maintenant que je créé un objet dynamiquement sans connaitre à l'avance sa classe, je ne peux pas affecter une valeur à sa propriété car elle n'est pas reconnue à la compilation.
[CODE
Instance := TControlClass(mesClasses.objects[z]).Create(Self);
Instance.Selected := false;
[/CODE]

Je suis obligé de passer par un case of pour déterminer le type de classe et créer l'objet selon ?
17/05/2006, 17h16
Bloon
Citation:
Envoyé par maredami

Code:

1 2 3 Instance := TControlClass(mesClasses.objects[z]).Create(Self); Instance.Selected := false;

Je suis obligé de passer par un case of pour déterminer le type de classe et créer l'objet selon ?
Non, regarde les fonctions de l'unité TypInfo, dans certains cas on peut modifier les propriétés des objets par leur nom.

A lire également :

http://laurent-dardenne.developpez.c...s/Delphi/RTTI/

Bloon