Public Class JsonBasicObjectArrayConverter As AbstractJsonConverter

Methods Detail

• fromHelper

  Public Function fromHelper(helper As JsonConversionHelper) As AbstractJsonConverter
  Overrides base function
  idx	Argument	Data Type	Attributes	Comments
  1	helper	JsonConversionHelper		Helper from which the converter is being used

• fromJson

  Public Function fromJson(source As JsonObject) As Variant
  Overridden function. The fromJson method is called from AbstractJsonConverter's deserialize method.
  idx	Argument	Data Type	Attributes	Comments
  1	source	JsonObject		JSON object to deserialize from
  Code Sample
  %REM The following code is an abbreviated version of code in AbstractJsonConverter.deserialize. It calls the derived class's fromJson function and passes the result to AbstractJsonConverter.deserializeToProperty %END REM Sub deserialize(holder as JsonConversionHolder, source as JsonObject) Call deserializeToProperty(holder, fromJson(source), source.label) End Sub

• toJson

  Public Function toJson(source As Variant) As Variant
  Overridden function. The toJson method is called from AbstractJsonConverter's serialize method.
  idx	Argument	Data Type	Attributes	Comments
  1	source	Variant		Variant containing the property to be serialized
  Code Sample
  %REM The following code is an abbreviated version of code in AbstractJsonConverter.serialize. It extracts a property value, passes it to the derived class's toJson function and passes the result to AbstractJsonConverter.serializeToProperty %END REM Sub serialize(source as Variant, target as JsonObject) Dim propName as String Dim execString as String propName = Me.labelName Set samsaraObj = source execString = |If (isObject(samsaraObj.| & propName & |)) Then Set samsaraVal = samsaraObj.| & propName & | Else samsaraVal = samsaraObj.| & propName & | End If| Call serializeToProperty(toJson(samsaraVal), target) End Sub

• withHelper

  Public Function withHelper(helper As JsonConversionHelper) As JsonBasicObjectArrayConverter
  Passes a JsonConversionHelper with which to convert the object
  idx	Argument	Data Type	Attributes	Comments
  1	helper	JsonConversionHelper		JsonConversionHelper with settings to use during conversion
  Code Sample
  %REM The following code is abbreviated code from ComplexPersonTest. It creates a JsonConversionHelper to convert "name" and "type" properties as scalars and passes it to a JsonBasicObjectArrayConverter. Unlike the JsonBasicObjectConverter example, this converts a Variant array of pets. The population of the Person object is omitted here, but it is generated from the following JSON {"firstName":"Paul","lastName":"Withers","pets": [{"name":"Peter","type":"Guinea Pig"},{"name":"Benjamin","type":"Guinea Pig"}]} %END REM Dim helper as New JsonConversionHelper() Dim petConverter as New JsonBasicObjectConverter("Pet", "ComplexPersonTest") Dim person as Person Dim jsonObj as JsonObject Dim petHelper as New JsonConversionHelper() Call helper.withScalarConverter("name").withScalarConverter("type") Call petConverter.withHelper(petHelper.withScalarConverter("name").withScalarConverter("type")) Call helper.withCustomConverter("pets", petConverter) Set jsonObj = helper.toJson(person)

• New

  Public Sub New(className As String, libName As String)
  Constructor
  idx	Argument	Data Type	Attributes	Comments
  1	className	String		JSON object to deserialize from
  2	libName	String		Script file where the class is defined