IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Delphi Discussion :

[11.2] le bon usage de la fonction: TJson.JsonToObject


Sujet :

Delphi

  1. #1
    Membre éprouvé Avatar de der§en
    Homme Profil pro
    Chambord
    Inscrit en
    Septembre 2005
    Messages
    739
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Chambord
    Secteur : Transports

    Informations forums :
    Inscription : Septembre 2005
    Messages : 739
    Points : 931
    Points
    931
    Par défaut [11.2] le bon usage de la fonction: TJson.JsonToObject
    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 !

  2. #2
    Membre éprouvé Avatar de der§en
    Homme Profil pro
    Chambord
    Inscrit en
    Septembre 2005
    Messages
    739
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Chambord
    Secteur : Transports

    Informations forums :
    Inscription : Septembre 2005
    Messages : 739
    Points : 931
    Points
    931
    Par défaut
    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

  3. #3
    Membre éprouvé Avatar de der§en
    Homme Profil pro
    Chambord
    Inscrit en
    Septembre 2005
    Messages
    739
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Chambord
    Secteur : Transports

    Informations forums :
    Inscription : Septembre 2005
    Messages : 739
    Points : 931
    Points
    931
    Par défaut
    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...

  4. #4
    Expert éminent sénior
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    13 377
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 13 377
    Points : 24 672
    Points
    24 672
    Par défaut
    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;
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  5. #5
    Membre éprouvé Avatar de der§en
    Homme Profil pro
    Chambord
    Inscrit en
    Septembre 2005
    Messages
    739
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loir et Cher (Centre)

    Informations professionnelles :
    Activité : Chambord
    Secteur : Transports

    Informations forums :
    Inscription : Septembre 2005
    Messages : 739
    Points : 931
    Points
    931
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 0
    Dernier message: 29/07/2020, 00h56
  2. Bon Usage : Constructeur ou Load
    Par gridin dans le forum VB.NET
    Réponses: 1
    Dernier message: 10/05/2007, 08h48
  3. [Delphi - Firebird] Comment faire bon usage des transactions?
    Par Lili21 dans le forum Connexion aux bases de données
    Réponses: 2
    Dernier message: 07/05/2007, 21h59
  4. Quel est le bon usage des fichiers "*.bpk" ?!
    Par bnadem35 dans le forum C++Builder
    Réponses: 3
    Dernier message: 12/09/2006, 18h31
  5. [xml] bon usage du xml
    Par Jeddo dans le forum XML/XSL et SOAP
    Réponses: 8
    Dernier message: 02/05/2005, 17h49

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo