INT _obj
_obj := %JSON_CreateObject()
%JSON_ObjectSetValue(_obj, "Company", "IPESOFT")
%JSON_ObjectSetValue(_obj, "Value", 365)
%JSON_ObjectSetValue(_obj, "Real", 1.234)
%JSON_ObjectSetValue(_obj, "State", @TRUE)
%JSON_ObjectSetValue(_obj, "Variable", U.uservariable)
%JSON_FreeObjectHandle(_obj)
Pridať komentár