VPF::какой Json parser испоьзовать для данной стр-ы?

halfhope

Дата 28.4.2011, 00:05 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 31.5.2010

Репутация: нет
Всего: нет

Код


{"response":[
    { 
    "uid":482036,
    "first_name":"Евгений",
    "last_name":"Буянов",
    "lists":[1]
  },{
    "uid":482036,
    "first_name":"Евгений",
    "last_name":"Буянов"
    "lists":[1,2]
  }
  ]}

Это список пользователей сайта, с помощью какого парсера можно получить lists, first_name исходя из данной стр-ры json? Я смотрел примеры к Superobject(json) и ulkJSON, но не разобрался... Если не трудно, покажите на моем примере.

Keeper89

Дата 28.4.2011, 00:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Цитата(halfhope @ 28.4.2011, 00:05

)

Я смотрел примеры к Superobject(json) и ulkJSON, но не разобрался

А в чем здесь неясности?

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

superVad

Дата 28.4.2011, 10:58 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 735
Регистрация: 6.4.2006
Где: Черкассы, Украина

Репутация: 4
Всего: 15

superobject - так себе название для класа.

halfhope

Дата 28.4.2011, 14:43 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 31.5.2010

Репутация: нет
Всего: нет

Я почитал, пробовал, но е получается у меня, я не могу понять, как он работает...

halfhope

Дата 28.4.2011, 15:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 57
Регистрация: 31.5.2010

Репутация: нет
Всего: нет

Все, понял как работает superobject:

Код


var
  root: ISuperObject;
  User: TUser;
  json: ISuperObject;
  obj: ISuperObject;
  Text: string;
begin
  Text := 'та структура, которая выше';
  root := SO(Text);
  json := root['response'];
  if Assigned(json) and (json.IsType(stArray)) then
  begin
    if not (json.AsArray[0].IsType(stObject)) then
      json.AsArray.Delete(0);
    for obj in json do
    begin
      User := UserList.UID[obj.I['uid']];
    end;
  end;
end;

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »