Dump d'un composant au runtime

Version imprimable

17/02/2023, 12h28
qi130

Dump d'un composant au runtime

Bonjour,

Est-il possible, à l'exécution de produire facilement l'équivalent d'un fichier dfm au format texte contenant les composants et leurs propriétés ?

Mon contexte concerne 1 scrollbox contenant des compos créés dynamiquement, et certaines propriétés ne me semblent pas refléter l'affectation lors du create en runtime.

Plus généralement, y a t'il un ordre à respecter pour alimenter les propriétés?

Pour certains compos, on observe au runtime le même comportement qu'en Design, par ex le nom par défaut qui alimente le Text/Caption; du coup, il faut nommer le compo avant d'alimenter le Text.

Quel attitude adopter pour la propriété Tag : avant/après le nom du compo? voire a posteriori du Create?

Merci de votre retour.

Name si tu n'utilises pas FindComponent ne sert à rien pour un composant crée à la volée
Et le Name utilisé comme Text, ça doit être l'IDE qui le fait
Evidemment le Create c'est en premier !!!

Veille exemple de D7 il me semble, utiliser en 2007 sans problème pour utiliser un DFM comme fichier Config
EDIT exemple toujours d'actualité : https://docwiki.embarcadero.com/Code...tring_(Delphi)

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
function ComponentToString(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;
 
// -----------------------------------------------------------
function StringToComponent(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;

Attention aux RegisterClasses, ça peut être galère

17/02/2023, 14h56
pprem

Citation:

Envoyé par ShaiLeTroll

Veil exemple de D7 il me semble, utilisé en 2007 sans problème pour utiliser un DFM comme fichier Config
EDIT exemple toujours d'actualité : https://docwiki.embarcadero.com/Code...tring_(Delphi)
Attention aux RegisterClasses, ça peut être galère

Je confirme, m'en suis fortement inspiré pour Button Generator (dont je libérerai probablement le code source sur GitHub d'ici la fin du mois) et ça marche très bien pour des ensembles de composants à nous bidouillé hors Delphi aussi.
17/02/2023, 17h03
Paul TOTH

il peut y avoir une grosse différence entre le chargement d'un composant depuis un DFM et la création par le code...tout simplement car le composant n'est pas dans le même état.

il est assez typique pour un composant ayant des liens multiples, de ne rien faire pendant son chargement (csLoading in ComponentState), et de déclencher un traitement dans la méthode Loaded qui est appelée une fois le DFM chargé.

il y a aussi csDesigning in ComponentState qui permet au composant de savoir qu'il est en mode Design, et il peut réagir différemment que lorsqu'il est en execution.

par ailleurs le Nom du composant est défini par l'IDE, donc avec un composant créé par le code, il reste vide.

Tag est un entier qui n'a pas d'événement lié, il doit être défini simplement avant que le code ne se base sur sa valeur :)

Serialize component

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 function Serialize(O1: TComponent): String; var MS1, MS2: TMemoryStream; Sl1: TStringList; begin MS1 := TMemoryStream.Create; MS2 := TMemoryStream.Create; Sl1 := TStringList.Create; MS1.WriteComponent(O1); MS1.Seek(0, soFromBeginning); ObjectBinaryToText(MS1, MS2); MS2.Seek(0, soFromBeginning); Sl1.LoadFromStream(MS2); result := Sl1.text; Sl1.Free; MS2.Free; MS1.Free end;
Similaire à celle présentée ici dans les réponses
Si ce sont des composants que tu as créés, tu peux utiliser par exemple

Code:

RegisterClasses([TSerieDeResistance, TBloc, TBlocPrincipal]);

Example comet si besoin