tjconv_tojson.bmx 855 B

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647
  1. SuperStrict
  2. Framework brl.standardio
  3. Import Text.jconv
  4. ' create a person with some data
  5. Local person:TPerson = New TPerson
  6. person.firstName = "John"
  7. person.lastName = "Smith"
  8. person.address = New TAddress
  9. person.address.line1 = "10 Somewhere Street"
  10. person.address.city = "SomeTown"
  11. person.address.state = "SomeState"
  12. person.notes = New String[2]
  13. person.notes[0] = "Note 1"
  14. person.notes[1] = "Note 2"
  15. ' create jconv instance
  16. Local jconv:TJConv = New TJConvBuilder.Build()
  17. ' serialize the person data
  18. Local s:String = jconv.ToJson(person)
  19. Print s
  20. Local p:TPerson = TPerson(jconv.FromJson(s, "TPerson"))
  21. Print jconv.ToJson(p)
  22. Type TPerson
  23. Field firstName:String
  24. Field lastName:String
  25. Field address:TAddress
  26. Field notes:String[]
  27. End Type
  28. Type TAddress
  29. Field line1:String
  30. Field line2:String
  31. Field city:String
  32. Field state:String
  33. End Type