[CBuilder XE6]Получить значение из JSON?

Question

[mtl]

Доброго времени суток! На нескольких форумах я уже задавал подобный вопрос и пока ответа не получил. Гуглил, но и тут меня ждала неудача :D Всё что угодно: купить ХЕ/первые опыты/delphi, последний, кстати повсеместно и везде). Сам пытался через dynamic_cast и не только, но получал лишь ошибки (да, да и delete с Free делал). Я понимаю, формат лёгкий и парсится легко, но пока хотелось бы увидеть рабочий пример, потом на его основе уже стану разбираться со стандартным классом TJSONObject и буду добавлять/менять функционал своей утилитки.
Собсно сабж: из ответа от API VK мне нужны title, id, owner_id, player

spoiler

{
    "response": {
    "count": 1638,
    "items": [
    {
    "id": 168886508,
    "owner_id": -51189706,
    "title": "Jenga Cat",
    "duration": 83,
    "description": "Еще больше крутых видео: vk.com\/just_vid\nРекомендую!",
    "date": 1401295313,
    "views": 754,
    "comments": 5,
    "photo_130": "http:\/\/cs541206.vk.me\/u2949887\/video\/s_af146ce5.jpg",
    "photo_320": "http:\/\/cs541206.vk.me\/u2949887\/video\/l_1b666cdd.jpg",
    "player": "http:\/\/vk.com\/video_ext.php?oid=-51189706&id=168886508&hash=a89ac9f2208445bf",
    "can_comment": 1,
    "can_repost": 1,
    "likes": {
    "user_likes": 0,
    "count": 35
    },
    "repeat": 0
    }
    ]
    }
    }

Заранее спасибо!
Тем в ВиО куча, но конкретно про CBuilder не видел.

Answer 1

[mtl]

Опять двадцать пять) Если бы для меня это было делом 5 минут, то помощи я бы не просил)
Это касается кода, а не самих объектов, значений и массивов...
Находил я эти статьи т.к. они обычно в первых рядах.

UPD: Нащупал пример:

#include <Data.DBXJSON.hpp>
#include <memory>
...
	std::auto_ptr<TJSONObject> object(static_cast<TJSONObject*>(TJSONObject::ParseJSONValue(Memo1->Lines->Text)));
	TJSONObject* response = static_cast<TJSONObject*>(object->Get("response")->JsonValue);
	TJSONArray* items = static_cast<TJSONArray*>(response->Get("items")->JsonValue);
	TJSONObject* id = static_cast<TJSONObject*>(items->Get(0));
	ShowMessage(id->GetValue("id")->ToString());

и тд...Крутотень) Вроде получилось

Answer 2

[Евгений]

Вот пример на делфи. Переписать в С++ билдере дело 5ти минут.