The root object cannot be a collection...

+++ Rick ---

>Hello Rick,
>
>Sorry about coming back that late ! I have been away from here, thinking that my thread was dead (hopefully it is not now dead for real).
>
>Thank you for your response ; the link you provided and your explanations were helpful. However, I still could not put a simple case to work like expected. Maybe I forgot to do something ? In the following code, the call to XmlToObject is always causing the error "Member GETNAMEDITEM does not evaluate to an object".
>
>The two classes (basic_object.prg)
>

>DEFINE CLASS MyCollection AS Custom
>	oCollection=null
>	FUNCTION INIT
>		THIS.oCollection=CREATEOBJECT("Collection")
>	ENDFUNC
>	FUNCTION ToString
>		LOCAL lcResult, loNumber
>		lcResult=""
>		FOR EACH loNumber IN THIS.oCollection
>			lcResult=lcResult+loNumber.ToString()+";"
>		ENDFOR
>	ENDFUNC
>ENDDEFINE
>
>DEFINE CLASS MyNumber AS Custom
>	nNumber=0
>	FUNCTION INIT
>	LPARAMETERS nNumber
>		THIS.nNumber=nNumber
>	ENDFUNC
>	FUNCTION ToString
>		RETURN ALLTRIM(STR(THIS.nNumber))
>	ENDFUNC
>ENDDEFINE
>

>The calling code :
>

>SET PROCEDURE TO wwUtils.prg, basic_objects.prg
>SET CLASSLIB TO ../classlib/wwxml.vcx
>LOCAL loXml, loColl, loColl2, loNumber, loNumber2, lcXml
>loXml=CREATEOBJECT("wwxml")
>loXml.lRecurseObjects=.T.
>loColl=CREATEOBJECT("MyCollection")
>loColl2=CREATEOBJECT("MyCollection")
>loNumber=CREATEOBJECT("MyNumber",1)
>loNumber2=CREATEOBJECT("MyNumber",2)
>loColl.oCollection.Add(loNumber)
>loColl2.oCollection.Add(loNumber2)
>lcXml=loXml.ObjectToXml(loColl)
>loColl2=loXml.XmlToObject(lcXml,loColl2)
>? loColl2.ToString()
>

>
>Regards,
>
>David