Discussion :

[ads42]

Bonjour,
j'aimerai sauver dans un texte les propriété d'un composant, je n'ai pas de mal pour les propriétés qui ont un type simple (entier, string, enum etc).
Mon problème se pose quand ils ont par exemple la propriété TDataSource.
Dans un DFM je vais avoir par exemple
DataSource = DataModule1.wwDSQTermePaiement

Comment avoir la même chose ? Je pense que par RTTI ça devrait pouvoir se faire.

Et bien évidement je voudrait faire l'inverse aussi ( String -> DataSource).

Si vous avez des idées..

Merci

Armindo

[pprem]

Hello

Une discussion sur le même thème a été lancée il y a quelques jours :
https://www.developpez.net/forums/d2...osant-runtime/

Les composants ont un système intégré de stérilisation qui permet de descendre l'arborescence complètement à condition qu'ils appartiennent à la même source, dans le cas contraire ça complique un peu les choses mais reste jouable.

[ads42]

Bonjour Patrick
merci pour ta reponse. En fait je ne veux pas passer par un WriteComponent pour deux raisons :

1. Pouvoir choisir les propriétés que je veux exporter (ici j'utilise des attributes sur les propriétés pour les flaguer en exportable).
2. Exporter vers un format json que je construis moi même.

Et d'autre par à la lecture je veux pouvoir créer dynamiquement les composants.

Cordialement

Armindo

[pprem]

Du coup, pour les dépendances tu veux recréer les composants manuellement ou embarquer leurs types + propriétés sous la propriété de celui qui les utilise ?

Tu peux aussi faire le truc en deux passes : la première pour voir les dépendances et la seconde pour créer les plus hauts de l'arborescence en cascade.

[ads42]

Bonjour Patrick,
en fait pour les dépendances elles sont déjà présentes sur un ou plusieurs datamodules (elles se résument principalement par des dépendances vers des datasets).
Mon problème c'est comment récupérer le lien de l'instance de la dépendance et non pas l'objet dataset lui même.
Par exemple si j'ai un TDBEdit quand je parcours les propriétés que je veux serialiser je veux pour le datasource avoir le "lien" sous la forme "DM.MonDataset1" mais je ne sais pas comment depuis la propriété avoir cela.
De la même manière si je veux changer cette propriété à partir de la chaine "DM.MonDataset2" je veux pouvoir changer la dépendance (mais là c'est peut-être plus facile via des findcomponents.
Merci

[pprem]

Si la propriété est une instance de classe, tu peux en récupérer le ClassName et le Name puis remonter au owner

[ALWEBER]

Voici un petit exemple pour te donner des idéesex_serialForm.zip

[ads42]

Si la propriété est une instance de classe, tu peux en récupérer le ClassName et le Name puis remonter au owner

Merci Patrick.

[ads42]

Voici un petit exemple pour te donner des idéesex_serialForm.zip

Merci de ta reponse, en fait je veux justement eviter les WriteComponent pour avoir une maitrise totale de ce que je serialize

[Paul TOTH]

Bonjour Patrick,
en fait pour les dépendances elles sont déjà présentes sur un ou plusieurs datamodules (elles se résument principalement par des dépendances vers des datasets).
Mon problème c'est comment récupérer le lien de l'instance de la dépendance et non pas l'objet dataset lui même.
Par exemple si j'ai un TDBEdit quand je parcours les propriétés que je veux serialiser je veux pour le datasource avoir le "lien" sous la forme "DM.MonDataset1" mais je ne sais pas comment depuis la propriété avoir cela.
De la même manière si je veux changer cette propriété à partir de la chaine "DM.MonDataset2" je veux pouvoir changer la dépendance (mais là c'est peut-être plus facile via des findcomponents.
Merci

la sérialisation des objets en JSON c'est assez pénible...je le faisais au début, mais depuis je n'utilise plus que des Record et des tableaux dynamiques quitte à mettre mon record dans un objet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
type
  TObjectData = record
  end;
  TObjectClass = class
    Data: TObjectData;
  end;

du coup je me charge d'instancier l'objet mais je peux lire ses données depuis un JSON.

Enregistrer les objets ça peut encore se faire sans trop de problème, mais relire le flux c'est assez compliqué. Dans les DFM tu as cet avantage que tous les composants sont des TPersistent avec un Constructor défini, mais si tu pars sur des objets avec des constructor complexes ou personnalisés ça devient vite la misère.

pour la question que tu poses, tu trouves la réponse dans Writer.WriteProperty et la sous fonction suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  function GetComponentValue(const Component: TComponent): string;
  begin
    if Component.Owner = LookupRoot then
      Result := Component.Name
    else if Component = LookupRoot then
      Result := 'Owner'                                                       { Do not translate }
    else if (Component.Owner <> nil) and (Component.Owner.Name <> '') and
      (Component.Name <> '') then
      if OwnedBy(Component.Owner, LookupRoot) then
        Result := GetComponentValue(Component.Owner) + '.' + Component.Name
      else
        Result := Component.Owner.Name + '.' + Component.Name
    else if Component.Name <> '' then
      Result := Component.Name + '.Owner'                                     { Do not translate }
    else Result := '';
  end;

c'est en gros Component.Name avec éventuellement le nom du Owner jusqu'à un certain niveau.

pour le passage dans l'autre sens il y a deux étapes, car tu peux avoir un composant lié à un autre qui n'est pas encore créé car déclaré plus bas dans le DFM, tu as donc une liste des résolutions à faire après coup à base de FindComponent...Et là aussi ça se complique si le composant est dans un DataModule qui n'est pas créé (d'ailleurs l'IDE râle parfois sur ce genre de liens)

tu peux voir cela dans TReader.ReadPropValue avec SetObjectIdent() puis DoFixupReferences()

Note aussi que pour instancier un composant d'après le nom de sa classe, il faut soit
1) que le conteneur possède une propriété du type de cette classe (exemple Button1: TButton) qui permet de retrouver le TypeInfo() de la classe
2) que le type soit déclaré par un RegisterComponent([TButton]) sinon il sera impossible de retrouver la classe.

bref, pour sérialiser, soit tu prends un contexte très encadré comme TPersistent (et ce n'est déjà pas très simple), soit tu t'exploses à pas mal de problèmes

et avec des Record et des tableaux dynamiques on peut déjà faire bcp de choses sans ces problèmes d'instanciation...surtout qu'un record peu maintenant avoir des méthodes et des attributs donc tu le triturer assez facilement.

[ads42]

Super merci Paul.

Pour la sérialisation json je n'ai pas trop de soucis mais j'evite d'utiliser les composant de Delphi je préfère utiliser ceux de Chilkat.
Je n'ai pas trop de soucis avec les classes pour le moment mais je dois avouer que je n'ai besoin que d'un nombre très restreints de propriétés.
Ce qui me permet d'avoir des choses comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
 
{
  "Version": 1,
  "Structure": {
    "Name": "Form4",
    "ClassName": "TForm4",
    "Tag": 0,
    "Left": 104,
    "Top": 104,
    "Width": 640,
    "Height": 608,
    "Align": "alNone",
    "AlignWithMargins": false,
    "Margins": {
      "Left": 3,
      "Top": 3,
      "Right": 3,
      "Bottom": 3
    },
    "ShowHint": false,
    "Hint": "",
    "ParentFont": false,
    "Font": {
      "Charset": 1,
      "Color": -16777208,
      "Height": -12,
      "Name": "Segoe UI",
      "Orientation": 0,
      "Pitch": "fpDefault",
      "Size": 9,
      "Style": "",
      "Quality": "fqDefault"
    },
    "Anchors": "[akLeft,akTop]",
    "Enabled": true,
    "Visible": true,
    "Components": [
      {
        "Name": "Button1",
        "ClassName": "TButton",
        "Tag": 0,
        "Left": 24,
        "Top": 8,
        "Width": 75,
        "Height": 25,
        "Align": "alNone",
        "AlignWithMargins": false,
        "Margins": {
          "Left": 3,
          "Top": 3,
          "Right": 3,
          "Bottom": 3
        },
        "ShowHint": false,
        "Hint": "",
        "ParentFont": true,
        "Font": {
          "Charset": 1,
          "Color": -16777208,
          "Height": -12,
          "Name": "Segoe UI",
          "Orientation": 0,
          "Pitch": "fpDefault",
          "Size": 9,
          "Style": "",
          "Quality": "fqDefault"
        },
        "Anchors": "[akLeft,akTop]",
        "Enabled": true,
        "Visible": true
      },
      {
        "Name": "Panel1",
        "ClassName": "TPanel",
        "Tag": 0,
        "Left": 24,
        "Top": 39,
        "Width": 592,
        "Height": 179,
        "Align": "alNone",
        "AlignWithMargins": false,
        "Margins": {
          "Left": 3,
          "Top": 3,
          "Right": 3,
          "Bottom": 3
        },
        "ShowHint": false,
        "Hint": "",
        "ParentFont": true,
        "Font": {
          "Charset": 1,
          "Color": -16777208,
          "Height": -12,
          "Name": "Segoe UI",
          "Orientation": 0,
          "Pitch": "fpDefault",
          "Size": 9,
          "Style": "",
          "Quality": "fqDefault"
        },
        "Anchors": "[akLeft,akTop]",
        "Enabled": true,
        "Visible": true,
        "Components": [
          {
            "Name": "Panel2",
            "ClassName": "TPanel",
            "Tag": 0,
            "Left": 1,
            "Top": 1,
            "Width": 590,
            "Height": 155,
            "Align": "alTop",
            "AlignWithMargins": false,
            "Margins": {
              "Left": 3,
              "Top": 3,
              "Right": 3,
              "Bottom": 3
            },
            "ShowHint": false,
            "Hint": "",
            "ParentFont": true,
            "Font": {
              "Charset": 1,
              "Color": -16777208,
              "Height": -12,
              "Name": "Segoe UI",
              "Orientation": 0,
              "Pitch": "fpDefault",
              "Size": 9,
              "Style": "",
              "Quality": "fqDefault"
            },
            "Anchors": "[akLeft,akTop,akRight]",
            "Enabled": true,
            "Visible": true,
            "Components": [
              {
                "Name": "CheckBox1",
                "ClassName": "TCheckBox",
                "Tag": 0,
                "Left": 24,
                "Top": 16,
                "Width": 97,
                "Height": 17,
                "Align": "alNone",
                "AlignWithMargins": false,
                "Margins": {
                  "Left": 3,
                  "Top": 3,
                  "Right": 3,
                  "Bottom": 3
                },
                "ShowHint": false,
                "Hint": "",
                "ParentFont": true,
                "Font": {
                  "Charset": 1,
                  "Color": -16777208,
                  "Height": -12,
                  "Name": "Segoe UI",
                  "Orientation": 0,
                  "Pitch": "fpDefault",
                  "Size": 9,
                  "Style": "",
                  "Quality": "fqDefault"
                },
                "Anchors": "[akLeft,akTop]",
                "Enabled": true,
                "Visible": true
              },
              {
                "Name": "Edit1",
                "ClassName": "TEdit",
                "Tag": 0,
                "Left": 24,
                "Top": 40,
                "Width": 217,
                "Height": 23,
                "Align": "alNone",
                "AlignWithMargins": false,
                "Margins": {
                  "Left": 3,
                  "Top": 3,
                  "Right": 3,
                  "Bottom": 3
                },
                "ShowHint": false,
                "Hint": "",
                "ParentFont": true,
                "Font": {
                  "Charset": 1,
                  "Color": -16777208,
                  "Height": -12,
                  "Name": "Segoe UI",
                  "Orientation": 0,
                  "Pitch": "fpDefault",
                  "Size": 9,
                  "Style": "",
                  "Quality": "fqDefault"
                },
                "Anchors": "[akLeft,akTop]",
                "Enabled": true,
                "Visible": true
              },
              {
                "Name": "GcxDBTextEdit1",
                "ClassName": "TGcxDBTextEdit",
                "Tag": 0,
                "Left": 24,
                "Top": 69,
                "Width": 217,
                "Height": 23,
                "Align": "alNone",
                "AlignWithMargins": false,
                "Margins": {
                  "Left": 3,
                  "Top": 3,
                  "Right": 3,
                  "Bottom": 3
                },
                "ShowHint": false,
                "Hint": "",
                "ParentFont": true,
                "Anchors": "[akLeft,akTop]",
                "Enabled": true,
                "Visible": true,
                "ModeAffichage": "MAMotDePasse",
                "EW_Contrainte": "CAucune",
                "EW_ContexteBlocage": "[CBSauvegarde,CBFermeture]",
                "EW_DroitResizer": {
                  "ModificationContrainte": true,
                  "ModificationCasse": true,
                  "ModificationModeAffichage": true
                },
                "EW_IconHint": "Champ obligatoire",
                "EW_Charcase": "ecNormal",
                "GXDataBinding": {
                  "DataField": "Champ1",
                  "DataSource": "DataSource1"
                }
              }
            ]
          },
          {
            "Name": "RadioButton1",
            "ClassName": "TRadioButton",
            "Tag": 0,
            "Left": 1,
            "Top": 156,
            "Width": 113,
            "Height": 22,
            "Align": "alLeft",
            "AlignWithMargins": false,
            "Margins": {
              "Left": 3,
              "Top": 3,
              "Right": 3,
              "Bottom": 3
            },
            "ShowHint": false,
            "Hint": "",
            "ParentFont": true,
            "Font": {
              "Charset": 1,
              "Color": -16777208,
              "Height": -12,
              "Name": "Segoe UI",
              "Orientation": 0,
              "Pitch": "fpDefault",
              "Size": 9,
              "Style": "",
              "Quality": "fqDefault"
            },
            "Anchors": "[akLeft,akTop,akBottom]",
            "Enabled": true,
            "Visible": true
          }
        ]
      },
      {
        "Name": "Button2",
        "ClassName": "TButton",
        "Tag": 0,
        "Left": 200,
        "Top": 8,
        "Width": 75,
        "Height": 25,
        "Align": "alNone",
        "AlignWithMargins": false,
        "Margins": {
          "Left": 3,
          "Top": 3,
          "Right": 3,
          "Bottom": 3
        },
        "ShowHint": false,
        "Hint": "",
        "ParentFont": false,
        "Font": {
          "Charset": 1,
          "Color": -16777208,
          "Height": -12,
          "Name": "Segoe UI",
          "Orientation": 0,
          "Pitch": "fpDefault",
          "Size": 9,
          "Style": "fsBold,fsUnderline",
          "Quality": "fqDefault"
        },
        "Anchors": "[akLeft,akTop]",
        "Enabled": true,
        "Visible": false
      },
      {
        "Name": "PageControl1",
        "ClassName": "TPageControl",
        "Tag": 0,
        "Left": 24,
        "Top": 223,
        "Width": 596,
        "Height": 346,
        "Align": "alNone",
        "AlignWithMargins": false,
        "Margins": {
          "Left": 3,
          "Top": 3,
          "Right": 3,
          "Bottom": 3
        },
        "ShowHint": false,
        "Hint": "",
        "ParentFont": true,
        "Font": {
          "Charset": 1,
          "Color": -16777208,
          "Height": -12,
          "Name": "Segoe UI",
          "Orientation": 0,
          "Pitch": "fpDefault",
          "Size": 9,
          "Style": "",
          "Quality": "fqDefault"
        },
        "Anchors": "[akLeft,akTop,akRight,akBottom]",
        "Enabled": true,
        "Visible": true,
        "Components": [
          {
            "Name": "TabSheet1",
            "ClassName": "TTabSheet",
            "Tag": 0,
            "Left": 4,
            "Top": 26,
            "Width": 588,
            "Height": 316,
            "Align": "alClient",
            "AlignWithMargins": false,
            "Margins": {
              "Left": 3,
              "Top": 3,
              "Right": 3,
              "Bottom": 3
            },
            "ShowHint": false,
            "Hint": "",
            "ParentFont": true,
            "Font": {
              "Charset": 1,
              "Color": -16777208,
              "Height": -12,
              "Name": "Segoe UI",
              "Orientation": 0,
              "Pitch": "fpDefault",
              "Size": 9,
              "Style": "",
              "Quality": "fqDefault"
            },
            "Anchors": "[akLeft,akTop,akRight,akBottom]",
            "Enabled": true,
            "Visible": false,
            "Components": [
              {
                "Name": "Memo1",
                "ClassName": "TMemo",
                "Tag": 0,
                "Left": 0,
                "Top": 0,
                "Width": 588,
                "Height": 316,
                "Align": "alClient",
                "AlignWithMargins": false,
                "Margins": {
                  "Left": 3,
                  "Top": 3,
                  "Right": 3,
                  "Bottom": 3
                },
                "ShowHint": false,
                "Hint": "",
                "ParentFont": true,
                "Font": {
                  "Charset": 1,
                  "Color": -16777208,
                  "Height": -12,
                  "Name": "Segoe UI",
                  "Orientation": 0,
                  "Pitch": "fpDefault",
                  "Size": 9,
                  "Style": "",
                  "Quality": "fqDefault"
                },
                "Anchors": "[akLeft,akTop,akRight,akBottom]",
                "Enabled": true,
                "Visible": true
              }
            ]
          },
          {
            "Name": "TabSheet2",
            "ClassName": "TTabSheet",
            "Tag": 0,
            "Left": 4,
            "Top": 26,
            "Width": 588,
            "Height": 316,
            "Align": "alClient",
            "AlignWithMargins": false,
            "Margins": {
              "Left": 3,
              "Top": 3,
              "Right": 3,
              "Bottom": 3
            },
            "ShowHint": false,
            "Hint": "",
            "ParentFont": true,
            "Font": {
              "Charset": 1,
              "Color": -16777208,
              "Height": -12,
              "Name": "Segoe UI",
              "Orientation": 0,
              "Pitch": "fpDefault",
              "Size": 9,
              "Style": "",
              "Quality": "fqDefault"
            },
            "Anchors": "[akLeft,akTop,akRight,akBottom]",
            "Enabled": true,
            "Visible": true,
            "Components": [
              {
                "Name": "Memo2",
                "ClassName": "TMemo",
                "Tag": 0,
                "Left": 0,
                "Top": 192,
                "Width": 588,
                "Height": 124,
                "Align": "alBottom",
                "AlignWithMargins": false,
                "Margins": {
                  "Left": 3,
                  "Top": 3,
                  "Right": 3,
                  "Bottom": 3
                },
                "ShowHint": false,
                "Hint": "",
                "ParentFont": true,
                "Font": {
                  "Charset": 1,
                  "Color": -16777208,
                  "Height": -12,
                  "Name": "Segoe UI",
                  "Orientation": 0,
                  "Pitch": "fpDefault",
                  "Size": 9,
                  "Style": "",
                  "Quality": "fqDefault"
                },
                "Anchors": "[akLeft,akRight,akBottom]",
                "Enabled": true,
                "Visible": true
              },
              {
                "Name": "TreeView1",
                "ClassName": "TcxTreeList",
                "Tag": 0,
                "Left": 0,
                "Top": 0,
                "Width": 588,
                "Height": 192,
                "Align": "alClient",
                "AlignWithMargins": false,
                "Margins": {
                  "Left": 3,
                  "Top": 3,
                  "Right": 3,
                  "Bottom": 3
                },
                "ShowHint": false,
                "Hint": "",
                "ParentFont": true,
                "Font": {
                  "Charset": 1,
                  "Color": -16777208,
                  "Height": -12,
                  "Name": "Segoe UI",
                  "Orientation": 0,
                  "Pitch": "fpDefault",
                  "Size": 9,
                  "Style": "",
                  "Quality": "fqDefault"
                },
                "Anchors": "[akLeft,akTop,akRight,akBottom]",
                "Enabled": true,
                "Visible": true
              }
            ]
          }
        ]
      },
      {
        "Name": "Button3",
        "ClassName": "TButton",
        "Tag": 0,
        "Left": 105,
        "Top": 8,
        "Width": 75,
        "Height": 25,
        "Align": "alNone",
        "AlignWithMargins": false,
        "Margins": {
          "Left": 3,
          "Top": 3,
          "Right": 3,
          "Bottom": 3
        },
        "ShowHint": false,
        "Hint": "",
        "ParentFont": true,
        "Font": {
          "Charset": 1,
          "Color": -16777208,
          "Height": -12,
          "Name": "Segoe UI",
          "Orientation": 0,
          "Pitch": "fpDefault",
          "Size": 9,
          "Style": "",
          "Quality": "fqDefault"
        },
        "Anchors": "[akLeft,akTop]",
        "Enabled": false,
        "Visible": true
      }
    ]
  }
}