ich werte die Antwort einer Epson - TSE aus und bin beim versuch das Dataobject auszuwerten auf eine "reserved keyword" compile error
gestoßen, als ich wie nachfolgend gezeigt auf oJson:function zugreifen wollte.
Erst durch die zwischengeschaltete Fkt: StrTran(cJson,'function','funktion') läßt es sich kompilieren.
Ist das so normal oder gibts vielleicht eine elegantere Methode ohne StrTran() ?
Code: Alles auswählen
cAntwort := TSE_Antwort()
oXML := XmlSimpleParser(cAntwort)
IF oXML:getname() == "device_data"
oData := oXML:getChild("data")
IF oData:isElement("code") .AND. oData:code = 'SUCCESS'
cJson := oData:resultdata
cJson := StrTran(cJson,'function','funktion')
oJson := Json2Var(cJson)
*------------------------------------------------
IF oJson:result = 'EXECUTION_OK'
DO CASE
CASE oJson:funktion = 'GetStorageInfo'
oTSE_Info := oJson
..........
ENDCASE
ELSE
......