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
Grabar un objeto
- Carles
- Posts: 1151
- Joined: Fri Feb 10, 2006 2:34 pm
- Location: Barcelona
- Been thanked: 7 times
- Contact:
Re: Grabar un objeto
Hoa,
Repasa la clase fwdbg.prg -> function Object2Data( o )
Repasa la clase fwdbg.prg -> function Object2Data( o )
Salutacions, saludos, regards
"...programar es fácil, hacer programas es difícil..."
UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
Skype -> https://join.skype.com/cnzQg3Kr1dnk
"...programar es fácil, hacer programas es difícil..."
UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
Skype -> https://join.skype.com/cnzQg3Kr1dnk
Re: Grabar un objeto
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 ?
- Carles
- Posts: 1151
- Joined: Fri Feb 10, 2006 2:34 pm
- Location: Barcelona
- Been thanked: 7 times
- Contact:
Re: Grabar un objeto
Hola,
Si se lo pides al Sr. Linares seguro que te la envia...
Si se lo pides al Sr. Linares seguro que te la envia...
Salutacions, saludos, regards
"...programar es fácil, hacer programas es difícil..."
UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
Skype -> https://join.skype.com/cnzQg3Kr1dnk
"...programar es fácil, hacer programas es difícil..."
UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
Skype -> https://join.skype.com/cnzQg3Kr1dnk
- Antonio Linares
- Site Admin
- Posts: 42562
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Has thanked: 36 times
- Been thanked: 81 times
- Contact:
Re: Grabar un objeto
Desarrollado por nuestro querido Carles, menuda barba te has dejado! 

Code: Select all | Expand
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", "", "" } ) ENDIFRETU aIVar
Re: Grabar un objeto
Harbour, ese gran desconocido, tiene dos funciones a tal fin:
hb_Serialize() y hb_Deserialize()
hb_Serialize() y hb_Deserialize()
Code: Select all | Expand
HB_SERIALIZE( <xData>, [ <lNumSizes> = .F. ], ; [ <cCdpIn> = HVMCP ], [ <cCdpOut> = HVMCP ] ) -> cData HB_DESERIALIZE( <cData>, ; [ <cCdpIn> = HVMCP ], [ <cCdpOut> = HVMCP ] ) -> xData