Working with JSON using TMSFNCTypes


I'm having a issue with json. I have the following test code:

Duca := TDUCA.Create;
NewDuca := TDUCA.Create;
NewDuca.FromJSON(TJSJSON.stringify(Duca)); <- this works ok.
NewDuca.FromJSON(Duca.ToJSON); <- Exception Invalid Json parser state. Expected state: 8

I have tested both genetared json on a json reader and they are read ok.

Any hints,

Thanks in advance,

Omar Zelaya

NewDuca.FromJSON(TJSJSON.stringify(Duca)); <-no exception, but no data is loaded

Please provide more context, more details, preferably, isolate this and provide a sample source project with which we can reproduce a problem.