Hi Rick,
In
https://github.com/FoxInCloud/FoxInCloud-AB,
abOOP.prg, you have:
-
cXMLofObject(): XML definition of an object, including class and classlib; only property values different from class are stored
-
objectOfXML(): recreates or populate an existing instance of the object from XML
supports nested objects, collections and array properties among others.
Because of dependencies, you need the whole AB layer; to load the package, just
do AB
at program startup
As we use an object-oriented naming (eg.
cXMLofObject() instead of
objectToXML()), it should not conflict with your naming.
>Is there a way to save an object reference into a cursor? Something like this:
>
>
lo = CREATEOBJECT("Form")
>CREATE CURSOR c_example (oData g)
>INSERT INTO c_example (oData) VALUES(lo)
>
>SCAN
> c_examples.oData.BackColor = RGB(255,255,0)
>ENDSCAN
>
>
>
>The only way I know how to do it is in some way like this when going through a table:
>
lo = CREATEOBJECT("Form")
>CREATE CURSOR c_example (cDataObj c(20))
>
>lcName = SYS(2015)
>PUBLIC &lcName
>&lcName = lo
>INSERT INTO c_example (cDataObj) VALUES(lcName)
>
>SCAN
> lcObj = ALLTRIM(cDataObj)
> &lcObj..BackColor = RGB(255,255,0)
>ENDSCAN
>
>
>Is there a way to do it through objects?
Thierry Nivelet
FoxinCloud
Give your VFP application a second life, web-based, in YOUR cloud
http://foxincloud.com/Never explain, never complain (Queen Elizabeth II)