Discussion :

[Paul TOTH]

Depuis quelques versions déjà, Delphi propose la sérialisation JSON des objets Delphi, comme je travaille sur un projet qui exploite beaucoup ces notions, j'ai finalement décidé de créer ma propre unité que je livre en OpenSource

l'article suivant donne des explications que l'on trouve aussi dans l'application exemple téléchargeable en bas de page !

http://lookinside.free.fr/delphi.php?Delphi+XE8+et+JSON

EDIT: mise à jour pour corriger un petit bug et améliorer la syntaxe pour les types non objet.

EDIT: mise à jour pour exploiter quelque chose que je ne connaissais pas, l'inférence de type sur les generic:

quand on déclare le type générique au niveau de la classe, on doit obligatoirement déclarer le type pour faire appel à la méthode

Code :

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

1
2
3
4
5
6
7
 
class function JSON<T>.fromJSON(const instance: T);
 
// on doit utiliser par exemple
begin
  JSON<string>.fromJSON('hello');
end;

Alors qu'en plaçant le type générique sur la méthode, Delphi est capable de le déterminer tout seul !

Code :

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

1
2
3
4
5
6
7
 
class function JSON.fromJSON<T>(const instance: T);
 
begin
  JSON.fromJSON<string>('hello');
  JSON.fromJSON('hello'); // on peut s'abstenir de déclarer explicitement le type !
end;

[Roland Chastain]

Bonjour Paul !

Merci pour le partage des connaissances et du code.

Je me demandais quelle est exactement la particularité de la ou des dernières versions de Delphi qui fait que ton unité ne peut pas être utilisée avec les versions antérieures ?

[Paul TOTH]

Bonjour Roland,

Le programme démo utilise des unités qui ne sont présentes que dans XE8 et ne compilera pas sur une version plus ancienne...mais avec des modifications mineures il est possible je pense de faire fonctionner tout cela dans la série XE.

la classe JSON utilise les Generic, et il faut une version qui donne des informations de type à tous les niveaux (anciennement $M+)...il serait amusant de voir dans quelle mesure on peut remonter le temps jusque du Delphi 6 ou 7 par exemple

[Roland Chastain]

Merci pour ta réponse, Paul.

J'ai essayé de compiler seulement l'unité avec XE2 mais sans succès :

[DCC Error] Execute.JSON.pas(251): E2474 Record type required
[DCC Error] Execute.JSON.pas(748): E2008 Incompatible types
[DCC Error] Execute.JSON.pas(751): E2149 Class does not have a default property
[DCC Error] Execute.JSON.pas(763): E2003 Undeclared identifier: 'Value'
[DCC Error] Execute.JSON.pas(763): E2003 Undeclared identifier: 'TypeData'
[DCC Error] Execute.JSON.pas(764): E2003 Undeclared identifier: 'Offset'
[DCC Error] Execute.JSON.pas(768): E2023 Function needs result type
[DCC Error] Execute.JSON.pas(768): E2029 Declaration expected but '.' found
...

Du coup pour me consoler je suis allé regarder les possibilités offertes par Free Pascal pour l'utilisation du format JSON.

J'ai aussi potassé un peu les génériques avec XE2. J'ai au moins compris le principe et j'ai été surpris de voir des choses approchantes de ce qui existe par exemple dans le langage Lua et qui m'avait fait m'intéresser à celui-ci. Mais bon j'aime quand même mieux rester sur les sentiers battus, que je n'ai pas fini d'explorer.