Автор | Сообщение |
|
| постоянный участник
|
Пост N: 3771
Зарегистрирован: 12.09.06
|
|
Отправлено: 27.11.14 19:17. Заголовок: Запись блока кода ?
Всем привет. На хХарборе есть функции: ? "Saving Block..." SavedBlock := HB_SaveBlock( bBlock ) ? "Restoring Block..." bBlock := HB_RestoreBlock( SavedBlock ) А на Харборе есть такие ? Чем можно заменить или превратить блок кода в строку ?
|
|
|
Ответов - 7
[только новые]
|
|
|
| постоянный участник
|
Пост N: 3772
Зарегистрирован: 12.09.06
|
|
Отправлено: 27.11.14 20:41. Заголовок: В харборе нашел \..
В харборе нашел \HB32\contrib\xhb\tests\decode.prg, там тоже нет преобразования... Наверно жесть задача, записать блок кода в строку....
|
|
|
|
| |
Пост N: 320
Зарегистрирован: 16.12.08
|
|
Отправлено: 27.11.14 22:19. Заголовок: Посмотри на функции:..
Посмотри на функции: HB_SERIALIZE HB_DESERIALIZE
|
|
|
|
| постоянный участник
|
Пост N: 3774
Зарегистрирован: 12.09.06
|
|
Отправлено: 27.11.14 23:19. Заголовок: santy пишет: HB_SER..
santy пишет: цитата: | HB_SERIALIZE HB_DESERIALIZE |
| Посмотрел, ни фига не понял... @ 1, 10 SAY "X H A R B O U R - Serialization and deserialization tests" cTmp := HB_Serialize( "A string" ) cTmp += HB_Serialize( 12.4 ) cTmp += HB_Serialize( Directory( "serialize.prg") ) cTmp += HB_Serialize( CtoD( "2/2/2001" ) ) cTmp += HB_Serialize( { 1, 2, { "a", "b" }, 3 } ) cTmp += HB_Serialize( 2100010101 ) cTmp += HB_Serialize( {'a'=>'1', 'b'=> 2, 10 =>{1,2}, 'z' =>{1=>2, 0=>3} } ) cTmp += HB_Serialize( SomeClass():New("A parameter") ) cTmp += HB_Serialize( "Last String, closing test" ) /* now we deserialize */ cSerial := HB_DeserialBegin( cTmp ) Блок кода не наблюдается....
|
|
|
|
| |
Пост N: 373
Зарегистрирован: 20.02.11
|
|
Отправлено: 27.11.14 23:54. Заголовок: Andrey пишет: Посмо..
|
|
|
|
| постоянный участник
|
Пост N: 3775
Зарегистрирован: 12.09.06
|
|
Отправлено: 28.11.14 00:12. Заголовок: Есть еще CStr( bBloc..
Есть еще CStr( bBlock ) // result: {|| Block } (в Харборе HB_CStr( bBlock ) ) Но возврашает {||...} Делаю так: bBlock := {|x| MsgDebug(x) } xResult := HB_CStr( bBlock ) MsgDebug( xResult, VALTYPE(xResult) ) Результат: Если так: bVal := {|x| x -= 30 } xVal := HB_SERIALIZE( bVal ) MsgDebug( xVal , VALTYPE(xVal) ) Результат:
|
|
|
|
| постоянный участник
|
Пост N: 438
Зарегистрирован: 17.02.12
|
|
Отправлено: 28.11.14 00:25. Заголовок: Andrey HB_Serialize..
Andrey HB_Serialize( <xValue> ) --> cBinary - блок кода в строку, но не исходную, для передачи между модулями через mem файл в hb нет (пока, а может навсегда) функций, как в xhb
|
|
|
|
| постоянный участник
|
Пост N: 3777
Зарегистрирован: 12.09.06
|
|
Отправлено: 28.11.14 00:29. Заголовок: SergKis пишет: в hb..
SergKis пишет: цитата: | в hb нет (пока, а может навсегда) функций, как в xhb |
| Во, понял теперь ! Спасибо ! А когда появятся ? Там разработчиков можно потрясти ?
|
|
|
|