Json вконтакте delphi

@HREST · Регистрация: 31.05.2016

Author24 — интернет-сервис помощи студентам

Всем пример
Имею пакет x-superobject-master
XSuperJSON.pas XSuperObject.pas

Пытаюсь распарсить массив json

Такой json я парсю нормально,вытаскиваю всё что мне нужно

JSON

1	{"response":[{"id":372321383,"first_name":"Привет","last_name":"Мир","bdate":"3.1.1000"}]}

Но при попытке распарсить такой json

JSON

{"response":{"count":79,"items":[{"id":456239032,"owner_id":-26017268,"artist":"1. MiyaGi & Эндшпиль feat. Симптом(НЖН)","title":"Люби меня (Stone Heng prod.)","duration":318,"date":1477146297,"url":"","album_id":79774970,"genre_id":18},{"id":456239033,"owner_id":-26017268,"artist":"2. MiyaGi & Эндшпиль ","title":"Двигайся (Weet beat prod.)","duration":231,"date":1477146308,"url":"","album_id":79774970,"genre_id":18},{"id":456239034,"owner_id":-26017268,"artist":" 3. MiyaGi & Эндшпиль","title":"ФАЯ (Stone Heng prod.)","duration":240,"date":1477146318,"url":"","album_id":79774970,"genre_id":18},{"id":456239035,"owner_id":-26017268,"artist":"4. MiyaGi & Эндшпиль feat. Amigo ","title":"Самая (Stone Heng prod.)","duration":291,"date":1477146328,"url":"","album_id":79774970,"genre_id":18},{"id":456239036,"owner_id":-26017268,"artist":"5. MiyaGi & Эндшпиль feat. Drew ","title":"I CAN FLY (Alchimi prod.)","duration":267,"date":1477146337,"url":"","album_id":79774970,"genre_id":18},{"id":456239037,"owner_id":-26017268,"artist":"6. MiyaGi & Эндшпиль feat. Fuze (KREC) - Нирвана (Stone Heng prod.)","title":"Нирвана (Stone Heng prod.)","duration":273,"date":1477146349,"url":"","album_id":79774970,"genre_id":18},{"id":456239038,"owner_id":-26017268,"artist":"7. MiyaGi & Эндшпиль feat. Brick Bazuka","title":"Бошка (Ston Heng prod.)","duration":300,"date":1477146358,"url":"","album_id":79774970,"genre_id":18},{"id":456239031,"owner_id":-26017268,"artist":"MiyaGi & Эндшпиль feat. Рем Дигга","title":"I Got Love (Sad Soul prod.) (BONUS track)","duration":276,"date":1477146282,"url":"","genre_id":18},{"id":456239022,"owner_id":-26017268,"artist":"1. MiyaGi & Эндшпиль","title":"HAJIME (INTRO) (Alchimi prod.)","duration":211,"date":1477145962,"url":"","album_id":79774883,"genre_id":3},{"id":456239023,"owner_id":-26017268,"artist":"2. MiyaGi & Эндшпиль","title":"OneLove (NAUE prod.)","duration":210,"date":1477146031,"url":"","album_id":79774883,"genre_id":3},{"id":456239024,"owner_id":-26017268,"artist":"3. MiyaGi & Эндшпиль","title":"God Bless (Коля Маню prod.)","duration":208,"date":1477146054,"url":"","album_id":79774883,"genre_id":3},{"id":456239025,"owner_id":-26017268,"artist":"4. MiyaGi & Эндшпиль","title":"Санавабич (Mona prod.)","duration":185,"date":1477146113,"url":"","album_id":79774883,"genre_id":3},{"id":456239026,"owner_id":-26017268,"artist":"5. MiyaGi & Эндшпиль","title":"Половина моя (Weet beat prod.)","duration":240,"date":1477146127,"url":"","album_id":79774883,"genre_id":3},{"id":456239027,"owner_id":-26017268,"artist":"6. MiyaGi & Эндшпиль ft. 9 грамм ","title":"Рапапам (Ston Heng prod.)","duration":334,"date":1477146149,"url":"","album_id":79774883,"genre_id":3},{"id":456239028,"owner_id":-26017268,"artist":"7. MiyaGi & Эндшпиль ","title":"Лабиринты (medio prod.)","duration":194,"date":1477146174,"url":"","album_id":79774883,"genre_id":3},{"id":456239029,"owner_id":-26017268,"artist":"8. MiyaGi & Эндшпиль ft. MAXIFAM","title":" Без обид (Grey Killer prod.)","duration":258,"date":1477146191,"url":"","album_id":79774883,"genre_id":3},{"id":456239030,"owner_id":-26017268,"artist":"9. MiyaGi & Эндшпиль","title":" Бэйба судьба (mordbeats prod.)","duration":206,"date":1477146220,"url":"","album_id":79774883,"genre_id":3},{"id":456239021,"owner_id":-26017268,"artist":"MiyaGi & Эндшпиль","title":"GOD BLESS.. (prod. by КОЛЯ МАНЮ) [HAJIME]","duration":208,"date":1457029201,"url":"","genre_id":18},{"id":456239020,"owner_id":-26017268,"artist":"MiyaGi","title":"Сын.. (prod. by BUNCH BEATWORX)","duration":211,"date":1457029186,"url":"","genre_id":18},{"id":456239019,"owner_id":-26017268,"artist":"Эндшпиль & MiyaGi ft. Allj(Элджей)","title":"Музыка (Ston Heng prod.)","duration":291,"date":1457029177,"url":"","genre_id":3},{"id":456239018,"owner_id":-26017268,"artist":"MiyaGi & Эндшпиль  ","title":"Кайф.. (Jerry Clav prod.)","duration":182,"date":1457029166,"url":"","genre_id":18},{"id":456239017,"owner_id":-26017268,"artist":"MiyaGi & Эндшпиль  ","title":"В последний раз.. (а.сова prod.)","duration":226,"date":1457029156,"url":"","genre_id":18},{"id":415321523,"owner_id":-26017268,"artist":"MiyaGi [ Λ S Λ T Λ ] ft. Medecine  ","title":"Вавилон .. ( prod. by Medecine )","duration":206,"date":1447612228,"url":"","genre_id":18},{"id":415321483,"owner_id":-26017268,"artist":"MiyaGi [Λ S Λ T Λ ]","title":"Дизлайк.. (prod. by MADMAYER)","duration":226,"date":1447612219,"url":"","genre_id":18},{"id":415321457,"owner_id":-26017268,"artist":"MiyaGi [Λ S Λ T Λ ] & Эндшпиль","title":"Санавабич (Mona prod.)","duration":185,"date":1447612213,"url":"","genre_id":18},{"id":415321367,"owner_id":-26017268,"artist":"MiyaGi [Λ S Λ T Λ ]","title":"Параллель.. (prod. by 4EU3)","duration":217,"date":1447612198,"url":"","genre_id":18},{"id":415321310,"owner_id":-26017268,"artist":"Эндшпиль & MiyaGi [Λ S Λ T Λ ]","title":"За идею [Grey killer prod.]","duration":232,"date":1447612187,"url":"","genre_id":18},{"id":415321226,"owner_id":-26017268,"artist":"MiyaGi [Λ S Λ T Λ] & Намо Миниган ","title":"Балаган.. (Жирный BeatZzz prod.)","duration":216,"date":1447612172,"url":"","genre_id":18},{"id":415320952,"owner_id":-26017268,"artist":"MiyaGi [Λ S Λ T Λ] ft. Кадим ( Кто ТАМ?) ","title":"До Талого..","duration":227,"date":1447612118,"url":"","genre_id":18},{"id":374554394,"owner_id":-26017268,"artist":"MiyaGi & Намо Миниган  [Λ S Λ T Λ]","title":"БадаБум.. (Жирный BeatZzz prod.)","duration":228,"date":1433868153,"url":"","genre_id":1001},{"id":363328074,"owner_id":-26017268,"artist":"MiyaGi [Λ S Λ T Λ]","title":"Дом.. ( prod by Monk )","duration":197,"date":1429870122,"url":"","genre_id":1001},{"id":363328059,"owner_id":-26017268,"artist":"MiyaGi [Λ S Λ T Λ]","title":"Настырный ..  (Жирный BeatZzz prod.)","duration":193,"date":1429870117,"url":"","genre_id":1001},{"id":363328022,"owner_id":-26017268,"artist":"MiyaGi [Λ S Λ T Λ]","title":"Просто Так.. ( prod by Gorilla Music )","duration":211,"date":1429870105,"url":"","genre_id":1001},{"id":321080699,"owner_id":-26017268,"artist":"MiyaGi [Λ S Λ T Λ]","title":"Нет Войне.. ( prod by Gorilla Music )","duration":215,"date":1415350951,"url":"","genre_id":1001},{"id":311246324,"owner_id":-26017268,"artist":"MiyaGi [Λ S Λ T Λ] ","title":"По уши в тебя влюблен ..( prod by Gorilla Music )","duration":202,"date":1411715203,"url":"","genre_id":1001,"no_search":1},{"id":308701493,"owner_id":-26017268,"artist":"MiyaGi & AmigO [Λ S Λ T Λ] ","title":"Мой Гарлем.. ( prod by Gorilla Music )","duration":209,"date":1410710446,"url":"","genre_id":1001},{"id":306456187,"owner_id":-26017268,"artist":"MiyaGi","title":"Roule ..( Abc On The Drums.)..","duration":198,"date":1409818235,"url":"","genre_id":1001},{"id":305645991,"owner_id":-26017268,"artist":"MiyaGi","title":"Румба.. (prod by Bilderlinghanke)","duration":196,"date":1409433560,"url":"","genre_id":1001},{"id":305645962,"owner_id":-26017268,"artist":"MiyaGi [sHau]","title":"Малибу.. ( Abc On The Drums.)..","duration":247,"date":1409433548,"url":"","genre_id":18},{"id":296453374,"owner_id":-26017268,"artist":"MiyaGi","title":"Комары.. (Жирный BeatZzz Prod.) ","duration":198,"date":1405623966,"url":"","genre_id":1001},{"id":289053992,"owner_id":-26017268,"artist":"MiyaGi [sHau] ","title":"I'm Flying So High..( prod by Gorilla Music ) ","duration":243,"date":1402572883,"url":"","genre_id":1001},{"id":287760396,"owner_id":-26017268,"artist":"MiyaGi [sHau]","title":"Give Me Love...(prod. by Mad One)","duration":194,"date":1402058585,"url":"","genre_id":18},{"id":287760318,"owner_id":-26017268,"artist":"MiyaGi [sHau]","title":"Бонни...","duration":213,"date":1402058563,"url":"","genre_id":18},{"id":287760235,"owner_id":-26017268,"artist":"MiyaGi [sHau] ft. Di ","title":"Hooligan [музло by Abc da smoke beatz]","duration":231,"date":1402058543,"url":"","genre_id":18},{"id":286237062,"owner_id":-26017268,"artist":"MiyaGi [sHau]","title":"Найду...( prod. by Mad One) ","duration":184,"date":1401459762,"url":"","genre_id":1001},{"id":286236991,"owner_id":-26017268,"artist":"SHAU & Илона Тускаева","title":"Знаю..","duration":261,"date":1401459746,"url":"","genre_id":3},{"id":286236651,"owner_id":-26017268,"artist":"Shau, Намо миниган","title":"Витамин..(Dope rec.) ","duration":217,"date":1401459656,"url":"","genre_id":18},{"id":286236580,"owner_id":-26017268,"artist":"MiyaGi [sHau]","title":"Runaway ( prod by Gorilla Music ) ","duration":233,"date":1401459639,"url":"","genre_id":18},{"id":286236394,"owner_id":-26017268,"artist":"Shau (MiyaGi)_Эндшпиль_Намо Миниган","title":"Шалом...","duration":228,"date":1401459592,"url":"","genre_id":3},{"id":286236330,"owner_id":-26017268,"artist":"Miyagi [sHau]","title":"Сумку На ПлеЧо.. (Chicago prod.)  Reigun rec.","duration":191,"date":1401459576,"url":"","genre_id":1001},{"id":286236256,"owner_id":-26017268,"artist":"Эндшпиль , MiyaGi [sHau] , SH Kera , Намо минигаН ","title":"Шуба-Дуба (DOPE rec.)","duration":292,"date":1401459558,"url":"","genre_id":18},{"id":286236182,"owner_id":-26017268,"artist":"Эндшпиль feat. MiyaGi [sHau]","title":"Уже не тот (Dope rec.) (Fomich prod.)","duration":214,"date":1401459540,"url":"","genre_id":18},{"id":286236002,"owner_id":-26017268,"artist":"MiyaGi [sHau]","title":"Грустные Песни.. (Chicago prod.) ","duration":200,"date":1401459495,"url":"","genre_id":1001},{"id":286235838,"owner_id":-26017268,"artist":"MiyaGi [sHau]","title":"Текстура...(Жирный BeatZzz Prod.)..","duration":208,"date":1401459446,"url":"","genre_id":1001},{"id":193819348,"owner_id":-26017268,"artist":"MiyaGi [sHau] ","title":"ТеКилА (prpd. by Mad One) ","duration":220,"date":1361821107,"url":"","genre_id":18},{"id":193275007,"owner_id":-26017268,"artist":"Shau","title":"Gipno","duration":192,"date":1361554179,"url":"","genre_id":18},{"id":193274908,"owner_id":-26017268,"artist":"MiyaGi [sHau]","title":"Give Me Love...(prod. by Mad One)","duration":194,"date":1361554149,"url":"","genre_id":18},{"id":193274847,"owner_id":-26017268,"artist":"Shau, Намо миниган & Эндшпиль","title":"Ветром  (Dope rec.)","duration":233,"date":1361554129,"url":"","genre_id":18},{"id":169806243,"owner_id":-26017268,"artist":"Shau ","title":"Ноты.. ( prod. by Kenny )","duration":192,"date":1348761254,"url":"","lyrics_id":37679910,"genre_id":18},{"id":160704957,"owner_id":-26017268,"artist":"V7 CLUB _ Magnum _ Аполо Матисияхо ft. Shau","title":"Нам снятся сны","duration":198,"date":1342816494,"url":"","lyrics_id":26375619,"genre_id":18},{"id":150594228,"owner_id":-26017268,"artist":"Shau ft_ Аполо Матисияхо_Mr. Midnight_ V7CLUB","title":"Валим..( prod. by Kenny)","duration":209,"date":1336332403,"url":"","lyrics_id":30446516,"genre_id":18},{"id":147719921,"owner_id":-26017268,"artist":"Shau ft Magnum [v7 CLUB]","title":"Взрывай.","duration":184,"date":1334527349,"url":"","genre_id":18},{"id":146089931,"owner_id":-26017268,"artist":"Shau feat Nany","title":"Психоанализ","duration":187,"date":1333543448,"url":"","genre_id":18},{"id":142194728,"owner_id":-26017268,"artist":"Shau ","title":"Без груза ( prod by Kenny) ..","duration":200,"date":1331281030,"url":"","genre_id":18},{"id":142194654,"owner_id":-26017268,"artist":"Shau & Amigo & Макс ","title":" Мечта...( prod. by Kenny)","duration":224,"date":1331281003,"url":"","genre_id":18},{"id":138779911,"owner_id":-26017268,"artist":"Shau ","title":"Музыкант.. ( prod by Kenny)","duration":197,"date":1329226736,"url":"","lyrics_id":69161927,"genre_id":18},{"id":138779856,"owner_id":-26017268,"artist":"Shau ","title":"Я не один... ( prod by Kenny) ","duration":187,"date":1329226713,"url":"","genre_id":18},{"id":128910784,"owner_id":-26017268,"artist":"Shau ft. Di ","title":"Hooligan [музло by Abc da smoke beatz]","duration":231,"date":1322826233,"url":"","genre_id":18},{"id":125558761,"owner_id":-26017268,"artist":"SHAU","title":"Дурман","duration":254,"date":1320394530,"url":"","genre_id":18},{"id":125558715,"owner_id":-26017268,"artist":"A.D. a.k.a. Papa Di feat. Shau ","title":"Переплетая пути ( KeNNy Beatz )","duration":222,"date":1320394499,"url":"","genre_id":18},{"id":124862425,"owner_id":-26017268,"artist":"Shau ft Nany ","title":" Волю небесам..( prod. by KeNNy)","duration":210,"date":1319886445,"url":"","genre_id":18},{"id":120035687,"owner_id":-26017268,"artist":"Shau feat намо миниган","title":"По принципу (prod by Kenny beats)","duration":180,"date":1316198614,"url":"","genre_id":18},{"id":114998584,"owner_id":-26017268,"artist":"Shau feat. Magnum,Midnight Killa,Jah-Far [V7 Club] ","title":"Забей Плотней [музло by Abc da smoke beatz]","duration":257,"date":1312099345,"url":"","genre_id":18},{"id":113008662,"owner_id":-26017268,"artist":"Shau","title":"Алхимик","duration":204,"date":1310288617,"url":"","genre_id":18},{"id":105177516,"owner_id":-26017268,"artist":"Shau & Midnight [V7 Club]","title":"Порция Хопа [prod. by Abc da smoke beatz]","duration":191,"date":1303594770,"url":"","genre_id":18},{"id":104463487,"owner_id":-26017268,"artist":"SHAU (prod ABC Beats)","title":"Отец","duration":197,"date":1302982085,"url":"","genre_id":18},{"id":104463399,"owner_id":-26017268,"artist":"Shau","title":"Не Верю [Prod. by Abc da smoke beatz]","duration":194,"date":1302982032,"url":"","genre_id":18}]}}

