x11

Поставить галочку и нажать Скачать

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

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

Ну вот я использовал библиотеку, которая развивается и что из этого вышло? Один и тот же код в разных версиях Дельфи (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/

вроде начинает доходить 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;

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

Не могу понять, как пройтись по всем объектам и у каждого объекта по их массивам? Все примеры, которые я видел, привязываются к имени объекта. А если нужно без имени, а если имя и значение нужно получать во время итераций? Спасибо.

на разработку только лишь одной сетки 2,5 года ушло...

да, запретил

Ок, замурчательно. А что там такого в манифесте прописано? Может там указано, что твоё приложение - для Андроид 4? Просто подобные приложения в Маркете не опубликуешь. А какой смысл перехват номеров в постоянно запущенном приложении? Оно же не будет у тебя постоянно на переднем плане, как только ты откроешь другое приложение, Андроид твое приложение через какое-то время прикроет все равно и оно не будет перехватывать номера.

Без сервиса работать не будет. Программа закроется и толку от нее ноль.

Ты мой пример использовал из первого сообщения? На какой версии Дельфи собран проект и на какой версии Андроида запустил? Меня ли что-то в манифесте?

а ты гуглил на тему ошибки? 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 или версия Явы не та что надо?

Возможно. Вот я писал, что делал проект в Токио. Сам уже и не помню.

Я вряд ли вам помогу, я не знаю, что это за ошибка.