Hi Jean,
Normal, your object has all properties identical to the class.
This will work:
SET PATH TO C:\VFP\VFP9\INTERNET\LEAFE\CTOXML\ ADDITIVE
AB()
loObj = CREATEOBJECT("test")
loObj.toto = "toto1"
addProperty(loObj, 'test', "test")
_cliptext = cXMLofObject(m.loObj)
? _cliptext &&
<#o#><#c#>Test</#c#><#cl#>c:\vfp\vfp9\internet\leafe\ctoxml\ctxml.fxp</#cl#><#p#><#n#>test</#n#><#t#>C</#t#><#v#>test</#v#></#p#><#p#><#n#>toto</#n#><#t#>C</#t#><#v#>toto1</#v#></#p#></#o#>
DEFINE CLASS test AS custom && jme 27/01/2015
toto = "toto"
tata = "tata"
tutu = -2
titi = .T.
ENDDEFINE && test
Thierry Nivelet
FoxInCloud
Give your VFP app a second life in the cloud
http://foxincloud.com/
Le 28/01/2015 16:15, Jean MAURICE a écrit :
SET PATH TO C:\VFP\VFP9\INTERNET\LEAFE\CTOXML\ ADDITIVE
SET PROCEDURE TO C:\VFP\VFP9\INTERNET\LEAFE\CTOXML\ABOOP.PRG,
C:\VFP\VFP9\INTERNET\LEAFE\CTOXML\AB.PRG
loobj = CREATEOBJECT("test")
lcresult = ""
DO ab
lcresult = cXMLofObject(m.loobj)
STRTOFILE(m.lcresult, "test_xml.xml")
MODIFY FILE test_xml.xml NOWAIT
DEFINE CLASS test AS custom && jme 27/01/2015
*
toto = "toto"
tata = "tata"
tutu = -2
titi = .T.
ENDDEFINE && test
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message:
http://leafe.com/archives/byMID/profox/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
