(DataFlex) JSON Insert Empty Array or Object

Demonstrates how to use the UpdateNewArray and UpdateNewObject methods to insert an empty array or object.

Note: The UpdateNewArray an UpdateNewObject methods were introduced in Chilkat v9.5.0.75.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoJson
    Boolean iSuccess
    String sTemp1

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End

    // The following code builds the following JSON, which contains both an empty array and empty object:

    // 	{
    // 	  "abc": {
    // 	    "xyz": [
    // 	      {
    // 	        "Name": "myName",
    // 	        "Description": "description",
    // 	        "ScheduleDefinition": "schedule definition",
    // 	        "ExceptionScheduleDefinition": "",
    // 	        "Attribute": [
    // 	        ],
    // 	        "SomeEmptyObject": {},
    // 	        "token": "token"
    // 	      }
    // 	    ]
    // 	  }
    // 	}

    Get ComUpdateString Of hoJson "abc.xyz[0].Name" "myName" To iSuccess
    Get ComUpdateString Of hoJson "abc.xyz[0].Description" "description" To iSuccess
    Get ComUpdateString Of hoJson "abc.xyz[0].ScheduleDefinition" "schedule definition" To iSuccess
    Get ComUpdateString Of hoJson "abc.xyz[0].ExceptionScheduleDefinition" "" To iSuccess
    Get ComUpdateNewArray Of hoJson "abc.xyz[0].Attribute" To iSuccess
    Get ComUpdateNewObject Of hoJson "abc.xyz[0].SomeEmptyObject" To iSuccess
    Get ComUpdateString Of hoJson "abc.xyz[0].token" "token" To iSuccess

    Set ComEmitCompact Of hoJson To False
    Get ComEmit Of hoJson To sTemp1
    Showln sTemp1


End_Procedure