[Tech N9ne]

получаю с апи вк ответ в формате json
надо вытащить некоторые значения в переменные.

сейчас установлен superobject
нашёл пример на этом же форуме, но в переменную ничего не записывается.

Код:

uses ..., superobject
....
var
Answer: ISuperObject
...
  Answer:= TSuperObject.ParseStream(myHT.Document,False);
     msg:=Answer.AsObject.S['title'];

строчку

Код:

Answer:= TSuperObject.ParseStream(myHT.Document,False);

заменил на

Код:

Answer:= TSuperObject.ParseFile(ExtractFilePath(ParamStr(0))+'text.ini',False);

в text.ini лежит json полученный с вк.

Код:

msg:=Answer.AsObject.S['title']
showmessage('msg');

в msg пусто.


паРсить* ))) в названии темы ошибочка)

[Tech N9ne]

http://www.delphisources.ru/forum/sh...43&postcount=5
посмотрел еще 1 вариант, попробовал

Код:

 

var JSON:ISuperObject;  STR: string;
begin
 JSON := SO(sMemo1.Text); // в мемо ответ от вк в формате json
  STR:=JSON.S['peer_id'];
  ShowMessage(STR);
end;

результат тот же, окошко showmessage появляется пустым) тобиш в переменной STR пусто

ps delphi7, win7

[Tech N9ne]

Ух и долго же вы отвечаете)))
решил проблему. опишу, может кому пригодится из начинающих))

delphi 7 + SuperObject

короче нашёл такой сайт, который показывает дерево json.
и уже по нему можно понять, какой именно путь будет
http://jsonviewer.stack.hu
если это объект {} - то в delphi это .O['']
если массив [] - .A['']
перейти к нулевой ячейке массива - .O[0]
текст - .S['']

на сайте, что я привёл выше, копируете туда свой ответ json.
и делаете.

PHP код:

{"response":{"count":4,"items":[{"conversation":{"peer":{"id":46780021,"type":"user","local_id":46780021},"in_read":143911,"out_read":143912,"last_message_id":143912,"unread_count":1,"can_write":{"allowed":true}},"last_message":{"date":1538843837,"from_id":46780021,"id":143912,"out":0,"peer_id":46780021,"text":"ы","conversation_message_id":13879,"fwd_messages":[],"important":false,"random_id":0,"attachments":[],"is_hidden":false}},
{"conversation":{"peer":{"id":438520578,"type":"user","local_id":438520578},"in_read":143894,"out_read":143458,"last_message_id":143894,"can_write":{"allowed":true}},"last_message":{"date":1538621816,"from_id":80472368,"id":143894,"out":1,"peer_id":438520578,"text":"ццццццццц","conversation_message_id":7,"fwd_messages":[],"important":false,"random_id":22733163,"attachments":[],"is_hidden":false}},{"conversation":{"peer":{"id":3483989,"type":"user","local_id":3483989},"in_read":143892,"out_read":143892,"last_message_id":143892,"can_write":{"allowed":true}},"last_message":{"date":1538596257,"from_id":3483989,"id":143892,"out":0,"peer_id":3483989,"text":"все одеваюсь и выхожу","conversation_message_id":7935,"fwd_messages":[],"important":false,"random_id":0,"attachments":[],"is_hidden":false}},{"conversation":{"peer":{"id":80472368,"type":"user","local_id":80472368},"in_read":142884,"out_read":142884,"last_message_id":142884,"can_write":{"allowed":true}},"last_message":{"date":1530311338,"from_id":80472368,"id":142884,"out":1,"peer_id":80472368,"text":"$00DCDBDA","conversation_message_id":21,"fwd_messages":[],"important":false,"random_id":22732673,"attachments":[],"is_hidden":false}}],"unread_count":1}} 


допустим я хочу получить айди из response-items-conversation-peer-id :

Код:

 var SJson:string;
{......}
{в переменной SJson находится Json}
ShowMessage(SO(SJson).o['response'].A['items'].O[0].O['conversation'].O['peer'].S['id']);

описал подробно как мог, для таких же downов как я ))))