Delphi XE7 et JSON

Version imprimable

Delphi XE7 et JSON

Bonjour,
Je cherche a exploiter des données json depuis un site web sous cette format :

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
49
50
51
52
53
 
<RapJ>
<Budget>0</Budget>
<Capchb>0</Capchb>
<Caplit>0</Caplit>
<Cddep i:nil="true"/>
<Cdreg i:nil="true"/>
<Chbarr>0</Chbarr>
<Chbblq>0</Chbblq>
<Chbdep>0</Chbdep>
<Chboccgrt>0</Chboccgrt>
<Chboccpay>0</Chboccpay>
<Chocc_Bud>0</Chocc_Bud>
<Cltarr>0</Cltarr>
<Cltdep>0</Cltdep>
<Dat>0001-01-01T00:00:00</Dat>
<Libdep>% Fréquentation:</Libdep>
<Libreg i:nil="true"/>
<Mnt_Tc>0</Mnt_Tc>
<Mnt_Tpt>0</Mnt_Tpt>
<Nt_Bud>0</Nt_Bud>
<Nuitgrt>0</Nuitgrt>
<Nuitpay>0</Nuitpay>
<Report>0</Report>
<Total>34.470989761092150170648464160</Total>
<Ttva>0</Ttva>
</RapJ>
<RapJ>
<Budget>0</Budget>
<Capchb>0</Capchb>
<Caplit>0</Caplit>
<Cddep i:nil="true"/>
<Cdreg i:nil="true"/>
<Chbarr>0</Chbarr>
<Chbblq>0</Chbblq>
<Chbdep>0</Chbdep>
<Chboccgrt>0</Chboccgrt>
<Chboccpay>0</Chboccpay>
<Chocc_Bud>0</Chocc_Bud>
<Cltarr>0</Cltarr>
<Cltdep>0</Cltdep>
<Dat>0001-01-01T00:00:00</Dat>
<Libdep>% Occupation:</Libdep>
<Libreg i:nil="true"/>
<Mnt_Tc>0</Mnt_Tc>
<Mnt_Tpt>0</Mnt_Tpt>
<Nt_Bud>0</Nt_Bud>
<Nuitgrt>0</Nuitgrt>
<Nuitpay>0</Nuitpay>
<Report>0</Report>
<Total>34.042553191489361702127659570</Total>
<Ttva>0</Ttva>
</RapJ>

Je voudrai récupérer les données de chaque <Libdep> et <Total>
Je sèche la :)

03/03/2015, 10h03
Papy214

ça ressemble pas vraiment à du json

http://jsonformatter.curiousconcept.com/
03/03/2015, 14h21
Linkin

ça ressemble à du XML plutôt. Donc IXMLDocument ou TXMLDocument.

Je viens de changer mon fichier output en json :)

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
49
50
51
52
53
 
   {  
      "Dat":"0001-01-01T00:00:00",
      "Cddep":null,
      "Libdep":"% Fréquentation:",
      "Total":36.860068259385665529010238910,
      "Budget":0.0,
      "Ttva":0.0,
      "Cdreg":null,
      "Libreg":null,
      "Chboccpay":0,
      "Chboccgrt":0,
      "Nuitpay":0,
      "Nuitgrt":0,
      "Chbblq":0,
      "Capchb":0,
      "Caplit":0,
      "Chbarr":0,
      "Cltarr":0,
      "Chbdep":0,
      "Cltdep":0,
      "Report":0.0,
      "Chocc_Bud":0.0,
      "Nt_Bud":0.0,
      "Mnt_Tpt":0.0,
      "Mnt_Tc":0.0
   },
   {  
      "Dat":"0001-01-01T00:00:00",
      "Cddep":null,
      "Libdep":"% Occupation:",
      "Total":39.893617021276595744680851060,
      "Budget":0.0,
      "Ttva":0.0,
      "Cdreg":null,
      "Libreg":null,
      "Chboccpay":0,
      "Chboccgrt":0,
      "Nuitpay":0,
      "Nuitgrt":0,
      "Chbblq":0,
      "Capchb":0,
      "Caplit":0,
      "Chbarr":0,
      "Cltarr":0,
      "Chbdep":0,
      "Cltdep":0,
      "Report":0.0,
      "Chocc_Bud":0.0,
      "Nt_Bud":0.0,
      "Mnt_Tpt":0.0,
      "Mnt_Tc":0.0
   }

en mettant la chaîne dans un fichier, ça donne:

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
49
50
51
52
53
54
55
56
57
 
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, json, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
const
  Fichier = 'C:\Fichiers\jsontext.txt';
var
  Element: TJSONValue;
  Tablo: TJSONArray;
  S: string;
begin
 
  with TStringStream.Create('', TEncoding.UTF8) do
  begin
    LoadFromFile(Fichier);
    S := DataString;
    Free;
  end;
 
  try
    Tablo := TJSONObject.ParseJSONValue(S) as TJSONArray;
    Element := Tablo.Items[0];
    S := Element.GetValue<string>('Libdep');
    Memo1.Lines.Add(S);
    S := Element.GetValue<string>('Total');
    Memo1.Lines.Add(S);
  finally
    Element.Free;
  end;
 
end;
 
end.

05/03/2015, 14h44
XDavidX

Merci, mais ça m'affiche uniquement les premières lignes de mon fichier, je dois répertorier tous les Libdep et Total!
05/03/2015, 16h00
Papy214

Comme son nom l'indique, Tablo est un tableau . Il suffit de prendre chaque élément de 0 à Tablo.Count.

Ici, on aide, on ne fait pas tout le code de l'application ;)
05/03/2015, 18h49
XDavidX

Parfait :),, je l'avoue j’étais con sur coup la.. merci en tout cas ;)