Discussion :

[lerorodu51]

Bonjour,

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
uses
DBXJSON,DBXJSONReflect;
 
type
  TTest = class(TObject)
  private
    [JSONName('a_code')]
    a : string;
    [JSonName('b_code')]
    b : string;

Quand je transforme mon object TTest en JSON , j'ai ceci :

Code :

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

'{"type":"MonUnite.TTest","id":1,"fields":{"a":"home","b":"ch"}}

Je n'ai pas "a_code" : "home", "b_code" : "ch".

De plus est-il possible de cacher la partie "type" mais juste afficher la partie contenu dans "Fields":{

[popo]

Tu utilises quelle version de XE ?
Il me semble que Data.DBXJSONReflect est l'ancienne méthode et qu'elle avait quelques soucis (notamment mettre des propriété que tu n'as pas demandé)

As-tu essayé avec REST.Json ?

Sinon regarde cette discussion :
https://www.developpez.net/forums/d1...e/json-delphi/

[lerorodu51]

J'utilise la version : Delphi XE donc s'il y a des problèmes concernant les attributs, je vais passer par ISuperObject.
Car il me génère un json qui ne répond pas à mes besoins

[Paul TOTH]

j'ai développé ma propre unité JSON pour XE8 mais je l'utilise aussi sous XE3, il y a des chances qu'elle compile sous XE

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


pour ton problème de nom j'adopte une autre solution qui simplifie beaucoup les choses

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
 
type
  TJSONData = record
    a_code: string;
    b_code: string;
  end;
 
  TTest = class
  private
    FData: TJSONData;
    Fc: string;
  public  
    property a: string read FData.a_code write FData.a_code;
    property b: string read FData.b_code write FData.b_code;
    property c: string read Fc_code write Fc;
  end;

du coup je sérialise TTest.FData qui ne contient que les données que je veux sérialiser et avec le bon nom

[lerorodu51]

Bonjour Paul,

En effet votre solution convient mais j'ai finalement opté pour ISuperObject (j'ai plus de flexibilité même si structurellement, je ne suis pas un fan niveau syntaxe) , par contre je garde votre solution de côté .

Merci.