(PHP ActiveX) Create more Complex JSON Document

Sample code to create the following JSON document:

    {  
        "Title": "The Cuckoo's Calling",  
        "Author": "Robert Galbraith",  
        "Genre": "classic crime novel",  
        "Detail": {  
            "Publisher": "Little Brown",  
            "Publication_Year": 2013,  
            "ISBN-13": 9781408704004,  
            "Language": "English",  
            "Pages": 494  
        },  
        "Price": [  
            {  
                "type": "Hardcover",  
                "price": 16.65  
            },  
            {  
                "type": "Kindle Edition",  
                "price": 7.00  
            }  
        ]  
    }  

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows Note: The php_com_dotnet.dll may need to be enabled inside of php.ini.

<?php

// For versions of Chilkat < 10.0.0, use new COM('Chilkat_9_5_0.Chilkat.JsonObject')
$json = new COM("Chilkat.JsonObject");

// The only reason for failure in the following lines of code would be an out-of-memory condition..

// An index value of -1 is used to append at the end.
$index = -1;

$success = $json->AddStringAt(-1,'Title','The Cuckoo's Calling');
$success = $json->AddStringAt(-1,'Author','Robert Galbraith');
$success = $json->AddStringAt(-1,'Genre','classic crime novel');

// Let's create the Detail JSON object:
$success = $json->AddObjectAt(-1,'Detail');
// detail is a Chilkat.JsonObject
$detail = $json->ObjectAt($json->Size - 1);
$success = $detail->AddStringAt(-1,'Publisher','Little Brown');
$success = $detail->AddIntAt(-1,'Publication_Year',2013);
$success = $detail->AddNumberAt(-1,'ISBN-13','9781408704004');
$success = $detail->AddStringAt(-1,'Language','English');
$success = $detail->AddIntAt(-1,'Pages',494);

// Add the array for Price
$success = $json->AddArrayAt(-1,'Price');
// aPrice is a Chilkat.JsonArray
$aPrice = $json->ArrayAt($json->Size - 1);

// Entry entry in aPrice will be a JSON object.

// Append a new/empty ojbect to the end of the aPrice array.
$success = $aPrice->AddObjectAt(-1);
// Get the object that was just appended.
// priceObj is a Chilkat.JsonObject
$priceObj = $aPrice->ObjectAt($aPrice->Size - 1);
$success = $priceObj->AddStringAt(-1,'type','Hardcover');
$success = $priceObj->AddNumberAt(-1,'price','16.65');

$success = $aPrice->AddObjectAt(-1);
// priceObj is a Chilkat.JsonObject
$priceObj = $aPrice->ObjectAt($aPrice->Size - 1);
$success = $priceObj->AddStringAt(-1,'type','Kindle Edition');
$success = $priceObj->AddNumberAt(-1,'price','7.00');

$json->EmitCompact = 0;
print $json->emit() . "\n";

?>