cJSON: Формат полей для вложенных структур
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
- Дед Пахом
- Старичок
- Сообщения: 3135
- Зарегистрирован: 07 Июль 2005, 16:51
- Откуда: Москва, Россия
- Благодарил (а): 10 раз
- Поблагодарили: 28 раз
- Контактная информация:
cJSON: Формат полей для вложенных структур
Не такая уж эта комбинация и многоходовая.
С уважением, ДП
- Игорь Столяров
- Ветеран движения
- Сообщения: 7384
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 14 раз
- Поблагодарили: 49 раз
cJSON: Формат полей для вложенных структур
Можно сказать и так. С точки зрения программиста С, список списков указателей - вообще обычное дело.
Код работает - здесь скорей вопрос сворачивания повторяющихся рутинных операций с указателями в метода класса.
Ну и сама операция перадачи файла через тег - вполне востребована. Это не только документы, но картинки, сертификаты и т.д.
Код работает - здесь скорей вопрос сворачивания повторяющихся рутинных операций с указателями в метода класса.
Ну и сама операция перадачи файла через тег - вполне востребована. Это не только документы, но картинки, сертификаты и т.д.
За теми кто отстал - не возвращаться. (С) Кодекс
- Игорь Столяров
- Ветеран движения
- Сообщения: 7384
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 14 раз
- Поблагодарили: 49 раз
cJSON: Формат полей для вложенных структур
Что бы не плодить темы в форуме - можно я здесь спрошу ?
Нужно передать в теге русский текст в UTF8.
Если это обычная строка, то метод json::CreateObject() штатно сам выполнит экранирование.
Но если {"Name":"Tag","IsRaw":True} - то я должен экранировать содержание тега после кодирования в UTF8 самостоятельно ?
А как (метод) ? Заранее спасибо - сам не нашёл ...
Нужно передать в теге русский текст в UTF8.
Код: Выделить всё
Tag = json::ToUtf8('Русский текст')
Но если {"Name":"Tag","IsRaw":True} - то я должен экранировать содержание тега после кодирования в UTF8 самостоятельно ?
А как (метод) ? Заранее спасибо - сам не нашёл ...
За теми кто отстал - не возвращаться. (С) Кодекс
- Игорь Столяров
- Ветеран движения
- Сообщения: 7384
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 14 раз
- Поблагодарили: 49 раз
cJSON: Формат полей для вложенных структур
Не пугайте меня пожалуйста ! ToUTF8() - это обычная конвертация ANSI -> UTF8.
Код: Выделить всё
MyTest Procedure()
gMessage Group
S1 cString(21)
S2 cString(21)
end
Params &cJson
Code
gMessage.S1 = json::ToUtf8( '{{\')
gMessage.S2 = json::ToUtf8('"{{\"')
Params &= json::CreateObject(gMessage,,'[{{"name":"S2","isRaw":true}]')
{
"s1": "{\\",
"s2": "{\" ! <-- Это ошибка - нужно применять экранирование к содержанию тега
}
За теми кто отстал - не возвращаться. (С) Кодекс
- Дед Пахом
- Старичок
- Сообщения: 3135
- Зарегистрирован: 07 Июль 2005, 16:51
- Откуда: Москва, Россия
- Благодарил (а): 10 раз
- Поблагодарили: 28 раз
- Контактная информация:
cJSON: Формат полей для вложенных структур
Не знаю зачем, но (если я понял задачу) как-то так:
Код: Выделить всё
jTag &= json::CreateString('...') !- или другой какой json::Create
grp.tag = jTag.ToString()
jTag.Delete()
Params &= json::CreateObject(grp,,'[{{"name":"tag","isRaw":true}]')
С уважением, ДП
- Игорь Столяров
- Ветеран движения
- Сообщения: 7384
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 14 раз
- Поблагодарили: 49 раз
cJSON: Формат полей для вложенных структур
Спасибо. Это просто нужно знать и уметь работать с &cJson. Да, если сделать вот так:
то получается нужный результат:
Код: Выделить всё
gMessage.S1 = json::ToUtf8('{{\')
jTag &= json::CreateString(json::ToUtf8('{{\'))
gMessage.S2 = jTag.ToString()
jTag.Delete()
Params &= json::CreateObject(gMessage,,'[{{"name":"S2","isRaw":true}]')
{
"s1": "{\\",
"s2": "{\\"
}
За теми кто отстал - не возвращаться. (С) Кодекс
- Игорь Столяров
- Ветеран движения
- Сообщения: 7384
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 14 раз
- Поблагодарили: 49 раз
cJSON: Формат полей для вложенных структур
Я честно пытаюсь думать. Но можно крайний раз спросить ?
А как в этом варианте выгрузить массив (строка без кавычек) - ради этого ведь и делался "IsRaw" ...
В штатном классе JSON есть метод экранирования и всё было просто:
А как в этом варианте выгрузить массив (строка без кавычек) - ради этого ведь и делался "IsRaw" ...
Код: Выделить всё
jTag &= json::CreateRaw(json::ToUtf8('[{{"value":"\ЖПД"}]')) ! Не экранируется "\"
gMessage.S2 = jTag.ToString()
jTag.Delete()
Params &= json::CreateObject(gMessage,,'[{{"name":"S2","isRaw":true}]')
Код: Выделить всё
gMessage.S2 = EscapeString(json::ToUtf8('[{{"value":"\ЖПД"}]')) ! Всё OK !
Params &= json::CreateObject(gMessage,,'[{{"name":"S2","isRaw":true}]')
За теми кто отстал - не возвращаться. (С) Кодекс
- Дед Пахом
- Старичок
- Сообщения: 3135
- Зарегистрирован: 07 Июль 2005, 16:51
- Откуда: Москва, Россия
- Благодарил (а): 10 раз
- Поблагодарили: 28 раз
- Контактная информация:
cJSON: Формат полей для вложенных структур
Ну барин... тут без CreateObject+AddStringToObject вряд ли обойтись. Я так понимаю, Вы весь json пихаете в строку, а затем IsRaw и вуаля.
С уважением, ДП
- Игорь Столяров
- Ветеран движения
- Сообщения: 7384
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 14 раз
- Поблагодарили: 49 раз
cJSON: Формат полей для вложенных структур
Не. Это ручное формирование JSON и прямой путь в дурку. Бум думать дальше, выход есть всегда ...
За теми кто отстал - не возвращаться. (С) Кодекс
- Игорь Столяров
- Ветеран движения
- Сообщения: 7384
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 14 раз
- Поблагодарили: 49 раз
cJSON: Формат полей для вложенных структур
Игорь сделал выгрузку массива в строке !
где (по Вашей рекомендации):
Только пришлось добавить в класс jTag - т.к. на момент выхода из метода jTag должен существовать.
Код: Выделить всё
gMessage.S2 = '[{{"value":' & Self.EscToUtf8('\РУС') & '}]'
Params &= json::CreateObject(gMessage,,'[{{"name":"S2","isRaw":true}]')
Код: Выделить всё
MyClass.EscToUtf8 Procedure(String xValue) !, String
Code
If Not Self.jTag &= Null then Self.jTag.Delete(). ! И тоже самое в MyClass.Kill()
Self.jTag &= json::CreateString(json::ToUtf8(xValue))
Return Self.jTag.ToString()
За теми кто отстал - не возвращаться. (С) Кодекс
- Игорь Столяров
- Ветеран движения
- Сообщения: 7384
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 14 раз
- Поблагодарили: 49 раз
cJSON: Формат полей для вложенных структур
Сделал метод для загрузки в тег файла, как доступная мне альтернатива опции "IsFile". Стало светлее.
Вопрос: подскажите пожалуйста, а какая сейчас предлагается технология для загрузки файлов ?
Вот получил я c сервиса ответ в виде JSON строки. В ней массив тегов с документами (в кодировке BASE64).
Сейчас порядка 100 KByte каждый тег (но заявлено до 10 MByte). Как их оттуда получить ? В поле с "IsStringRef" ?
Спасибо !
Код: Выделить всё
! Загрузить файл в строку BASE64
MyClass.IsLoadFile Procedure(String xFilename) !, *String
xContent &String
xBuffer &IDynStr
Code
xContent &= json::LoadFile(xFilename)
If Not (xContent &= Null)
xBuffer &= NewDynStr()
If Not (xBuffer &= Null)
xBuffer.Cat(ToBase64(xContent)) ! Содержимое файла в BASE64
Dispose(xContent) ! Пересоздать строку
xContent &= New(String(xBuffer.StrLen()))
xBuffer.CopyTo(xContent)
xBuffer.Kill ! <<-- Добавил !!!
DisposeDynStr(xBuffer)
end
end
Return xContent
Вот получил я c сервиса ответ в виде JSON строки. В ней массив тегов с документами (в кодировке BASE64).
Сейчас порядка 100 KByte каждый тег (но заявлено до 10 MByte). Как их оттуда получить ? В поле с "IsStringRef" ?
Спасибо !
Последний раз редактировалось Игорь Столяров 25 Ноябрь 2022, 12:02, всего редактировалось 1 раз.
За теми кто отстал - не возвращаться. (С) Кодекс
- Дед Пахом
- Старичок
- Сообщения: 3135
- Зарегистрирован: 07 Июль 2005, 16:51
- Откуда: Москва, Россия
- Благодарил (а): 10 раз
- Поблагодарили: 28 раз
- Контактная информация:
cJSON: Формат полей для вложенных структур
Пока не забыл: как писал Диего Б., IDynStr надо очищать перед DisposeDynStr:
Код: Выделить всё
xBuffer.Kill()
DisposeDynStr(xBuffer)
Как-то так:Как их оттуда получить ? В поле с "IsStringRef" ?
Код: Выделить всё
jFileContents &= jRoot.FindObjectItem('file1')
refFileContent &= jFileContents.GetStringRef()
SaveFile('file1.txt', FromBase64(refFileContent))
С уважением, ДП
- Игорь Столяров
- Ветеран движения
- Сообщения: 7384
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 14 раз
- Поблагодарили: 49 раз
cJSON: Формат полей для вложенных структур
Век живи - век учись ... Спасибо, теперь всегда буду очищать.
С загрузкой файла из тега тоже всё понятно ...
За теми кто отстал - не возвращаться. (С) Кодекс
- Игорь Столяров
- Ветеран движения
- Сообщения: 7384
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 14 раз
- Поблагодарили: 49 раз
cJSON: Формат полей для вложенных структур
Ещё раз хочу сказать спасибо за опцию "IsRaw" в классе - это тонкий и мощный инструмент,
позволяющий сворачивать огромный объём кода. Но есть один нюанс - она может работать
только в паре с методом экранирования. Т.е. если мы вручную формируем содержание тега:
То обязаны применять для ЗНАЧЕНИЙ тегов экранирование:
Я бы предложил рассмотреть варианты - но проблема в том, что их нет. Цугцванг-с !
позволяющий сворачивать огромный объём кода. Но есть один нюанс - она может работать
только в паре с методом экранирования. Т.е. если мы вручную формируем содержание тега:
Код: Выделить всё
gMessage.TagArray = '[{{"value":' & Self.EscapeString('\ЗНАЧЕНИЕ\') & '}]'
Params &= json::CreateObject(gMessage,,'[{{"name":"TagArray","isRaw":true}]')
Код: Выделить всё
Class.EscapeString Procedure(String sValue) !, String
Code
If Not Self.jTag &= Null then Self.jTag.Delete().
Self.jTag &= json::CreateString(sValue)
Return Self.jTag.ToString()
За теми кто отстал - не возвращаться. (С) Кодекс