Discussion :

[darrylsite]

Bonjour,

Je recherche une librairie permettant de sérialiser des objets en JSON ou XML dans le but de les envoyer sur le réseau.

J'ai trouvé quelques classes dans le code source de Morfik, mais comme je ne sais pas encore ce qu'il offre coté licence, je recherche une solution open source.

Si vous avez une idée, ...

[Paul TOTH]

Bonjour,

Je recherche une librairie permettant de sérialiser des objets en JSON ou XML dans le but de les envoyer sur le réseau.

J'ai trouvé quelques classes dans le code source de Morfik, mais comme je ne sais pas encore ce qu'il offre coté licence, je recherche une solution open source.

Si vous avez une idée, ...

ici peut-être ?

[darrylsite]

ça l'air de le faire. Mais c'est pas exactement ce que je cherche puisqu'avec cette librairie, on ne peut pas sérialiser des objets qu'on a construit par exemple pour :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Status = class(TInterfacedObject, IJson)
                  currentStat : TEstatus;
                  function DoParse(s : string) : TJSONObject;
                 public
                  procedure fromJson(data : String);
                  function toJson() : String;
 
                  function getStatus() : TEstatus;
                  procedure setStatus(st : TEstatus);
                  constructor init();
                end;

je voudrait une méthode qui me génère un truc du genre:

Code :

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

1
2
 
{"status":{"currentstat" : "online"}}

Sachant que les classes peuvent dériver d'autres classes. Et que la sérialisation doit fournir une structure complète de cette classe.

[Paul TOTH]

ça l'air de le faire. Mais c'est pas exactement ce que je cherche puisqu'avec cette librairie, on ne peut pas sérialiser des objets qu'on a construit par exemple pour :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Status = class(TInterfacedObject, IJson)
                  currentStat : TEstatus;
                  function DoParse(s : string) : TJSONObject;
                 public
                  procedure fromJson(data : String);
                  function toJson() : String;
 
                  function getStatus() : TEstatus;
                  procedure setStatus(st : TEstatus);
                  constructor init();
                end;

je voudrait une méthode qui me génère un truc du genre:

Code :

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

1
2
 
{"status":{"currentstat" : "online"}}

Sachant que les classes peuvent dériver d'autres classes. Et que la sérialisation doit fournir une structure complète de cette classe.

je sais pas, en fait je suis tombé sur le site de Henri hier matin et j'ai vu qu'il traitait de JSON du coup je te l'ai proposé

mais la méthode toJSON() ne fait pas ce que tu demandes ?

[darrylsite]

mais la méthode toJSON() ne fait pas ce que tu demandes ?

Si, mais c'est mois qui l'implémente pour chaque classe sérialisation. Je voulais m'épargner cette tache.

[batyann811]

Je pense (mais je n'en suis pas sûr) que ce que tu veux faire n'est pas possible. Tu peux chercher du côté de l'unité 'typinfo' mais je pense qu'elle ne permet d'acceder qu'aux propriétés publiées d'un objet et pas à tous les champs. Voir aussi : http://wiki.lazarus.freepascal.org/Streaming_components