Получения списка элементов массива при парсинге JSON на XE4

@krv · Регистрация: 10.07.2014

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

Пытаюсь пропарсить JSON
сам он такого вида:

JSON

{"text_unique":"0.00","result_json":"{\"date_check\":\"30.01.2015 13:58:52\",\"unique\":0,\"urls\":[{\"url\":\"http:\\\/\\\/rss1aggregator.ru\\\/stream\\\/ithappens_ru\\\/\",\"plagiat\":100},{\"url\":\"http:\\\/\\\/ithappens.me\\\/story\\\/13036\",\"plagiat\":100},{\"url\":\"http:\\\/\\\/ithappens.me\\\/\",\"plagiat\":100},{\"url\":\"http:\\\/\\\/blevada.ru\\\/item\\\/8785284\",\"plagiat\":100},{\"url\":\"http:\\\/\\\/www.umori.li\\\/ithappens.html\",\"plagiat\":86.27}]}","unique":"0.00"}

Использую немного доработанный класс-обертку, найденную здесь на форуме:

C++

class JS
{
    public:
        TJSONPair* JSONPair;
        TJSONObject* JSONObject;
        UnicodeString Source;
 
        JS(UnicodeString Source)
        {
            this->Source = Source;
        }
 
        UnicodeString On(UnicodeString Name)
        {
            TStringList* list = new TStringList;
            try {
 
              list->Delimiter = '-';
              list->DelimitedText = Name;
              JSONObject = dynamic_cast<TJSONObject*>(TJSONObject::ParseJSONValue(Source));
              if (JSONObject==NULL) {
                return "";
              }
              for ( int i = 0; i < list->Count; i++ )
              {   String ls = list->Strings[i];
                  JSONPair = JSONObject->Get(ls);
                  if (JSONPair==NULL) {
                    continue;
                  }
                  String sPair = JSONPair->JsonValue->Value();
                  JSONObject = dynamic_cast<TJSONObject*>(TJSONObject::ParseJSONValue(sPair));
                  if (JSONObject==NULL) {
                    continue;
                  }
              }
            } __finally {
              delete list;
            }
            if (JSONPair==NULL)
              return "";
            return JSONPair->JsonValue->Value();
        }
};

Вызов:

C++

  TStringList *sl = new TStringList();
  sl->LoadFromFile("1.txt");//здесь для теста текст самого JSON
  String s = sl->Text;
 
  String ss1 = GetJSON(s,"text_uid");// пусто ибо нет такого поля
  String ss2 = GetJSON(s,"unique"); // "0.00" - корректно
  String ss4 = GetJSON(s,"result_json-unique"); - "0" - тоже корректно

Данный класс позволяет получать результат с вложенными данными
Но я не могу получить массив "urls" содержащийся в подJSON result_json
В идеале бы получить вообще список всех элементов данного массива по имени
Как туда добраться?
Если есть решение.. можно без использования этого класса.
Просто цепочкой вызовов JSONObject-JSONArray - запутался чегойто

@volvo · 30.01.2015, 18:08

Ну, по логике - вот так должно быть:

C++

    TStringList *sl = new TStringList();
    sl->LoadFromFile("1.txt");
    String s = sl->Text;
 
    std::auto_ptr<TJSONObject> Json(static_cast<TJSONObject*>(TJSONObject::ParseJSONValue(s)));
    TJSONObject *obj = static_cast<TJSONObject*>(Json->Get("result_json")->JsonValue);
 
    // теперь получаем из строки, хранящейся в result_json сам json, и дальше работаем с ним
    std::auto_ptr<TJSONObject> InnerJson(static_cast<TJSONObject*>(TJSONObject::ParseJSONValue(obj->Value())));
    TJSONArray *Jarr = static_cast<TJSONArray*>(InnerJson->Get("urls")->JsonValue);
    for (int i = 0; i < Jarr->Size(); i++)
    {
        TJSONObject *jItem = static_cast<TJSONObject*>(Jarr->Get(i));
        String url = jItem->Get("url")->JsonValue->Value();
        Memo1->Lines->Add(url); // вывести для теста все url-ы в memo
    }

, проверяй...

	30.01.2015, 18:08