![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(PureBasic) Create a JSON Array of ObjectsDemonstrates how to create a JSON array of objects. Note: This example requires Chilkat v11.1.0 or greater.
IncludeFile "CkJsonArray.pb" IncludeFile "CkJsonObject.pb" Procedure ChilkatExample() success.i = 0 arr.i = CkJsonArray::ckCreate() If arr.i = 0 Debug "Failed to create object." ProcedureReturn EndIf obj.i = CkJsonObject::ckCreate() If obj.i = 0 Debug "Failed to create object." ProcedureReturn EndIf ; Create a new and empty JSON object in the 1st position of the JSON array ; and return the reference in the last argument. CkJsonArray::ckAddObjectAt2(arr,0,obj) CkJsonObject::ckUpdateString(obj,"Name","Otto") CkJsonObject::ckUpdateInt(obj,"Age",29) CkJsonObject::ckUpdateBool(obj,"Married",0) ; Create a new and empty JSON object in the 2nd position of the JSON array ; and return the reference in the last argument. CkJsonArray::ckAddObjectAt2(arr,1,obj) CkJsonObject::ckUpdateString(obj,"Name","Connor") CkJsonObject::ckUpdateInt(obj,"Age",43) CkJsonObject::ckUpdateBool(obj,"Married",1) ; Create a new and empty JSON object in the 3rd position of the JSON array ; and return the reference in the last argument. CkJsonArray::ckAddObjectAt2(arr,2,obj) CkJsonObject::ckUpdateString(obj,"Name","Ramona") CkJsonObject::ckUpdateInt(obj,"Age",34) CkJsonObject::ckUpdateBool(obj,"Married",1) ; Examine what we have: CkJsonArray::setCkEmitCompact(arr, 0) Debug CkJsonArray::ckEmit(arr) ; The output is: ; [ ; { ; "Name": "Otto", ; "Age": 29, ; "Married": false ; }, ; { ; "Name": "Connor", ; "Age": 43, ; "Married": true ; }, ; { ; "Name": "Ramona", ; "Age": 34, ; "Married": true ; } ; ] CkJsonArray::ckDispose(arr) CkJsonObject::ckDispose(obj) ProcedureReturn EndProcedure |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.