он не хочет парсится

парсю таким кодом delphi

Delphi

var
  x,item:ISuperObject;
  ss:TStringStream;
  arr:ISuperArray;
  i: Integer;
begin
  ss:=TStringStream.Create('');
  ss.LoadFromFile(ExtractFilePath(ParamStr(0))+'111.txt');
  x:=TSuperObject.Create(ss.DataString);
  ss.Free;
 
  arr:= x.A['response'];
  for i := 0 to Arr.Length-1 do
  begin
    item:=arr.O[i];
    memo1.Lines.Add(inttostr(item.I['count']));
  end;
end;

код не мой

@krapotkin · 27.10.2016, 14:28

связи между TListBox и TSuperObject нет от слова совсем ...

@HREST · 27.10.2016, 14:33 **[ТС]**

Сообщение от qwertehok

HREST, для такого количества не используйте визуальные компоненты
попробуйте TstringList
я в него 3 гига как-то загрузил

(потом правда память кончилась)

а потом из tstinglist в listbox1? мне всё равно нужно в listbox1 загонять

@qwertehok · 27.10.2016, 14:34

HREST,
потом можно отключить перерисовку и без цикла все загнать - будет быстрее

@HREST · 27.10.2016, 14:41 **[ТС]**

Сообщение от qwertehok

