cJSON: Запись булевых значений

[Игорь Столяров]

Привет всем !

Спасите и помогите ! Упёрся в элементарную вещь.
Нужно выгрузить незатейливую строку вида: {"Login":"Igor","FlagClose":False}

Код: Выделить всё

 Users   Group
Login     String('Igor')
FlagClose Byte(False)
        end
jParam  &cJson
  Code
  jParam &= json::CreateObject(Users,False,'[{{"name":"FlagClose","isBool":true}]')  ! isBool - это моя фантазия !
  Message(jParam.ToString())  ! -->>  {"Login":"Igor","FlagClose":0}

Можно ли (как-то) формировать булевы значения через json::CreateObject() ?
Метод: cJSON.AddBoolToObject() видел, но это ручное формирование.
А у меня семиэтажные структуры с массивами ... Заранее спасибо за помощь !

P/S: В примерах и описании тема булевых значений вообще не раскрыта.

[Admin]

В TFieldRule добавить IsBool BYTE
а потом в

Код: Выделить всё

json::CreateObject            PROCEDURE(*GROUP grp, BOOL pNamesInLowerCase = TRUE, <STRING options>)

где то между этих строк

Код: Выделить всё

            ndx += nestedItem.GetArraySize(TRUE)  !- skip fields from nested groups
          ELSIF ISSTRING(fldValue)

вставить

Код: Выделить всё

          ELSIF fldRules.IsBool
            item.AddBoolToObject(jsonName, fldValue)

Что то мне кажется что этого хватит и ваша опция isBool отработает

[Admin]

Вот такой json получается

Код: Выделить всё

{"LOGIN":"Igor","FLAGCLOSE":false}

[Игорь Столяров]

Ой ! Что-то я очкую изменять такой сложный класс ... Неизвестно где аукнется ...

[Admin]

Ой да прекрати.
Кинь его в папку с программой и там поменяй.
Чему там аукаться то?
Сформируй две версии JSON файла и сделай DIFF. Сам увидишь

P.S. Ну или жди Дедушку

[Дед Пахом]

Отличная идея! Добавлю после обеда.

[Дед Пахом]

Выложил v1.23.

[Игорь Столяров]

Спасибо !

[Игорь Столяров]

А ведь можно сразу определять тип поля, как Вы рассказали вот здесь: viewtopic.php?t=4481
И если он

Код: Выделить всё

MyGroup Group
...
Flag  Bool
...
end

то и выгружать его сразу в JSON как Bool по умолчанию ...
И без вариантов. Bool он везде и есть Bool (True / False). Здесь нет суперпозиции.
Сейчас приходится задавать формат выгрузки для всех флагов - но это ведь и так есть в их объявлении.

[Admin]

Сейчас приходится задавать формат выгрузки для всех флагов

Аппетит приходит во время еды!

[Дед Пахом]

Если бы... BOOL это не отдельный тип, а другое наименование LONG.

[Игорь Столяров]

BOOL это не отдельный тип

Понял. Печаль !

smile199.gif (3.34 КБ) 771 просмотр