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.