Discussion :

[der§en]

Bonjour,

Toujours dans les joies de la manipulation des fichiers JSON, je n'arrive pas a obtenir des résultats avec la fonction: TJson.JsonToObject.

Voici mon code qui ne plante pas mais ne crée pas les données récupérer depuis une URL!

Source JSON:

Code :

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

1
2
 
{"Tables":[{"Nom":"Colonies","Libelle":"Les colonies"},{"Nom":"Cr\u00e9atures","Libelle":"Les cr\u00e9atures"},{"Nom":"G\u00e9n\u00e9ticiens","Libelle":"Les g\u00e9n\u00e9ticiens"},{"Nom":"Lieux","Libelle":"Les lieux"},{"Nom":"Mercenaires","Libelle":"les mercenaires"},{"Nom":"Nations","Libelle":"Les nations"},{"Nom":"Navires","Libelle":"Les navires"},{"Nom":"Personnages","Libelle":"Les personnages"},{"Nom":"Pirates","Libelle":"Les pirates"},{"Nom":"Rep\u00e8res","Libelle":"Les rep\u00e8res"},{"Nom":"Soci\u00e9t\u00e9s","Libelle":"Les soci\u00e9t\u00e9s"},{"Nom":"Surfaces","Libelle":"La surface"},{"Nom":"Villes","Libelle":"Les villes"}]}

Et voici le source qui ne plante pas pas qui ne rempli pas mon Object: TAtlasListe

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
40
41
42
43
44
45
46
47
48
49
50
51
52
 
  TAtlasTable = class
    [JSONName('Nom')] Nom : string;
    [JSONName('Libelle')] Libelle: string;
  end;
 
  TAtlasListe = class
    [JSONName('Tables')] AtlasListe: TArray<TAtlasTable>;
  end;
 
  TThread.CreateAnonymousThread(
  procedure
  var
    LData: string;
    LRetour: string;
    LStatus: Integer;
    LClient: THTTPClient;
    LReponse: IHTTPResponse;
    LAtlasListe: TAtlasListe;
    LAtlasTable: TAtlasTable;
  begin
    LData   := EmptyStr;
    LStatus := 0;
 
    LClient := THTTPClient.Create;
    try
      LReponse := LClient.Get(AUrl);
      LStatus := LReponse.StatusCode;
      if LReponse.StatusCode = 200 then
      begin
        LAtlasListe := TAtlasListe.Create;
 
        LRetour := TJSONObject.ParseJSONValue(LReponse.ContentAsString).ToString;
 
        LAtlasListe := TJson.JsonToObject<TAtlasListe>(LRetour);
 
        for LAtlasTable in LAtlasListe.AtlasListe do
          LData := LData + LAtlasTable.Nom + ':' + LAtlasTable.Libelle + #13#10;
 
        LAtlasListe.Free;
      end;
    finally
      LClient.Free;
    end;
 
    TThread.Synchronize(TThread.CurrentThread,
    procedure
    begin
      AAfficheData(LStatus, Trim(LData));
    end);
  end)
  .Start;

Le code fait bien ce que j'en attends, jusqu’à la ligne :

Code :

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

LAtlasListe := TJson.JsonToObject<TAtlasListe>(LRetour);

Aprés la ligne, le tableau reste vide.

Qu'est-ce que j'ai mal fait, c'est un problème de création des classes TAtlasListe ou TAtlasTable, ou alors c'est la structure de mon JSON qui est incorrect pour pouvoir être utilisé par TJson.JsonToObject ?

Merci d'avance de vos remarques !

[der§en]

Problème résolu !

J'ai fait ces modifications qui résolvent mon problème.

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
 
  TAtlasTable = class
  private
    FNom: string;
    FLibelle: string;
  public
    property Nom: string read FNom write FNom;
    property Libelle: string read FLibelle write FLibelle;
  end;
 
  TAtlasListe = class
  private
    FTables: TArray<TAtlasTable>;
  public
    property Tables: TArray<TAtlasTable> read FTables write FTables;
  end;

Et ce petit changement dans le reste du code pour prendre en compte le nouveau nom de mon TArray:

Code :

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

for LAtlasTable in LAtlasListe.Tables do

[der§en]

Pour éviter une fuite de mémoire, vous pouvez aussi supprimer cette ligne la de mon exemple:

Code :

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

LAtlasListe := TAtlasListe.Create;

Le "create" est automatiquement fait par TJson.JsonToObject...

[ShaiLeTroll]

JSONMarshalled accompagne JSONName.
https://docwiki.embarcadero.com/Libr...alledAttribute

[JSONMarshalled(False)] c'est pour ton cas, des variables privées déclarées selon la norme Delphi F + property, pour exclure ce qui serait mappé automatiquement.
Cela permet que plein d'objet sans être modifié soit sérializable sans effort autre que la rigueur du code, c'est disons un peu "magique" mais aussi un poil cracra et paresseux comme approche, le F...

[JSONMarshalled(True)] annule ce comportement pour personnaliser via [JSONMarshalled(True)] [JSonName('champ')] champ: type;


Documentation absente mais le code est là !
Et chose rare, le développeur a commenté son astuce qui est clairement conçu pour la RTL et la convention implicite en Delphi

Code :

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

1
2
3
4
5
6
7
8
class function TJSONConverter.ConvertFieldNameToJson(AObject:TObject; const AFieldName:string): string;
...
begin
...
  if not assigned(LField) then
    LField := rType.GetField('F' + AFieldName);   //If property name was given instead of field name
...
end;

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
class function TJSONConverter.ConvertFieldNameToJson(const AField: TRttiField): string;
...
begin
  //First check if JsonNameAttribute is applied. Take without conversion
  ...
  //No Name Attribute found, regular rules apply
  if result = '' then
  begin
    // Delphi Fieldname usually start with an "F", which we don't want in JSON.
    // Also Javascript (i.e. JSON) defaults to lower Camel case, i.e. first letter lower case
    // FFullName = 'Elmo'  => {"fullName":"Elmo"}
    LFieldName := AField.Name;
    if LFieldName.StartsWith('F', true) then
      LFieldName := LFieldName.Remove(0, 1);
     ...
  end;
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
function TJSONUnMarshal.ConvertFieldNameFromJson(AObject: TObject; const AFieldName: string): string;
...
begin
...
 
  if result = '' then begin
    // Delphi Fieldname usually start with an "F", which we don't have in JSON:
    // FName = 'Elmo'  => {"Name":"Elmo"}
 
    LFieldName := 'F' + AFieldName;
    Result := LFieldName;
  end;

end;

[der§en]

J'ai suivi ton conseil, et j'ai refait mes objets ainsi:

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
  TAtlasTable = class
  public
    [JSONMarshalled(True)]
    [JSONName('Nom')]
    Nom : string;
    [JSONMarshalled(True)]
    [JSONName('Libelle')]
    Libelle: string;
  end;
 
  TAtlasListe = class
  public
    [JSONMarshalled(True)]
    [JSONName('Tables')]
    Tables: TArray<TAtlasTable>;
  end;

Cela fonctionne parfaitement, il m'a juste fallu rajouter dans les uses, ceci afin de faire disparaitre des warning a la compilation: REST.Json.Types