|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Научите пасить JSON
получаю с апи вк ответ в формате 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); Код:
msg:=Answer.AsObject.S['title'] showmessage('msg'); паРсить* ))) в названии темы ошибочка) |
#2
|
|||
|
|||
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 |
#3
|
|||
|
|||
Ух и долго же вы отвечаете)))
решил проблему. опишу, может кому пригодится из начинающих)) delphi 7 + SuperObject короче нашёл такой сайт, который показывает дерево json. и уже по нему можно понять, какой именно путь будет http://jsonviewer.stack.hu если это объект {} - то в delphi это .O[''] если массив [] - .A[''] перейти к нулевой ячейке массива - .O[0] текст - .S[''] на сайте, что я привёл выше, копируете туда свой ответ json. и делаете. PHP код:
Код:
var SJson:string; {......} {в переменной SJson находится Json} ShowMessage(SO(SJson).o['response'].A['items'].O[0].O['conversation'].O['peer'].S['id']); описал подробно как мог, для таких же downов как я )))) Последний раз редактировалось Tech N9ne, 09.10.2018 в 02:18. |
Этот пользователь сказал Спасибо Tech N9ne за это полезное сообщение: | ||
Gareth (12.02.2022)
|