Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Algorithmen, Datenstrukturen und Klassendesign (https://www.delphipraxis.net/78-algorithmen-datenstrukturen-und-klassendesign/)
-   -   JSONMarshal/Unmarshal; TJSONObject.ParseJSONValue Parser Fehler bei NaN / MAXVALUE (https://www.delphipraxis.net/192071-jsonmarshal-unmarshal%3B-tjsonobject-parsejsonvalue-parser-fehler-bei-nan-maxvalue.html)

Rollo62 17. Mär 2017 17:03

JSONMarshal/Unmarshal; TJSONObject.ParseJSONValue Parser Fehler bei NaN / MAXVALUE
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo zusammen,

ich teste gerade die JSON Serializer, und denke das es ein Problem mit dem
Parsen von den Konstanten z.B. Double.NaN oder Double.MAXVALUE gibt.
Selbst Double.MAXVALUE-1 oder Single.MAXVALUE akzeptiert er nicht.

Dafür geht es aber mit Interger.MAXVALUE.

Normale Zahlen funktionieren hervorragend, aber die speziellen Konstanten machen Ärger.

Wie könnte ich den Parser überreden das NaN auch korrekt zu Parsen.
Womöglich geht das nur mit einem TJSONUnMarshal.RegisterReverter.

Falls jemand eine Lösung hate ich für einen Tip in die richtige Richtung sehr dankbar.

Anbei ein kleines Demo, mit verschiedenen Testfällen.

Rollo

Der schöne Günther 17. Mär 2017 17:27

AW: JSONMarshal/Unmarshal; TJSONObject.ParseJSONValue Parser Fehler bei NaN / MAXVALU
 
Über +/- INF und NaN kann man sich aber auch nicht beschweren, finde ich. Die sind zwar in der entsprechenden IEEE-Norm beschrieben, aber kein Teil von JSON.

Und mit Single.MaxValue habe ich kein Problem:
Delphi-Quellcode:
program Project19;

{$APPTYPE CONSOLE}

{$R *.res}


uses
   System.SysUtils,
   System.Json,
   System.Math;

procedure p();
var
   asFloat:      Single;
   asJson:         TJSONValue;
   asFloatAgain:   Single;
begin
   asFloat := Single.MaxValue;
   asJson := TJSONNumber.Create(asFloat);
   asFloatAgain := asJson.GetValue<Single>();

   Assert( SameValue(asFloat, asFloatAgain, Single.Epsilon) );
end;

begin
   p();
end.

Rollo62 17. Mär 2017 21:03

AW: JSONMarshal/Unmarshal; TJSONObject.ParseJSONValue Parser Fehler bei NaN / MAXVALU
 
Das scheint in der Parse Routine zu haken:

Delphi-Quellcode:
class function TTestMarshal_Parcel.Unmarshal_FromString(value: String): TTestMarshal_Parcel;
var
  LJson: TJSONObject;
begin
    LJson := TJSONObject.Create;

    try
        LJson := TJSONObject.ParseJSONValue( value ) as TJSONObject; // HIER komt nil

        Result := InternalUnmarshal_FromObject( LJson )

    finally
        LJson.Free;
    end;
end;
Wenn im Value NaN, oder sogar nur Single.MAXVALUE (natürlich als Zahl) steht kommt nil raus.
Andere Zahlen funktionieren.
Mit der Test-Anwendung kann man die Unterschiede sehen Test1 ist OK, die andenen stimmen nicht exakt überein.

Haben denn die JSON-Funktionen ganz andere Zahlenräume als die normalen Delphi Variablen ?
Ich bin davon ausgegaben das Objekte mit dem Serializer und Unserializer 1:1 hergestellt werden können, oder gibt es da ansonsten einen Fehler ?

Rollo

Zacherl 17. Mär 2017 21:13

AW: JSONMarshal/Unmarshal; TJSONObject.ParseJSONValue Parser Fehler bei NaN / MAXVALU
 
Zitat:

Zitat von Rollo62 (Beitrag 1364599)
Ich bin davon ausgegaben das Objekte mit dem Serializer und Unserializer 1:1 hergestellt werden können, oder gibt es da ansonsten einen Fehler ?

So sollte es in einer fehlerfreien Implementierung auch sein. Würde ich definitiv als Bug ansehen. Eine weitere "Eigenart" wurde letztens auch festgestellt: Und zwar werden leere Arrays nicht als "[]", sondern als "null" serialisiert (de-serialisiert aber zumindest korrekt).


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:47 Uhr.

Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf