Отправлено: 27.11.14 19:17. Заголовок: Запись блока кода ?

Всем привет.
На хХарборе есть функции:
? "Saving Block..."
SavedBlock := HB_SaveBlock( bBlock )
? "Restoring Block..."
bBlock := HB_RestoreBlock( SavedBlock )
А на Харборе есть такие ?
Чем можно заменить или превратить блок кода в строку ?

 Отправлено: 27.11.14 20:41. Заголовок: В харборе нашел \..

В харборе нашел \HB32\contrib\xhb\tests\decode.prg, там тоже нет преобразования...
Наверно жесть задача, записать блок кода в строку....

 Отправлено: 27.11.14 22:19. Заголовок: Посмотри на функции:..

Посмотри на функции:

HB_SERIALIZE
HB_DESERIALIZE

 Отправлено: 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 )
Блок кода не наблюдается....

 Отправлено: 27.11.14 23:54. Заголовок: Andrey пишет: Посмо..

Andrey пишет:

цитата:

Посмотрел, ни фига не понял..

http://www.creasolgroup.com/xOraclipLanguageReferenceGuide/xOraClip%20Language%20Reference/Functions/Hb_serialize_f.en.html

PS это просто пример для понимания

 Отправлено: 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) )

Результат:

 Отправлено: 28.11.14 00:25. Заголовок: Andrey HB_Serialize..

Andrey
HB_Serialize( <xValue> ) --> cBinary - блок кода в строку, но не исходную, для передачи между модулями через mem файл
в hb нет (пока, а может навсегда) функций, как в xhb

 Отправлено: 28.11.14 00:29. Заголовок: SergKis пишет: в hb..

SergKis пишет:

цитата:

в hb нет (пока, а может навсегда) функций, как в xhb

Во, понял теперь ! Спасибо !

А когда появятся ? Там разработчиков можно потрясти ?