Поиск сообщества
Показаны результаты для тегов 'xsuperobject'.
Найдено: 3 результата
-
Добрый день. Пытаюсь парсить следующую структуру (в архиве файл test.json) через XSuperObject в jSonData находится содержимое файла архива. var X: ISuperObject; jSonData: string; ... if jSonData <> '' then try X := SO(jSonData); except print('jSonData: ' + jSonData); result := 'PARS ERROR'; exit; end; выдает ошибку на моменте "... \u0438 60":"40\n\u0417..." Как можно исправить? test.zip
-
Я работаю с библиотекой XSuperObject. Как правило, сам JSON я не парсю, а только создаю классы-прототипы данных в JSON, и пользуюсь методами .FromJSON и .ToJSON. пример: Для такого JSON'a создаю такой класс: TvktStatus = Class private Ftext: String; FAudio: TvktAudio; published [Alias('text')] property text: String read Ftext write Ftext; [Alias('audio')] property audio: TvktAudio read FAudio write FAudio; End; в итоге не нужно парсить программисту - все делает библиотечка. Теперь к самой проблеме. Допустим есть такой файлик с данными в формате JSON: Как бы вы составили такой класс-прототип? Ведь тут получается в одном массиве есть как число так и строка.
-
Привет. Пользовался ли кто-то автоматическим заполнением Record в SuperObject? Очень много кода сокращает: result[I] := TSuperRecord<TvtFileReport>.FromJSON(X.O[I]); Но вот только проблема одна. От сервера приходит несколько записей, в которых есть дефис - а значит такое поле нельзя создать в Record"е. И как результат не получается получить все данные. Кто знает как это решить? Что может прийти от сервера CAT-QuickHeal - должно быть полем. Но его нельзя создать( Сейчас вижу вариант только с отдельным парсингом таких значений
