Hi Paul,
Haven't looked at JSON since last February so I had to refresh a bit. Here's a small code sample. I have my static library libjsonwin32.a in ... \inc\json-c folder.
Code compiles and works on my pc.
Eigil
#include once "windows.bi"
#Include once "file.bi"
#include ONCE "string.bi"
'json
#include "C:\FreeBasic\FreeBASIC-1.07.0\inc\json-c\json.bi"
#include "C:\FreeBasic\FreeBASIC-1.07.0\inc\json-c\printbuf.bi"
#inclib "jsonwin32"
dim jOuter as json_object ptr = json_object_new_object()
dim jBody as json_object ptr = json_object_new_object()
json_object_object_add(jOuter,"argument", jbody)
'' 'Creating json strings*/
dim jstring1 as json_object ptr = json_object_new_string("#XXXX.IMS.Compliance.ValidateSimulatedOrdersArgument")
dim jstring2 as json_object ptr = json_object_new_string("#Collection(String)")
'' 'Form the json object*/
'' 'Each of these is like a key value pair*/
json_object_object_add(jBody,"@odata.type", jstring1)
json_object_object_add(jBody,"OrderIds@odata.type", jstring2)
'create an json object array with containg OrderIDS
dim jOrdersID as json_object ptr = json_object_new_array()
json_object_array_add(jOrdersID, json_object_new_string("Order_1"))
json_object_array_add(jOrdersID, json_object_new_string("Order_2"))
dim jOrderarr as json_object ptr = jOrdersID
'add the array to the body
json_object_object_add(jBody,"OrderIds",jOrderarr )
'print the object
print *json_object_to_json_string_ext(jBody,JSON_C_TO_STRING_PRETTY )
sleep
end