Create JSON from struct: Difference between revisions

From DataFlex Wiki
Jump to navigationJump to search
m add syntax highlighting
m Send not get
 
(3 intermediate revisions by the same user not shown)
Line 10: Line 10:
   
   
  Get Create (RefClass(cJsonObject)) to hoJson
  Get Create (RefClass(cJsonObject)) to hoJson
  Get DataTypeToJson of hoJson tYourStructVar
  Send DataTypeToJson of hoJson tYourStructVar
  Get StringifyUTF8 of hoJson to ucaJson
  Get StringifyUTF8 of hoJson to ucaJson
  Get Seq_New_Channel to iChn
  Get Seq_New_Channel to iChn
Line 17: Line 17:
  Close_Output
  Close_Output
  Send Seq_Release_Channel iChn
  Send Seq_Release_Channel iChn
Send Destroy of hoJson
</source>
</source>


Line 22: Line 23:
The above was written by Mike Peat and has been taken from the following forum post:
The above was written by Mike Peat and has been taken from the following forum post:


https://support.dataaccess.com/Forums/showthread.php?63071-YAFR-Create-RDS-report-based-on-Struct-definition(s)&p=336276#post336276
* https://support.dataaccess.com/Forums/showthread.php?63071-YAFR-Create-RDS-report-based-on-Struct-definition(s)&p=336276#post336276
 


* [https://docs.dataaccess.com/dataflexhelp/mergedProjects/Tools/Name_Meta-Data_Tag.htm Name meta-data tag]
[[Category: Tutorials]]
[[Category: Tutorials]]
[[Category:JSON]]

Latest revision as of 18:37, 30 October 2021

Sometimes you have data as a DataFlex struct, but need it in JSON format.

The code below gives an example on how-to change your data format so that it is available as JSON.

 
 Handle hoJson
 UChar[] ucaJson
 Integer iChn
 tYourDataType tYourStructVar
 
 Get Create (RefClass(cJsonObject)) to hoJson
 Send DataTypeToJson of hoJson tYourStructVar
 Get StringifyUTF8 of hoJson to ucaJson
 Get Seq_New_Channel to iChn
 Direct_Output channel iChn {filename}
 Write channel iChn ucaJson
 Close_Output
 Send Seq_Release_Channel iChn
 Send Destroy of hoJson

External Links

The above was written by Mike Peat and has been taken from the following forum post: