Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #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 пусто.


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


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 00:20.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter