Блог

Я не смог получить определенное значение JSON, используя TJSONObject , я получаю ошибку Access violation at address xxxxxxxxx .

У меня проблема с получением желаемого значения с использованием его имени ключа из файла JSON, в настоящее время я использую TRESTClient , TRESTRequest , TRESTResponse для получения данных JSON из Интернета, я использовал тот же URL-адрес JSON с помощью Javascript и работает нормально, но в C Builder этого не происходит, он просто показывает мне ошибку Access violation at address xxxxxxxxx blablabla , чтопроисходит, когда я пытаюсь получить определенное значение JSON, используя его имя, например, например: "name": "sparky" , но когда я получаю полный файл JSON, он завершается успешно без ошибок.

Код:

 TJSONObject *JSONObject = new TJSONObject();

__try
{
    RESTClient1->BaseURL = "https://learnwebcode.github.io/json-example/animals-1.json";
    RESTRequest1->Execute();
    JSONObject = dynamic_cast<TJSONObject*>( TJSONObject::ParseJSONValue(RESTResponse1->JSONText) ) ;
    TJSONPair *pair = JSONObject->Get("name");
    Memo1->Text = pair->JsonValue->ToString();

}
__finally
{
    delete JSONObject;
}
  

ОБНОВЛЕНИЕ: это файл JSON, из которого я хочу получить значения.

 [
    {
    "name":"Meowsy",
    "species":"cat",
    "foods":
    {
      "likes":
      [
        "tuna",
        "catnip"
      ]
,
      "dislikes":
      [
        "ham",
        "zucchini"
      ]
    }
  }
,

  {
    "name":"Barky",
    "species":"dog",
    "foods":
    {
      "likes":
      [
        "bones",
        "carrots"
      ]
,
      "dislikes":
      [
        "tuna"
      ]
    }
  }
,

  {
    "name":"Purrpaws",
    "species":"cat",
    "foods":
    {
      "likes":
      [
        "mice"
      ]
,
      "dislikes":
      [
        "cookies"
      ]
    }
  }
]
  

Показанный вами JSON представляет собой МАССИВ ОБЪЕКТОВ, а не ОДИН ОБЪЕКТ, как предполагает ваш код. Таким TJSONObject::ParseJSONValue() TJSONArray образом, вместо a будет возвращено a TJSONObject , и поэтому ваше утверждение в комментариях о том, что «JSONObject является действительным», не может быть истинным, поскольку dynamic_cast<TJSONObject*> оно завершится ошибкой и вернет NULL, который ваш код не проверяет. Вы не показали ПОЛНОЕ сообщение об ошибке, но если оно говорит «чтение адреса 00000000», это хороший признак того, что осуществляется доступ к нулевому указателю.

Кроме того, TJSONObject::Get() устарело. Чтобы получить значение по имени, используйте TJSONObject::GetValue() вместо.

Кроме того, TRESTResponse можно проанализировать JSON для вас, если вы используете TRESTResponse::JSONValue свойство вместо TRESTResponse::JSONText свойства.

Кроме того, вы пропускаете TJSONObject то, что выделяете, если ваш код скомпилирован с использованием одного из компиляторов C , не основанных на ARC.

С учетом сказанного, попробуйте следующее:

 RESTClient1->BaseURL = "https://learnwebcode.github.io/json-example/animals-1.json";
RESTRequest1->Execute();

Memo1->Clear();

TJSONValue *JSONValue = RESTResponse1->JSONValue;
if (JSONValue)
{
    if (TJSONArray *JSONArray = dynamic_cast<TJSONArray*>(JSONValue))
    {
        for (int i = 0; i < JSONArray->Count;   i)
        {
            TJSONObject *JSONObject = dynamic_cast<TJSONObject*>(JSONArray->Items[i]);
            if (JSONObject)
            {
                TJSONValue *JSONObjectName = JSONObject->GetValue("name");
                if (JSONObjectName)
                    Memo1->Lines->Add(JSONObjectName->Value());
            }
        }
    }
    else if (TJSONObject JSONObject = dynamic_cast<TJSONObject*>(JSONValue))
    {
        TJSONValue *JSONObjectName = JSONObject->GetValue("name");
        if (JSONObjectName)
            Memo1->Text = JSONObjectName->Value();
    }
    else
    {
        Memo1->Text = "Ignoring unsupported JSON value type";
    }
}
else
{
    Memo1->Text = "JSON not parsed";
}