Показать сообщение отдельно
  #1  
Старый 08.10.2018, 00:09
Tech N9ne Tech N9ne вне форума
Прохожий
 
Регистрация: 18.05.2018
Сообщения: 31
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Научите пасить 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);
в text.ini лежит json полученный с вк.


Код:
msg:=Answer.AsObject.S['title']
showmessage('msg');
в msg пусто.


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