hab da einen Fehler den ich mir nicht erklären kann. ( xBase 2.0, Build 1068,OEM-Zeichensatz)
Ich mache eine kleine Testfkt um einen Json.txt Datei einzulesen, in ein DatoObjekt umzuwandeln und anschließend wieder auszugeben.
Beim erneuten einlesen der soeben erstellten neuen Json-Datei und Umwandlung in ein DataObject kommt ein Crash !
Code: Alles auswählen
FUNCTION Test()
LOCAL cJsonIn1,cJsonIn2,oData,cJsonOut, oDataNeu
LOCAL cFileIn := 'tse_info.txt'
LOCAL cFileOut:='tse_info_out.txt'
*-------------------------------------------------
* Json String auf bestehender Datei einlesen
cJsonin1 := FileRead( cFileIn )
* DataObject erstellen
oData := Json2Var(cJsonin1)
* DataObject in String konvertieren
cJsonOut := Var2Json(oData)
* neue Datei erstellen
StrFile(cJsonOut, cFileOut, TRUE )
* Json String auf bestehender Datei einlesen
cJsonIn2 := FileRead( cFileOut )
* DataObject erstellen
oDataNeu := Json2Var(cJsonIn2) --> oError:despription c: "[Line:1:1] Generic syntax error"
RETURN (NIL
FUNCTION FileRead( cFileName )
LOCAL nTop, nBottom, nHandle, cString
nHandle := Fopen(cFileName)
IF nHandle <= 0
err_fenster('File ' + cFileName + ' nicht zu öffnen')
RETURN ''
ENDIF
nBottom := FSeek( nHandle, 0 , FS_END )
nTop := FSeek( nHandle, 0 , FS_SET )
cString := Space(nBottom-nTop-1)
FRead( nHandle, @cString, nBottom - nTop - 1 )
FClose(nHandle)
RETURN cString
Gruß Peter