Перейти к содержанию
Fire Monkey от А до Я

x11

Пользователи
  • Постов

    828
  • Зарегистрирован

  • Посещение

  • Победитель дней

    13

x11 стал победителем дня 1 октября 2019

x11 имел наиболее популярный контент!

2 Подписчика

Информация о x11

  • День рождения 01.01.1978

Информация

  • Пол
    Мужчина
  • Город
    Kharkiv

Посетители профиля

3 662 просмотра профиля
  1. x11

    XSuperObject

    а сам файл на каких-нибудь онлайн сервисах нормально проходит валидацию? может джейсон немного кривоват? Пробуйте другие парсеры. Если у вас Delphi до 10.4.1, то новый TJSONIterator должен отработать быстрее.
  2. x11

    XSuperObject

    попробуйте спросить на sql.ru, ну и не забудьте примеры кода приложить
  3. x11

    XSuperObject

    Ну вот я использовал библиотеку, которая развивается и что из этого вышло? Один и тот же код в разных версиях Дельфи (Rio и Sydney) дает разный результат procedure TForm1.btnReadArrayClick(Sender: TObject); const sJSon = '{"ID":[0,55,true,false], "ID2":[1,60,false,false]}'; var Iterator: TJSONIterator; Reader: TJsonTextReader; TextReader: TStringReader; begin TextReader := TStringReader.Create(sJSon); Reader := TJsonTextReader.Create(TextReader); Iterator := TJSONIterator.Create(Reader); try while Iterator.Next do begin if Iterator.&Type = TJsonToken.StartArray then if Iterator.Recurse then while Iterator.Next do begin Memo1.Lines.Add('Key: ' + Iterator.Key); Memo1.Lines.Add('Index:' + Iterator.Index.ToString); end; end;//while finally FreeAndNil(TextReader); FreeAndNil(Iterator); FreeAndNil(Reader); end; end; Речь, о встроенной в Дельфи джейсон-библиотеке (Readers and Writers JSON Framework), которая поставляется, начиная с Seatle вот здесь есть описание на русском https://webdelphi.ru/2019/03/rabota-s-json-v-delphi-10-3-rio-2/
  4. x11

    XSuperObject

    вроде начинает доходить procedure TForm1.Button1Click(Sender: TObject); const sJSon = '{"ID":[0,55,true,false], "ID2":[1,60,false,false], "ID3":[2,177,false,false]}'; var Arr: ISuperArray; myJSON: ISuperObject; OMember: IMember; i: integer; begin myJSON := SO(sJSon); if myJSON.Count > 0 then begin for OMember in myJSON do if OMember.DataType = dtArray then begin arr := OMember.AsArray; Memo1.Lines.Add(IntToStr(arr.i[0])); Memo1.Lines.Add(IntToStr(arr.i[1])); Memo1.Lines.Add(BoolToStr(arr.B[2])); Memo1.Lines.Add(BoolToStr(arr.B[3])); Memo1.Lines.Add('---'); end; end; end;
  5. x11

    XSuperObject

    Я уже задолбался. Одни говорят, использовать, другие, говорят, не использовать. Я пытался использовать ту, новую встроенную в Дельфи, начиная с версии 10.1 - "JSON Objects Framework" http://docwiki.embarcadero.com/Libraries/Sydney/en/System.JSON.Builders но в Sydney есть проблема и индексами в массивах.
  6. x11

    XSuperObject

    Не могу понять, как пройтись по всем объектам и у каждого объекта по их массивам? Все примеры, которые я видел, привязываются к имени объекта. А если нужно без имени, а если имя и значение нужно получать во время итераций? Спасибо.
  7. на разработку только лишь одной сетки 2,5 года ушло...
  8. Ок, замурчательно. А что там такого в манифесте прописано? Может там указано, что твоё приложение - для Андроид 4? Просто подобные приложения в Маркете не опубликуешь. А какой смысл перехват номеров в постоянно запущенном приложении? Оно же не будет у тебя постоянно на переднем плане, как только ты откроешь другое приложение, Андроид твое приложение через какое-то время прикроет все равно и оно не будет перехватывать номера.
  9. Без сервиса работать не будет. Программа закроется и толку от нее ноль.
  10. Ты мой пример использовал из первого сообщения? На какой версии Дельфи собран проект и на какой версии Андроида запустил? Меня ли что-то в манифесте?
  11. а ты гуглил на тему ошибки? https://www.google.com/search?client=firefox-b-d&q=jar++exited+with+code+1 http://fire-monkey.ru/topic/2975-seattle-android-ошибка-exited-with-code-1/ может у тебя проблема с настройками SDK или версия Явы не та что надо?
  12. Возможно. Вот я писал, что делал проект в Токио. Сам уже и не помню.
  13. Я вряд ли вам помогу, я не знаю, что это за ошибка.
×
×
  • Создать...