WD26/WD27: HRecordToJSON / HJSONToRecord SOLVED!
Posted by gpredl
|
Re: WD26/WD27: HRecordToJSON / HJSONToRecord SOLVED! May 16, 2022 10:01AM |
For those who are interested:
Herewith our Serialise and Deserialise methods from the wxRecord class.
It contains a Query Record variable.
1/ Serialise:
2/ Deserialise (back to a class instance including the Query Record)
Cheers
Peter H.
Herewith our Serialise and Deserialise methods from the wxRecord class.
It contains a Query Record variable.
1/ Serialise:
FUNCTION ObjSerialise(_MsgLst is wxMessageList, _IncludeTextMemos is boolean = True, _IncludeBinaryMemos is boolean = True)boolean,JSON) //Local variables Msg is wxMessage SerBuf is Buffer ResJSON is JSON // Clear all error messages in the list previously set by this function _MsgLst:ClearListForCaller(dbgInfo(dbgElement,dbgCurrentProcess)) //Do logic WHEN EXCEPTION IN // We first serialise the object without the data sources, since natively WX cannot serialise binary fields in a data source Serialize(object,SerBuf,psdJSON) IF NOT ErrorOccurred THEN //Assign the JSON ResJSON = SerBuf //Now add the data source into the json FieldList is string = HListItem(QRYRec, hLstDetail) //First we add regular fields (non-binary fields) FOR EACH STRING FieldDef OF FieldList SEPARATED BY CR FieldName is string = ExtractString(FieldDef,1,TA
FieldType is string = ExtractString(FieldDef,3,TA
2/ Deserialise (back to a class instance including the Query Record)
FUNCTION ObjDeserialise(_MsgLst is wxMessageList, _JSON is JSON):boolean
//Local variables
Msg is wxMessage
SerBuf is Buffer <utile>
// Clear all error messages in the list previously set by this function
_MsgLst:ClearListForCaller(dbgInfo(dbgElement,dbgCurrentProcess))
//Do logic
WHEN EXCEPTION IN
//Allow only compatible deserialisations
Trace(_JSON.ToString)
IF _JSON.Metadata.DataSource ~= object..class
//Now Deserialise all basic members
<COMPILE IF ConfigurationType=Android>
FOR EACH Mbr OF _JSON
IF NOT Lower(Mbr..Name) IN ("qryrec","metadata") THEN
{":"+Mbr..Name} = Mbr..Value
END
END
<ELSE>
//Parse all base type members from the JSON
ObjDef is Definition = GetDefinition(object)
FOR EACH Mbr OF ObjDef.Variable
IF Mbr.Definition <> Null THEN
IF Mbr.Definition.Type IN (wlInt, wlInt_1, wlInt_2, wlInt_4, wlInt_8, wlUnsignedInt_1, wlUnsignedInt_2, wlUnsignedInt_4, wlUnsignedInt_8, ...
wlReal, wlReal_4, wlReal_8, wlNumeric, wlCurrency, ...
wlUUID, wlUUID_128, wlUUID_256, wlString, wlAnsiString, wlFixedString, wlASCIIZString, wlCharacter, ...
wlDate, wlDateTime, wlTime, wlDuration, ...
wlBoolean, wlEmpty)
IF {"_JSON."+Mbr..Name}..Exist THEN
{":"+Mbr..Name} = {"_JSON."+Mbr..Name}..Value
END
END
END
END
<END>
//Now deserialise the QRYRec data from the json
FieldList is string = HListItem(QRYRec, hLstDetail)
FOR EACH STRING FieldDef OF FieldList SEPARATED BY CR
FieldName is string = ExtractString(FieldDef,1,TA
FieldType is string = ExtractString(FieldDef,3,TA
//Do we have a binary element in the QrySelect member
IF FieldType IN (hItemBinary, hItemBinaryMemo, hItemBinaryMemo4, hItemPicture, hItemTextMemo, hItemUnicodeMemo)
//Serialise the binary field
SerBinB64 is Buffer
SerBinB64 = Decode({"_JSON.QryRec.###BinaryData###."+FieldName+".Content"}..Value,encodeBASE64NoCR)
{":QRYRec."+FieldName} = SerBinB64
ELSE
//Deserialise Field
{":QRYRec."+FieldName} = {"_JSON.QryRec."+FieldName}..Value
END
END
//Return OK
RESULT True
ELSE
Msg.AddToList(_MsgLst,wxMessage.MSG_SYSERROR,ErrorInfo(errCode),"An error occurred while deserialising into the object.",...
"Incompatible Data Source types: "+_JSON.Metadata.DataSource+"/"+object..class+" (Info: "+_JSON.Metadata.PrimaryTable+"/"+DBRec..AssociatedFile+")")
RESULT False
END
DO
Msg.AddToList(_MsgLst,wxMessage.MSG_SYSEXCEPTION,ExceptionInfo(errCode),"An exception was encountered.",ExceptionInfo(errMessage))
wxApplication.LogException(_MsgLst)
<COMPILE IF ConfigurationType<>Android>
ExceptionEnable()
<END>
RESULT False
END
Cheers
Peter H.