Discussion :

[joc02]

Bonjour,

J'ai un projet à faire dans lequel je dois faire transiter des infos entre Delphi et un portail PHP.
Je souhaite le réaliser en JSON et j'ai donc commencé à investiguer sur la techno coté Delphi.

Je me heurte à quelques difficultés. J'ai du mal de trouver des tutos intéressants. J'ai commencé à travailler avec les classes de bases de Delphi, et je rencontre des difficultés.

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
34
35
36
37
38
39
TContrat =class
private
  FdDateDeb: TDate;
public
   property dDateDeb: TDate read FdDateDeb write FdDateDeb;
end;

TApprenant =class
private
   FsNom   :string;
   [JSONName('ListContrat')]
   FListContrat: TObjectList<TContrat>;
public
   property sNom   :string read FsNom write FsNom;
   property ListContrat: TObjectList<TContrat> read FListContrat write FListContrat;
end;

...
procedure TForm3.Button2Click(Sender: TObject);
var
   apprenant : TApprenant;
   contrat : TContrat;
begin
   Memo1.Clear;

   apprenant := TApprenant.Create;
   apprenant.sNom :='JEAN';

   contrat := TContrat.Create;
   contrat.dDateDeb := StrToDate('01/01/2015');
   apprenant.ListContrat.Add(contrat);

   contrat := TContrat.Create;
   contrat.dDateDeb := StrToDate('01/01/2016');
   apprenant.ListContrat.Add(contrat);

   Memo1.Lines.Add(TJson.ObjectToJsonString(apprenant));end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
{
    "sNom": "JEAN",
    "ListContrat": {
        "ownsObjects": true,
        "items": [{
            "dDateDeb": 42005,
        },{
            "dDateDeb": 42370,
        }],
        "count":2,
        "arrayManager":{}
    }}

Dans cette exemple la sérialisation du la TObjectList<> m'a donné des données genre "ownsObjects" que je ne souhaite pas voir (pas d'intérêt pour PHP).

Comment enlever ce genre d'info ?
Est la meilleur solution pour faire du JSON ? Doit-on passer par un autre frameWork, ... ?

[tourlourou]

Quid d'un TList au lieu du TObjectList ?

[joc02]

Quid d'un TList au lieu du TObjectList ?

Peu importe le type, j'ai toujours des données parasites :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
{
	"sNom": "JEAN",
	"sPrenom": "Paul",
	"ListContrat": {
		"items": [{
			"dDateDeb": 42370,
			"dDateFin": 42735
		}],
		"count": 1,
		"arrayManager": {}
	}
}

"count": 1 et "arrayManager": sont 2 propriétés induites par la TList<>

[GoustiFruit]

Est-ce que tu as déjà regardé du côté de mORMot ? http://blog.synopse.info/post/2013/1...-serialization

[tourlourou]

Si avec un TList les propriétés parasites sont toujours les dernières, il doit suffire de charger la chaîne dans un TStringList et de faire successivement autant de Delete[Count-2] que de propriétés inutiles

[joc02]

J'ai trouvé une solution en passant directement par TJSONMarshal et RegisterConverter

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
 
   m := TJSONMarshal.Create(TJSONConverter.Create);
 
 
   m.RegisterConverter(TApprenant, 'FListContrat',
      function(Data: TObject; Field: String): TListOfObjects
      var
         ContratApp: TContrat;
         I: integer;
      begin
         SetLength(Result, TApprenant(Data).ListContrat.Count);
 
 
         I := Low(Result);
         for ContratApp in TApprenant(Data).ListContrat do
         begin
            Result[I] := ContratApp;
            Inc(I);
         end;
      end);
 
 
      m.Marshal(apprenant).ToString;

Je m'étais fait avoir car le TJSONMarshal est dans 2 uses Delphi.
- REST.Json => marche très bien.
- Data.DBXJSONReflect => laisse des propriétés parasites.

[ShaiLeTroll]

Effectivement Data.DBXJSONReflect.TJSONMarshal c'est l'ancien sérialisez de Delphi XE2, plutôt à utilisation interne de Delphi avec une gestion de type implicite assez lourde en interne
REST.Json.TJSONMarshal c'est le nouveau, apparu en XE6 ou XE7 conçu pour que nous puissions l'utiliser mais nous oblige à spécifier le type attendu pour le parsage

Je l'évoquais dans ce sujet, où j'ai fourni un petit code pour faciliter l'utilisation de Data.DBXJSONReflect.TJSONMarshal mais qui laisse tout un tas de valeur nécessaire pour faire le parsage JSON -> Object sous XE2

Il existe aussi Data.DBXJSON.TJSONObject ou l'on peut manipuler le JSON à la main complètement, un peu comme on le ferait avec du XML avec TXMLDocument en balayant Nodes et Attributes

[Paul TOTH]

J'ai créé ma propre unité JSON qui n'est peut-être pas complète car très orientée sur mon besoin au moment de sa conception.

cependant son code reste à mon avis beaucoup plus lisible que celui d'Embarcadero, et plus sûr que celui de XE8 en tout cas

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

[GoustiFruit]

@Paul TOTH: dans les 2 et 3ème exemples, il me semble qu'il y a une erreur de déclaration non (o de type TSimpleObject et pas TMonObjet) ?

[Paul TOTH]

oui, il devait être tard quand j'ai rédigé cela j'ai relevé d'énormes fautes de français...même s'il en reste probablement ...