JSON данные

[Smagulov85]

Почта России перешла на JSON я не как не могу их парсить теперь

Так получаю status

var
js :TlkJSONobject;
begin
js := TlkJSONobject.Create;
js := TlkJSON.ParseText(Memo1.Text) as TlkJSONobject;
Edit1.Text:= js.getString('Status');

не как не могу понять, как обратиться к объекту, чтобы получить строки Items и массива Operation
при чем Operation формирует объекты, которых может много быть. я понял, чтобы их посчитать надо через For перебрать.


помоги разобраться уже голову сломал!

P.S. JSON данные прикреплены к посту!

[phomm]

http://www.webdelphi.ru/2011/10/rabo...elphi-2010-xe2
Это уже читали ?
И ссылочку на Вашу библиотеку по работе с джейсоном приведите, откуда TlkJSONObject ? http://sourceforge.net/projects/lkjson/ ? Что в документации сказано ?

[Человек_Борща]

попробуйте SuperObject.

[Smagulov85]

Сообщение от Человек_Борща

попробуйте SuperObject.

там вообще запутался!!

[Человек_Борща]

там вообще запутался!!

И в чем же вы там запустались?

{//


//JSON здесь
{
 "name":"John Doe",
 "age":47,
 childs:[
 {
        "name":"Bob",
        "InMan":true,
        "age":12
 },
 {
        "name":"Ira",
        "InMan":false,
        "age":10
 }
 ]
}
//JSON здесь


}//

var
 JSON:ISuperObject;
 i:Integer;

procedure log(s:string);
begin
  LogMemo.Lines.Add(s);
end;

begin
  JSON := SO('<JSON блок>');
  Log('Father info: ');
  Log('Name: '+JSON.S['name'].value);
  Log('Age: '+IntToStr(JSON.I['age'].value));
  Log('Child count: '+JSON.A['childs'].length);
  for i:=0 to JSON.A['childs'].length -1 do
  begin
  Log('Child #'+IntToStr(i)+'Info: ');
  Log('Name: '+JSON.A['childs'].O[i].S['name'].value);
  Log('Age: '++IntToStr(JSON.A['childs'].O[i].B['age'],true));
  Log('Is a girl: '+BoolToStr(JSON.A['childs'].O[i].B['IsMan'],true));
  end;
end;

Вот и вся морока. Код писал в браузере.

[Smagulov85]

Сообщение от Человек_Борща

И в чем же вы там запустались?

{//


//JSON здесь
{
 "name":"John Doe",
 "age":47,
 childs:[
 {
        "name":"Bob",
        "InMan":true,
        "age":12
 },
 {
        "name":"Ira",
        "InMan":false,
        "age":10
 }
 ]
}
//JSON здесь


}//

var
 JSON:ISuperObject;
 i:Integer;

procedure log(s:string);
begin
  LogMemo.Lines.Add(s);
end;

begin
  JSON := SO('<JSON блок>');
  Log('Father info: ');
  Log('Name: '+JSON.S['name'].value);
  Log('Age: '+IntToStr(JSON.I['age'].value));
  Log('Child count: '+JSON.A['childs'].length);
  for i:=0 to JSON.A['childs'].length -1 do
  begin
  Log('Child #'+IntToStr(i)+'Info: ');
  Log('Name: '+JSON.A['childs'].O[i].S['name'].value);
  Log('Age: '++IntToStr(JSON.A['childs'].O[i].B['age'],true));
  Log('Is a girl: '+BoolToStr(JSON.A['childs'].O[i].B['IsMan'],true));
  end;
end;

Вот и вся морока. Код писал в браузере.

Спасибо за пример! косяк делаю так

JSON := SO(Memo1.Text);
  Log('RussianPost info: ');
  Log('Status: '+JSON.S['Status']);
  Log('BarCode: '+JSON.O['Items'].S['Barcode']);

получаю ошибку адреса

[Smagulov85]

Извиняюсь сам тупанул в место Item написал Items

[Smagulov85]

Делаю так!

 JsonArray:=JSON.A['Operations'];
  for i:=0 to JsonArray.Length -1 do
  begin
  Log('Operations #'+IntToStr(i)+'Info: ');
  Log('Name: '+JsonArray.O[i].S['Name']);
  end;

получаю ошибку адрес на for i:=0 to JsonArray.Length -1 do

[Человек_Борща]

значит там не массив.

[Smagulov85]

Сообщение от Человек_Борща

значит там не массив.

как этого!