Discussion :

[Anselme45]

Bonjour,

Dev en Delphi 10.4 pour Android: J'essaie de lire un JSON récupéré dans RESTRequest incluant plusieurs éléments dont un tableau.

J'arrive à accéder à toutes les données de manière individuelle y compris les valeurs de la table mais quand je veux traiter le tableau comme un tableau, j'ai une erreur "violation d'accés mémoire..."


Le code qui fonctionne:

Code :

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

1
2
3
4
5
6
7
8
 
JsonValue := TJSonObject.ParseJSONValue(JSONresponse_str);
 
//Je récupère une valeur 'doc_id' qui est un élément de 'header', lui-même élément de 'v_data'
str:=JsonValue.GetValue<string>('results[0].v_data.header.doc_id');  //JSON mgt  OK OK OK
 
//Je récupère une valeur 'doc_line_id' qui est un élément du 1er enregistrement du tableau 'lines' dans 'v_data'
str:=JsonValue.GetValue<string>('results[0].v_data.lines[0].doc_line_id');  //JSON mgt  OK OK OK

Par contre, le moindre accès au tableau se termine par une "violation d'accès".

J'ai essayé plusieurs approches du code comme par exemple

Code :

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

1
2
3
4
5
 
  LJson :=  TJSonObject.ParseJSONValue(JSONresponse_str) as TJSONObject;
  LValues := LJson.Values['lines'] as TJSONArray;
 
  str:=IntToStr(LValues.Count);

Cela va planter sur le "LValues.Count"

Est-ce que qqn voit ce que je fais faux?

Merci pour votre avis

[Andnotor]

Parce que tu tentes de récupérer lines comme s'il était à la racine du document ce qui d'après le chemin n'est pas le cas.

Soit tu récupères nœud après nœud (results puis v_data puis enfin lines) soit tu travailles toujours avec chemin, quelque chose comme

Code :

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

LValues := JsonValue.GetValue<TJSONArray>('results[0].v_data.lines');

.

[Anselme45]

Parce que tu tentes de récupérer lines comme s'il était à la racine du document ce qui d'après le chemin n'est pas le cas.

Soit tu récupères nœud après nœud (results puis v_data puis enfin lines) soit tu travailles toujours avec chemin, quelque chose comme

Code :

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

LValues := JsonValue.GetValue<TJSONArray>('results[0].v_data.lines');

.

Bien vu Andnotor mais ce n'est pas la solution à mon problème. J'ai tapé un peu vite ma question sans mettre le lien complet. Je réitère ma question:

Il s'agit bien de

Code :

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

LValues := JsonValue.GetValue<TJSONArray>('results[0].v_data.lines');

.

Et dès que j'essaie d'accéder au Array, cela plante avec une erreur "access violation"!

Tu dis de récupérer un noeud après l'autre. Avec un tableau 'lines" dont je ne connais pas le nombre de lignes qui le compose et dans l'impossibilité de connaître le nombre de lignes en accédant à l'array, je fais comment?

[ShaiLeTroll]

Essaye

Violation d'accès à une adresse 00000000 ?
Regarder en débogage la valeur ça ne serait pas une mauvaise idée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
  lines: System.JSON.TJSONArray;
  line: System.JSON.TJSONValue;
begin
  ...
  lines := (JsonValue as TJSONObject).GetValue('results[0].v_data.lines') as System.JSON.TJSONArray;
  for line in lines do
  begin
     ... line.GetValue('doc_line_id', 0);
 
  end;

[ShaiLeTroll]

Ah oui je ferais aussi un essai :

Code :

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

ShowMessage(JsonValue.GetValue<TObject>('results[0].v_data.lines').ClassName());

[Anselme45]

Ah oui je ferais aussi un essai :

Code :

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

ShowMessage(JsonValue.GetValue<TObject>('results[0].v_data.lines').ClassName());

Excellente idée qui confirme qu'il s'agit bien d'un... TJSONArray!

Un TJSONArray qu'il est impossible de toucher sous peine de plantage...


Vu qu'il s'agit d'un JSON object récupéré via une procédure d'un serveur via REST et le processus faisant appel à RESTResponse et à un cliendataset pour récupérer la réponse, j'ai même essayé de libérer le RESTResponse et le clientdataset après avoir récupéré le JSON object (des fois qu'ils seraient concernés par le "accès à l'adresse ... en cours"), mais le problème subsiste.

Je pense qu'il va falloir faire une croix sur la gestion des données via TJSONArray. Vu que je peux accéder aux données des différentes lignes du tableau une à une, je vais devoir bricoler une récupération à l'aveugle de chaque ligne du tableau et traiter l'erreur d'index qui va immanquablement se déclencher quand je vais essayer d'accéder à une ligne qui n'existe pas (et oui, je ne peux pas connaître le nombre exact de ligne puisque que tout accès au tableau y compris un simple TJSONArray.count m'est interdit).

[Anselme45]

Essaye

Violation d'accès à une adresse 00000000 ?
Regarder en débogage la valeur ça ne serait pas une mauvaise idée.

Le message d'erreur est du genre "Violation d'accès à l'adresse D218A71C, accès à l'adresse 0000008C en cours" mais les adresses peuvent changer d'une compilation à l'autre.

D'autre part, je serai bien en peine de "regarder en debogage", il s'agit d'un développement Android et depuis Delphi Rio 10.3.3, le pack SDK Android ne fournit plus d'outil de debuggage comme c'était le cas avec l'excellent "Android monitor". J'en suis donc à sentir le force et le sens du vent à l'aide d'un doigt mouillé!

"Mais repasse en Delphi Rio 10.3.3" pour profiter du debugger" va-t-on me dire.

Il y a juste un problème, j'ai dû passer de Delphi Rio 10.3.3 à 10.4.2 (3 versions de 10.4 + 3 patchs dont un concernant le compilateur!!! Je crois être dans un cauchemar ) parce que la même app Android compilée en Delphi 10.3 plantait au démarrage sur Android 11 (mais fonctionnait sur les Android 9,10 et 12) alors que la même app, sans la moindre modification de code compilée sur Delphi 10.4.2, fonctionnait parfaitement sur tous les Android quelque soit la version!

Tout cela me fait penser que Embarcadero, à vouloir être compatible avec tous les OS, est totalement dépassé par la tâche et se retrouve dans l'impossibilité de fournir un outil fiable!!! Ajoutons au tableau que le prix de l'abonnement annuel pour les update augmente chaque année et que la doc est remplie de "Description: Embarcadero Technologies ne possède pas d'informations supplémentaires pour le moment. Veuillez nous aider à documenter cette rubrique en utilisant la page Discussion!", cela commence à faire beaucoup!!!

Et ce n'est pas les mails 3 fois par semaine pour me proposer d'acheter de nouvelles licences avec un rabais x ou y qui vont faire baisser ma mauvaise humeur!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
  lines: System.JSON.TJSONArray;
  line: System.JSON.TJSONValue;
begin
  ...
  lines := (JsonValue as TJSONObject).GetValue('results[0].v_data.lines') as System.JSON.TJSONArray;
  for line in lines do
  begin
     ... line.GetValue('doc_line_id', 0);
 
  end;

J'ai testé ta proposition de code et comme d'habitude quand j'essaye d'accéder au JsonArray, cela plante! Pas besoin de mettre "line.Getvalue", il suffit de faire le "for line in lines do" pour que l'erreur se déclenche.