Обвертка для JSON Parser

@QVO · Регистрация: 26.10.2010

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

Здравствуйте форумчане.

Появилась необходимость работать с JSON данными в среде С++ Builder Xe.
Пользуюсь стандартной библиотекой DBXJSON, но код выходит сильно громоздким пока доберусь до нужных данных. И хотелось бы сделать обвертку для этой библиотеке.

Простой пример данных

Кликните здесь для просмотра всего текста

JavaScript
1
2
3
4
5
6
7
8
9
10
11
12
13
{
    "a":"value1",
    "b":"value2", 
    "c" : 
    { 
        "name" : "Вася Пупкин",
        "famaly" :      
        {
            "name1":"Иван Пупкин",
            "name2":"Светала Пупкина"
        }
    }
}

На данный момент я выбираю данные по имени так:

Кликните здесь для просмотра всего текста

Функции:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
TJSONPair* OnBehalfJSONPair(UnicodeString Source, UnicodeString Name)
{
    TJSONObject* JSONObject = dynamic_cast<TJSONObject*>(TJSONObject::ParseJSONValue(Source));
    TJSONPair* JSONPair = JSONObject->Get(Name);
    return JSONPair;
}
 
TJSONPair* OnBehalfJSONPair(TJSONPair* JSONPairSource, UnicodeString Name)
{
    TJSONObject* JSONObject = dynamic_cast<TJSONObject*>(JSONPairSource->JsonValue);
    TJSONPair* JSONPair = JSONObject->Get(Name);
    return JSONPair;
}

Вызов функции:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
TJSONPair* JSONPair;
// беру объект по именем "с"
JSONPair = OnBehalfJSONPair(Memo1->Text, "c");
// беру объект по именем "famaly"
JSONPair = OnBehalfJSONPair(JSONPair, "famaly");
 
// вывожу его содержимое в мемо
TJSONObject* JSONObject = dynamic_cast<TJSONObject*>(JSONPair->JsonValue);
for (int j = 0; j < JSONObject->Size(); j++)
{
    TJSONPair* JSONPair = JSONObject->Get(j);
    Memo2->Lines->Add(JSONPair->JsonString->Value() + L" : "  +JSONPair->JsonValue->Value());
}

Хотелось бы так:

C++
1
2
3
TJSONObject* JSONObject;
JSONObject = dynamic_cast<TJSONObject*>(TJSONObject::ParseJSONValue(Memo1->Text));
Memo2->Lines->Add(JSONObject->Value("c")->Value("famaly")->Value("name1")); // => Иван Пупкин

C++
1
2
3
4
TJSONObject* JSONObject;
JSONObject = dynamic_cast<TJSONObject*>(TJSONObject::ParseJSONValue(Memo1->Text));
Memo2->Lines->Add(JSONObject->Value("c")->Value("famaly")->Value(0)); // => Иван Пупкин
Memo2->Lines->Add(JSONObject->Value("c")->Value("famaly")->Value(1)); // => Светала Пупкина

OOP я уже подзабыл, подскажите пожалуйста, как реализовать обвертку с таким функционалом.

Добавлено через 22 часа 11 минут
Актуально

@BRcr · 12.03.2014, 19:09

Это делается легко, в основном просто запихиванием того, что уже есть в интерфейс-класс. Только вот попытка малость напрячь мозг и разобраться в иерархии этих объектов и пар на данный момент провалилась... попозже в более адекватном состоянии накидаю.

@QVO · 12.03.2014, 19:58 **[ТС]**

Код не рабочий, т.к. ООП забыл. Кто-то может подкорректировать?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
class A
{
    public:
        TJSONObject* JSONObject;
        TJSONArray* JSONArray;
        TJSONValue* JSONValue;
        TJSONPair* JSONPair;
 
        A(UnicodeString Source)
        {
            JSONObject = dynamic_cast<TJSONObject*>(TJSONObject::ParseJSONValue(Source));
        }
 
        A(TJSONPair* Source)
        {
            JSONObject = dynamic_cast<TJSONObject*>(Source->JsonValue);
        }
 
        A n_obj(UnicodeString Name)
        {
            A *retVal = new A(JSONPair);
            retVal->JSONPair = retVal->JSONObject->Get(Name);
 
            return retVal->JSONPair;
        }
};

Вызов

C++
1
2
A *a = new A(Memo1->Text);
Memo2->Text = a->n_obj("c").n_obj("famaly").JSONPair->JsonString->Value();

Добавлено через 44 минуты
BRcr, сделал так, но хотелось бы посмотреть вашу реализацию!

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
class B
{
    public:
        TJSONPair* JSONPair;
        TJSONObject* JSONObject;
        UnicodeString Source;
 
        B(UnicodeString Source)
        {
            this->Source = Source;
        }
 
        UnicodeString On(UnicodeString Name)
        {
            TStringList* list = new TStringList;
 
            list->Delimiter = '-';
            list->DelimitedText = Name;
 
            JSONObject = dynamic_cast<TJSONObject*>(TJSONObject::ParseJSONValue(Source));
            for ( int i = 0; i < list->Count; i++ )
            {
                JSONPair = JSONObject->Get(list->Strings[i]);
                JSONObject = dynamic_cast<TJSONObject*>(JSONPair->JsonValue);
            }
            delete list;
 
            return JSONPair->JsonString->Value() + L" : "  +JSONPair->JsonValue->Value();
        }
};

Вызов

C++
1
2
B *b = new B(Memo1->Text);
Memo2->Text = b->On("c-name"); // => name : Вася Пупкин

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@BRcr 4043 / 2333 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	12.03.2014, 19:09
	Это делается легко, в основном просто запихиванием того, что уже есть в интерфейс-класс. Только вот попытка малость напрячь мозг и разобраться в иерархии этих объектов и пар на данный момент провалилась... попозже в более адекватном состоянии накидаю. 1