Meilleure façon de manipuler de JSON/Datasets

Bonjour,
Je cherche un moyen élégant de convertir un JSON en Dataset.

Mon application reçoit un JSON qui contient un array d'objets JSON et je dois mettre tout ça dans un Dataset. Je connais les types de données que je reçois. Existe t'il une méthode élégante de faire ça? J'ai vue du côté de REST.Response.Adapter.TCustomRESTResponseDataSetAdapter - RAD Studio API Documentation (embarcadero.com) mais je ne comprends pas comment je dois faire. Quelqu'un a t'il déjà fait ça?

J'utilise delphi 10.1

Merci.

tu trouveras peut-être ta solution du coté de https://github.com/viniciussanchez/dataset-serialize si tu ne veux pas le faire toi-même avec un TJSONOBJECT.PARSE() as TJSONARRAY puis une boucle sur le tableau pour remplir le dataset associé

Merci!

Merci pprem, je vais essayer de suite.

Autre solution

Ce composant fonctionne très bien.

En revanche, mon chef m'a dit que ça le dérangeait un peu de devoir utiliser une librairie tierce. Aussi j'ai cherché du côté de

Code:

TRESTResponseDataSetAdapter

, un composant standard de Delphi, et ça fonctionne aussi (fait passer un JSON vers un dataset). Le principe est le même.

Code:

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
procedure LoadJsonToDataSet(const AJson: string; Var ADataSet: TFDMemTable; Const FieldsDefinition: Array of TFieldDefinition);var
  JsonValue: TJsonValue;
  Response: TRESTResponseJSON;
  Adapter: TRESTResponseDataSetAdapter;
  I: integer;
  AField: TField;
begin
  Response := TRESTResponseJSON.Create(nil);
  JsonValue := TJSonObject.ParseJSONValue(AJson);
  Adapter := TRESTResponseDataSetAdapter.Create(nil);
  Adapter.ResponseJson := Response;
  Adapter.DataSet := ADataSet;
  Adapter.RootElement := '';
  For I := 0 to Length(FieldsDefinition) -1 Do
  Begin
    AField := Nil;
    if FieldsDefinition[I].FieldType = ftString then
      AField := TStringField.Create(ADataSet);
    if FieldsDefinition[I].FieldType = ftInteger then
      AField := TIntegerField.Create(ADataSet);
    if FieldsDefinition[I].FieldType = ftDate then
      AField := TDateField.Create(ADataSet);
    if FieldsDefinition[I].FieldType = ftDateTime then
      AField := TDateTimeField.Create(ADataSet);
    if FieldsDefinition[I].FieldType = ftFloat then
      AField := TFloatField.Create(ADataSet);
    if AField <> Nil then
    Begin
      AField.Name := '';
      AField.FieldName := FieldsDefinition[I].FieldName;
      AField.DataSet := ADataSet;
    End;
  End;
  Adapter.Active := True;
  Response.SetJSONValue(JsonValue, false);
 
 
  while not ADataSet.Eof do
  Begin
    for i := 0 to ADataSet.Fields.Count - 1 do
    Begin
      Writeln(ADataSet.Fields[i].FieldName + ' : ' + ADataSet.Fields[i].Asstring);
    End;
    ADataSet.Next;
  End;
 
 
end;