JSON и DBXJSON (Delphi XE3)

[Lardes]

Уважаемые специалисты, прошу вашей помощи тыкнуть в меня достойной ссылкой, или же книгой по голове, потому что этот вопрос меня уже конкретно достал..

Что необходимо?

{"response":
[
202539,

{"aid":102281694,
"owner_id":34715501,
"artist":"KoRN",
"title":"Get Up (Skrillex's Director's Cut)",
"duration":241,
"url":"http:\/\/cs5088.vk.me\/u34715501\/audios\/19e68e41aefd.mp3",
"lyrics_id":"10255769"
},
]
}

Из этого вытащить aid, перекопал кучу мануалов, но так и не пойму как правильно сделать парсинг..

Хотелось сделать "штатными" средствами, то есть использовать TJSONObject из юнита Data.DBXJSON

[bakanaev]

Собственно в чем проблема ?

Из этого вытащить aid,

uses StrUtils
.......

html:=IdHTTP.GET('ссылка');
aid:=Copy(  html,  pos('"aid":',html)+6,  PosEx(',',html,pos('"aid":',html)) - pos('"aid":',html) -6);

[Lardes]

bakanaev, спасибо за предложение, но это далеко не то, что хотелось. Это только маленький кусочек JSON, а этих aid там 200 шт. Стандартный парсинг - можно конечно, но лучше делать это через TJSONObject .

Вот что собственно нарыл:

var
  JSONObject: TJSONObject;
  JSONResponse: TJSONPair;
  JSONNumber: TJSONArray;
  I: Integer;
begin
  JSONObject := TJSONObject.ParseJSONValue(AResponse) as TJSONObject;
  try
    if Assigned(JSONObject) then
    begin
      JSONResponse := JSONObject.Get('response');
      JSONNumber := JSONResponse.JsonValue as TJSONArray;
      if JSONNumber.Size > 0 then
      begin
        if JSONNumber.Get(0) is TJSONNumber then JSONNumber.Remove(0);
        for I := 0 to JSONNumber.Size - 1 do
        begin
          ShowMessage(JSONNumber.Get(I).ToString);
        end;
      end;
    end;
  finally
    FreeAndNil(JSONObject);
  end;

Показывает участок JSON кода:

{"aid":102281694,
"owner_id":34715501,
"artist":"KoRN",
"title":"Get Up (Skrillex's Director's Cut)",
"duration":241,
"url":"http:\/\/cs5088.vk.me\/u34715501\/audios\/19e68e41aefd.mp3",
"lyrics_id":"10255769"
}

А как загнать эти значения в массив догнать не могу, хоть убей

[Аватар]

http://www.webdelphi.ru/2011/10/rabo...lphi-2010-xe2/

ADD

Без проверок с привязкой к конкретной структуре

var JSONObject: TJSONObject;
    JSONArray: TJSONArray;
    i: Integer;
begin
  JSONObject:=TJSONObject.ParseJSONValue(Memo1.Text) as TJSONObject;
  JSONArray:=JSONObject.Get(0).JsonValue as TJSONArray;
  for i:=1 to JSONArray.Size-1 do ListBox1.Items.Add((JSONArray.Get(i) as TJSONObject).Get('aid').JsonValue.Value);
  JSONObject.Free;
end;