Es posible grabar un objeto y sus propiedades en un archivo o en una campo de tabla sql server o cualquier otra ?, por ejemplo hago un grafico estadistico con chart de owc, el operador lo modifica visualmente y quiero que los cambios queden grabados para recuperarlos en otro momento y mostrar nuevamente el grafico con las modificaciones s
realizadas.
Les agradecería si alguien puede orientarme al respecto.
Saludos
Hoa,
Repasa la clase fwdbg.prg -> function Object2Data( o )
Carles, gracias por la información, veo que hay opciones, el problema es que en mi version de fivewin no tengo ese codigo, es posible publicarlo aqui ?
Hola,
Si se lo pides al Sr. Linares seguro que te la envia...
FUNCTION Object2Data( oObject )
*-------------------------------------
LOCAL aDict := {}
LOCAL aIVar := {}
LOCAL bError, oError
LOCAL cx
LOCAL uData
LOCAL nLen
IF ValType( oObject ) <> 'O'
RETU aIVar
ENDIF
nLen := Len( aDict := ASort( __ClassSel( oObject:ClassH )))
bError := ErrorBlock( {|oError| ErrorObject( oError )} )
BEGIN SEQUENCE
FOR cx = 1 TO nLen
IF !( StrChar( aDict[cx], 1) == '_') // !Method
IF Ascan( aDict, Left( "_" + aDict[cx], 10 ) ) == 0
* AADD( aMeth, aDict[cx] + '()' )
ELSE // Var
uData := OSend( oObject, aDict[cx] )
Aadd( aIvar, { aDict[cx], ValType( uData ), uData, oObject } )
ENDIF
ENDIF
NEXT
RECOVER USING oError
Eval( bError, oError )
END SEQUENCE
ErrorBlock( bError )
IF Len( aIvar ) == 0
Aadd( aIvar, { "No DATA", "", "" } )
ENDIF
RETU aIVar HB_SERIALIZE( <xData>, [ <lNumSizes> = .F. ], ;
[ <cCdpIn> = HVMCP ], [ <cCdpOut> = HVMCP ] ) -> cData
HB_DESERIALIZE( <cData>, ;
[ <cCdpIn> = HVMCP ], [ <cCdpOut> = HVMCP ] ) -> xData