JSON [XE7]

[ZuBy]

Добрый день!

uses System.JSON {Delphi XE7}

Код записи в JSON массив дался легко

var
  I: Integer;
  FileName: string;
  JS: TStringList;

  JSONA: TJSONArray;
  JSONV: TJSONObject;
begin
  { сохранение в JSON структуру }
  JS := TStringList.Create;
  try
    FileName := 'c:\testjson.txt'; // TPath.GetDocumentsPath + PathDelim + Block.cur + '.json';

    JSONA := TJSONArray.Create;

    { прочесываем ListView }
    for I := 0 to ListView1.Items.Count - 1 do
    begin
      with ListView1.Items[I] do
      begin
        { создаем экземпляр объекта }
        JSONV := TJSONObject.Create;
        JSONV.AddPair('Время', Caption);
        JSONV.AddPair('Валюта', subitems[0]);
        JSONV.AddPair('Важность', subitems[1]);
        JSONV.AddPair('Событие', subitems[2]);
        JSONV.AddPair('Факт.', subitems[3]);
        JSONV.AddPair('Пред.', subitems[4]);

        { добавляем в массив объектов }
        JSONA.AddElement(JSONV);
      end;
    end;

    { сохраняем JSON структуру в текст }
    JS.Text := JSONA.ToJSON;
  finally
    { сохраняем текст в файл }
    JS.SaveToFile(FileName, TEncoding.UTF8);
    FreeAndNil(JSONA);
    FreeAndNil(JS);
  end;
end;

а вот чтение не получается, в чем ошибка?

var
  I: Integer;
  FileName: string;
  JS: TStringList;

  JSON: TJSONObject;
  JSONA: TJSONArray;
  JSONV: TJSONObject;
begin
  { сохранение в JSON структуру }
  JS := TStringList.Create;
  try
    FileName := 'c:\testjson.txt'; // TPath.GetDocumentsPath + PathDelim + Block.cur + '.json';

    if FileExists(FileName) then
    begin
      JS.LoadFromFile(FileName, TEncoding.UTF8);

      { Тут -- Invalid class typecast -- }
      try
        JSON := TJSONObject.ParseJSONValue(TEncoding.UTF8.GetBytes(JS.Text), 0) as TJSONObject;
      except
        ShowMessage('JSON Error!');
      end;

    end;
...

смысл таков, загрузить уже имеющиеся данные и добавить новых в TJSONArray

[Аватар]

Насколько помню выгружать нужно не TJSONArray, а TJSONObject, в который этот самый массив и засунуть

[ZuBy]

тогда вопрос, как засунуть? и в чем разница?
если json структура правильная, читается онлайн парсерами

[Аватар]

Засунуть как обычно JSONObject.AddPair('Array',JSONArra y);
Так потом нормально прочитается. В чем разница? Не совсем в курсе, полагаю что такой файл должен быть все таки {...}, а не [...] как при выгрузке массива
Ну и массив это не объект, а налицо попытка методом объекта его парсить

[ZuBy]

разница действительно есть, спасибо вам за помощь!

    { Преобразовываем в JSON Object }
    JSON := TJSONObject.Create;
    JSON.AddPair('Array', JSONArr);

    { сохранение в файл }
    with TStringList.Create do
    begin
      Text := JSON.ToJSON;
      SaveToFile(FileName);
      Free;
    end;

только при выполнении этого кода вылетает Invalid pointer operation.
на строчке

JSON.AddPair('Array', JSONArr);

как этот массив затолкать в JSON?

[Аватар]

У меня нет XE7. Для XE2 это работает, ну и StringList.Text:=JSONObject.ToStrin g;

[ZuBy]

сохранение то получилось, но ошибка всё равно выскакивает

разница между ToString и ToJSON только в размере файла

ToString
{"Array":[{"Время":"07:30","Валюта":"CNY","Ва жность":"Умеренная волатильность","Событие":"Индекс потребительских цен Китая (Ежемесячный) (окт)","Пред.":"0,5%"},

ToJSON
{"Array":[{"\u0412\u0440\u0435\u043C\u044F":" 07:30","\u0412\u0430\u043B\u044E\u0 442\u0430":"CNY","\u0412\u0430\u043 6\u043D\u043E\u0441\u0442\u044C":"\ u0423\u043C\u0435\u0440\u0435\u043D \u043D\u0430\u044F \u0432\u043E\u043B\u0430\u0442\u043 8\u043B\u044C\u043D\u043E\u0441\u04 42\u044C","\u0421\u043E\u0431\u044B \u0442\u0438\u0435":"\u0418\u043D\u 0434\u0435\u043A\u0441 \u043F\u043E\u0442\u0440\u0435\u043 1\u0438\u0442\u0435\u043B\u044C\u04 41\u043A\u0438\u0445 \u0446\u0435\u043D \u041A\u0438\u0442\u0430\u044F (\u0415\u0436\u0435\u043C\u0435\u04 41\u044F\u0447\u043D\u044B\u0439) (\u043E\u043A\u0442)","\u041F\u0440 \u0435\u0434.":"0,5%"},

на читаемость структуры это не влияет

[ZuBy]

нашел ошибку

  finally
    // FreeAndNil(JSONArr);
    FreeAndNil(JSON);
  end;

Аватар спасибо!

[Аватар]

Для XE
http://www.webdelphi.ru/2011/10/rabo...lphi-2010-xe2/