Discussion :

[SergioMaster]

Bonjour,

Après une journée "noire" hier je vous passe les détails, j'ai besoin que l'on me remémore quelque chose que je ne retrouve pas sur mon pc (je devrais plutôt dire mes PC c'est bien là l'un des problèmes).
Derrière mon mot barbare "sérialisation" se cache un truc sympa : récupérer les informations d'un contrôle modifier des informations et retourner alors ce contrôle modifié. Je ne sais pas si en fait j'emploie le terme exact mais c'est le but.
Alain Weber, lors d'une présentation CodeWay à Nantes (plus d'un an déjà !) m'avait mis sur la piste lorsqu'il "triturait" les surfaces de ses objets 3D.
S'il passe par là un grand salut et s'il peut me ré-indiquer de quel programme il s'agissait encore plus

Bref, j'avais réussi à récupérer via cette technique (celle que ma mémoire défaillante à oublié) à récupérer le "texte dfm" d'un TBindingsList. A l'époque de ce petit programme test, je voulais (et avais réussi) en extraire la substantifique moelle dans le but de proposer un moyen d'avoir de la documentation programme. Je voulais ensuite en faire un outil pour l'IDE (ça c'était la partie délicate). Malheureusement, les circonstances, le boulot les autres projets etc. on fait que je ne suis pas (pour l'instant) allé jusqu'au bout.

Mon problème est que je ne retrouve pas cet essai sur mes disques durs (et ma mémoire) j'étais persuadé qu'il s'agissait d'un TJSON.ObjectToJSONString mais, non si ce dernier fonctionne pour les objets personnels créés je n'arrive pas à l'appliquer à mes contrôles.

Il y a quelque chose qui me manque, remettez moi sur la piste (froide), merci

[SergioMaster]

Ma mémoire me jouait des tours ! pourquoi je m'acharnais sur du JSON alors que c'est ObjectBinaryToText et ObjectTextToBinary que je devrais utiliser ?

Bon, il n'y a plus la presse, une nouvelle recherche Grep avec ces mots clés devrait me retrouver le source s'il n'a pas été supprimé lors de ma journée "noire"
sinon, j'ai à nouveau la piste.
En tout cas, si je retrouve ce bout de code, je crois que je vais le mettre à disposition sur le forum histoire d'augmenter mes chances de souvenirs avant de tutoyer Alzheimer

[SergioMaster]

Merci les Gexperts et leur Grep performant

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
 
// largement inspiré du code de Alain Weber (uTreeComponent.pas) 
function ComponentToStringProc(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;
 
// utilisation 
procedure TForm10.Button1Click(Sender: TObject);
var ALink : TObject;
begin
 for ALink in BindingsList1
    do
Memo1.Lines.Add(ComponentToStringProc(TComponent(Alink)));
end;

[Paul TOTH]

je profite de ce monologue pour pointer un petit problème avec cette pratique, elle est fortement dépendante de la version de Delphi qui peut à loisir modifier la gestion du flux DFM d'une version à l'autre.

j'ai déjà exposé dans un billet comment on pouvait jouer avec les DFM, mais à mon avis cela doit rester au sein de l'application et pas pour une sérialisation extérieure qui serait susceptible d'être exploitée par une autre version de Delphi.

je lui préfère donc la sérialisation JSON, que ce soit celle des derniers Delphi ou un code maison, en plus cela permet facilement de reprendre les informations en dehors de Delphi.

je travaille actuellement sur un projet dans lequel toutes les données sont échangées avec un site web au format JSON, au niveau du site c'est du PHP/MySQL mais ça pourrait être virtuellement n'importe quoi.

[SergioMaster]

Bonsoir Paul,

c'est bien pour cela que je faisais appel à la mémoire collective, la mienne défaillant ! J'étais bien parti sur une histoire de JSON mais je bute !
la reprise de ce code m'indiquera peut-être où j'ai buté.
En ce qui concerne le code c'est bien pour une "sérialisation" et à l'occasion dé-sérialisation interne à l'application et non vers d'autres versions d'ailleurs je doute que dans mon cas sérialisation soit le terme exact

[Caribensila]

Bonjour,

je doute que dans mon cas sérialisation soit le terme exact

Moi j'appelle ça « mise en flux », tout simplement.

[alheuredudejeuner]

Bonjour,
Use Rest.Json
Créer un flux

Code :

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

1
2
3
      JsonString:= TJson.ObjectToJsonString(TCommandesInfos(TableInfos));
      Result:= TStringStream.Create;
      Result.WriteString(JsonString);

Lire le flux

Code :

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

1
2
3
              stream.WriteString(JSonString);
              stream.Position := 0;
              CommandesInfos:= TJson.JsonToObject<TCommandesInfos>(JSonString) ;

ObjectToJsonString traduit également les propriété Objets dans le Json.
Pour une fois, c'est trop facile. Il y a surement un piège :=

Cordialement

[SergioMaster]

Bonjour,

Créer un flux
Pour une fois, c'est trop facile. Il y a surement un piège :=

Pour un objet créé/déclaré par le programme comme ton TCommandesInfos c'est ok, le piège c'est que c'est un contrôle (un BinaryObject) et le ObjectToJsonString ne fonctionne pas (ou plutôt ça plante avec un message d'erreur StackOverflow).

[Paul TOTH]

Bonjour,

Pour un objet créé/déclaré par le programme comme ton TCommandesInfos c'est ok, le piège c'est que c'est un contrôle (un BinaryObject) et le ObjectToJsonString ne fonctionne pas (ou plutôt ça plante avec un message d'erreur StackOverflow).

je n'ai pas vérifié depuis XE8 mais sous XE8 JSON était un peu léger au niveau des contrôles d'intégrité, comme je l'indique sur mon site

Code :

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

1
2
3
4
5
6
7
8
9
 
type
  TError1 = class
    v: array[0..5] of Byte;
  end;
begin 
  m.Marshal(o).toJSON()
  Violation d'accès à l'adresse 00455998 dans le module 'JSONDemo.exe'. Lecture de l'adresse 00000004
ebd,

ici "v" ne possède pas d'information de type (RTTI) et JSON se vautre en faisant usage d'un pointeur invalide, dans mon code on obtient une exception "No RTTI informations for TError1.v."

de même, si deux objets pointent mutuellement l'un sur l'autre le JSON de Delphi se termine sur un débordement de pile alors que mon code donne une exception du type "Circular reference in TOwnerObject.Child.TError2.Owner" qu'il convient de corriger en définissant une méthode JSONBuildField (cf mon unité).