Discussion :

[ads42]

Bonjour,

je suis sous Delphi Tokyo.

J'utilise la fonction TJson.ObjectToJsonString(MonObjet, [TJsonOption.joIgnoreEmptyStrings,joIgnoreEmptyArrays]); pour produire du JSON.
Jusque là ça va.
Quand je ne renseigne pas les propriété String de mon objet, ça va elle ne sont pas présentes dans le JSON.

Le problème se corse quand je ne veux pas utiliser le propriétés numériques (en l’occurrence entier) de mon objet, car dans ce cas si je n'affecte pas leur valeurs, elle sont quand même présente dans le JSON mais avec une valeur à .

Imaginez que je doivent passer en paramètre une taille de debut et une taille de fin comme paramètres (entre autres) pour une recherche, du coup je demande au serveur de me trouver les Eléments qui ont une taille comprise entre 0 et 0.
Alors que si cette propriété n'est pas presente, il ignore cette partie , et tient compte des autre paramètres.

Quelqu'un à une idée pour demander à ignorer les propriétés "nulle" des entiers ? (notez le" "", un entier n'est pas nul, je precise avant qu'on me prenne pour un idiot ).

Merci

[ShaiLeTroll]

En général, soit l'on ignore le Zéro soit l'on utilise la valeur -1 comme étant une valeur vide, typique par exemple avec un ItemIndex
Ce n'est pas un problème de sérialisation mais plutôt un problème de gestion des paramètres de ta fonction de recherche.

[ads42]

Merci de ta réponse.

je ne l'ai pas précisé mais, la partie serveur je ne la maîtrise pas car c'est pas moi qui l'ai conçue.

je suppose que tu parlais du traitement de ces valeurs coté serveur ?

[ShaiLeTroll]

Alors là, effectivement cela change des choses !
Je parlais évidemment côté serveur, si celui-ci ne gère pas de valeur neutre mais que l'absence de valeur cela t'oblige à générer toi même le JSON pour qu'il soit conforme aux spécifications du Serveur
Cela n'a rien de bien compliqué

Tu peux le bidouiller rapidement

Code :

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

1
2
3
4
Ojb := TJson.ObjectToJsonObject(...); 
Ojb.RemovePair('start');
Ojb.RemovePair('end');
ShowMessage(Ojb.ToString);

Sinon, à la main, tu utilises Data.DBXJSON.TJSONObject (ça c'était le nom en XE2) avec un AddPair tu ajoutes tes clés\valeurs de ce qu'il faut uniquement sérialiser

[ads42]

Effectivement avec le RemovePair ça fait bien ce que je veux.
Merci en core pour ton aide.