JSON данные

[phomm]

JsonArray и JsonArray.O - разные массивы Если на этом падает.

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

JsonArray и JsonArray.O - разные массивы Если на этом падает.

JsonArray.O ни разу не массив. Это Object.

[Smagulov85]

не могу понять че фигня

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

Показывай JSOn, который разбираешь )

[Smagulov85]

беру другой ответ от сервера все работает! точно муть какая-то

[Smagulov85]

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

Показывай JSOn, который разбираешь )

Брал этот изначально!

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

Да, там массив объектов.
Значит JsonArray не правильно объявили. Чтите документацию.

[Smagulov85]

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

Да, там массив объектов.
Значит JsonArray не правильно объявили. Чтите документацию.

я взял новый ответ с сервера и код работает без ошибок!!

procedure TForm1.Button1Click(Sender: TObject);
var
JSON:ISuperObject;
 i:Integer;
 JsonArray: TSuperArray;
begin
ListBox1.Clear;
JSON := SO(Memo1.Text);
  Log('RussianPost info: ');
  Log('Status: '+JSON.S['Status']);
  Log('BarCode: '+JSON.O['Item'].S['Barcode']);
  Log('AddressFrom: '+JSON.O['Item'].S['AddressFrom']);
  if JSON.O['Item'].S['ComplexItem']='null' then begin
   Log('ComplexItem: -');
  end else
  Log('ComplexItem: '+JSON.O['Item'].S['ComplexItem']);
  Log('MailRank: '+JSON.O['Item'].S['MailRank']);
  Log('PostMark: '+JSON.O['Item'].S['PostMark']);
  Log('Sender: '+JSON.O['Item'].S['Sender']);
  Log('Recipient: '+JSON.O['Item'].S['Recipient']);
  JsonArray:=JSON.A['Operations'];
  for i:=0 to JsonArray.Length -1 do
  begin
  Log('<tr>');
  Log('Name: '+JsonArray.O[i].S['Name']);
  Log('Date: '+JsonArray.O[i].S['Date']);
  Log('PostOfficeZIP: '+JsonArray.O[i].S['PostOfficeZIP']);
  Log('PostOffice: '+JsonArray.O[i].S['PostOffice']);
  Log('Attribute: '+JsonArray.O[i].S['Attribute']);
  Log('Weight: '+JsonArray.O[i].S['Weight']);
  Log('Value: '+JsonArray.O[i].S['Value']);
  Log('Payment: '+JsonArray.O[i].S['Payment']);
  Log('AddressToZIP: '+JsonArray.O[i].S['AddressToZIP']);
  Log('AddressTo: '+JsonArray.O[i].S['AddressTo']);
  Log('</tr>');
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Clear;
memo1.Lines.LoadFromFile('json.txt');
end;

procedure TForm1.log(s:string);
begin
  ListBox1.Items.Add(s)
end;

[Smagulov85]

Не стал новую тему создавать! как декодировать JSON с UNICODE использую SuperObject

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

Он это сам делает, на автомате.