HREST,
потом можно отключить перерисовку и без цикла все загнать - будет быстрее

спасибо за совет, буду думать как лучше сделать

@krapotkin · 27.10.2016, 14:56

ни за что
ListBox - Это интерфейс пользователя
пользователь > 100 строк не должен видеть никогда

@HREST · 27.10.2016, 15:48 **[ТС]**

Сообщение от krapotkin

ни за что
ListBox - Это интерфейс пользователя
пользователь > 100 строк не должен видеть никогда

а если ему нужно видеть > 100 строк, что тогда делать?((((

@krapotkin · 27.10.2016, 19:20

дать 200

но 1000 не давать
стоять насмерть
предъявить труп разработчика

@HREST · 27.10.2016, 23:29 **[ТС]**

Сообщение от krapotkin

дать 200

но 1000 не давать
стоять насмерть
предъявить труп разработчика

да как бы я для себя делаю, Вы меня поставили в тупик.......

@krapotkin 5784 / 4526 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	27.10.2016, 14:28	21
	связи между TListBox и TSuperObject нет от слова совсем ... 0

@HREST 0 / 0 / 0 Регистрация: 31.05.2016 Сообщений: 77
	27.10.2016, 14:33 [ТС]	22
	Сообщение от qwertehok HREST, для такого количества не используйте визуальные компоненты попробуйте TstringList я в него 3 гига как-то загрузил (потом правда память кончилась) а потом из tstinglist в listbox1? мне всё равно нужно в listbox1 загонять 0

@qwertehok 5395 / 4323 / 1060 Регистрация: 29.08.2013 Сообщений: 27,129 Записей в блоге: 3
	27.10.2016, 14:34	23
	HREST, потом можно отключить перерисовку и без цикла все загнать - будет быстрее 1

@HREST 0 / 0 / 0 Регистрация: 31.05.2016 Сообщений: 77
	27.10.2016, 14:41 [ТС]	24
	Сообщение от qwertehok HREST, потом можно отключить перерисовку и без цикла все загнать - будет быстрее спасибо за совет, буду думать как лучше сделать 0

@krapotkin 5784 / 4526 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	27.10.2016, 14:56	25
	ни за что ListBox - Это интерфейс пользователя пользователь > 100 строк не должен видеть никогда 0

@HREST 0 / 0 / 0 Регистрация: 31.05.2016 Сообщений: 77
	27.10.2016, 15:48 [ТС]	26
	Сообщение от krapotkin ни за что ListBox - Это интерфейс пользователя пользователь > 100 строк не должен видеть никогда а если ему нужно видеть > 100 строк, что тогда делать?(((( 0

@krapotkin 5784 / 4526 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	27.10.2016, 19:20	27
	Сообщение было отмечено HREST как решение Решение дать 200 но 1000 не давать стоять насмерть предъявить труп разработчика 1

@HREST 0 / 0 / 0 Регистрация: 31.05.2016 Сообщений: 77
	27.10.2016, 23:29 [ТС]	28
	Сообщение от krapotkin дать 200 но 1000 не давать стоять насмерть предъявить труп разработчика да как бы я для себя делаю, Вы меня поставили в тупик....... 0

Json вконтакте delphi

Решение