Aufrufinformation

String = My.Functions.json.CollectionToJson(toColl AS COLLECTION , tlNoJSO AS Boolean)
String = My.Functions.json.CollectionToJson(toColl,tlNoJSO)

Codeinformation

*/ Wir holen uns direkt das Json Object aus der My-Struktur
LOCAL loJson AS My_Fu_json , loObject AS Object , loColl AS Collection , lcJson AS String
*/ Aus My...
loJson = My.Functions.Json
*/ Wie werden Objectnamen übergeben?
*/	lLower = .T.		=> objectname
*/	lLower = .F.		=> OBJECTNAME
*/	lLower = .NULL.		=> Objectname
loJson.lLower = .T.		&& LOWER-CASE
*/ BESONDERE NAMEN FÜR OBJEKTE:
*/	Tables, Structure, Records (Diese Namen können NICHT geändert werden!)

*/ Wenn man eine Collection hat...
loColl = CREATEOBJECT("Collection")
loColl.Add("Albert Einstein","Name")
loColl.Add(DATE(1879,3,14),"Geboren")
loColl.Add("Ulm","Ort")
=STRTOFILE(;
	"Eine VFP-Collection in ein Json-Objekt umwandeln..." + CRLF +;
	loJson.CollectionToJson(m.loColl) + CTAB + "! Hier bleibt die Reihenfolge vorhanden" + CRLF ,;
	My._LogDir+'json-4.txt',0)
? FILETOSTR(My._LogDir+'json-4.txt')

Hilfeinformation

String = My.Functions.json.CursorToJson(tcAlias AS STRING , tnDataSession AS NUMBER , tlWithStructure AS Boolean)
String = My.Functions.json.CursorToJson(tcAlias,tnDataSession,tlWithStructure)

*/ Wir holen uns direkt das Json Object aus der My-Struktur
LOCAL loJson AS My_Fu_json , loObject AS Object , loColl AS Collection , lcJson AS String
*/ Aus My...
loJson = My.Functions.Json
*/ Wie werden Objectnamen übergeben?
*/	lLower = .T.		=> objectname
*/	lLower = .F.		=> OBJECTNAME
*/	lLower = .NULL.		=> Objectname
loJson.lLower = .T.		&& LOWER-CASE
*/ BESONDERE NAMEN FÜR OBJEKTE:
*/	Tables, Structure, Records (Diese Namen können NICHT geändert werden!)

*/ Ohne Datenstruktur
lcJson = loJson.CursorToJson(ALIAS(),SET("Datasession"),.F.)
=STRTOFILE(m.lcJson,My._LogDir+'json-cursor-1.txt',0)
=STRTOFILE(;
	"Einen VFP-Cursor in einen Json-String umwandeln... (Ohne Strukturangabe)" + CRLF + CRLF +;
	m.lcJson + CRLF ,;
	My._LogDir+'json-5.txt',0)
MODIFY FILE (My._LogDir+'json-5.txt') NOWAIT

String = My.Functions.json.JsonObject(tcField AS STRING , tvValue AS Variant , tcType AS STRING , tlNoJSO AS Boolean)
String = My.Functions.json.JsonObject(tcField,tvValue,tcType,tlNoJSO)

Object = My.Functions.json.JsonToCollection(tcJson AS STRING)
Object = My.Functions.json.JsonToCollection(tcJson)

Boolean = My.Functions.json.JsonToCursor(tcJson AS STRING , tcAlias AS STRING @, tnDataSession AS NUMBER)
Boolean = My.Functions.json.JsonToCursor(tcJson,@tcAlias,tnDataSession)

Object = My.Functions.json.JsonToObject(tcJson AS String)
Object = My.Functions.json.JsonToObject(tcJson)

String = My.Functions.json.JsonValue(tcField AS STRING , tvValue AS Variant , tcType AS STRING)
String = My.Functions.json.JsonValue(tcField,tvValue,tcType)

Variant = My.Functions.json.MemberFromJsonObject(toJson AS OBJECT , tcMember AS STRING)
Variant = My.Functions.json.MemberFromJsonObject(toJson,tcMember)

String = My.Functions.json.ObjectToJson(toObject AS OBJECT , tlNoJSO AS Boolean)
String = My.Functions.json.ObjectToJson(toObject,tlNoJSO)

String = My.Functions.json.Transform(tvValue AS Variant , tcType AS String)
String = My.Functions.json.Transform(tvValue,tcType)

Boolean = My.Functions.json.lLower