TJSONToObject Performance

[Olli73]

Wie sieht denn deine Klasse aus?

Und irgendwie müsstest du die Länge / Kapazität des Arrays vorher passend setzen, damit es nicht ständig vergrößert werden muss.

[fisipjm]

Moin Olli,

die Klasse sieht so aus:

Delphi-Quellcode:

type
TArrayClass<T: Class> = class
    private
        fObjects: TArray<T>;
    public
        property Objects: TArray<T> read fObjects write fObjects;
    end;


 TBaseClass = class
    private
        fValue1: string;
        fValue2: string;
        fValue3: string;
        fValue4: string;
        fValue5: string;
    public
        property Value1: string read fValue1 write fValue1;
        property Value2: string read fValue2 write fValue2;
        property Value3: string read fValue3 write fValue3;
        property Value4: string read fValue4 write fValue4;
        property Value5: string read fValue5 write fValue5;
    end;

TExtenderClass = class(TBaseClass)
    private
        fValue6: string;
        fValue7: string;
        fValue8: string;
        fValue9: string;
    public
        property Value6: string read fValue6 write fValue6;
        property Value7: string read fValue7 write fValue7;
        property Value8: string read fValue8 write fValue8;
        property Value9: string read fValue9 write fValue9;
    end;

TCompleteList = class(TArrayClass<TExtenderClass>);

....
var
  lList: TCompleteList;
...

  lList:= TJson.JsonToObject<TCompleteList>(MyJSONString);
...

[fisipjm]

Zitat von Olli73:

Und irgendwie müsstest du die Länge / Kapazität des Arrays vorher passend setzen, damit es nicht ständig vergrößert werden muss.

Hab ich versucht, ändert aber nichts. Im Gegenteil, der Prozess die Gesamtlänge herauszufinden und das Array entsprechend zu setzen bringt mir eine weitere Sekunde Wartezeit ein.

[Olli73]

Ich kenn das nur so:

Delphi-Quellcode:

TCompleteList = class
    FObjects: TArray<TExtenderClass>;
  end;

Macht DAS einen Unterschied?

[fisipjm]

Zitat von Olli73:

Ich kenn das nur so:

Delphi-Quellcode:

TCompleteList = class
    FObjects: TArray<TExtenderClass>;
  end;

Macht DAS einen Unterschied?

Nein, kein Unterschied.

[Uwe Raabe]

Bei Performanceproblemen gibt es viele mögliche Ursachen. Könntest du einen konkreten Testfall mit dem entsprechenden JSON erstellen mit dem wir das nachstellen können?

[fisipjm]

Zitat von Uwe Raabe:

Bei Performanceproblemen gibt es viele mögliche Ursachen. Könntest du einen konkreten Testfall mit dem entsprechenden JSON erstellen mit dem wir das nachstellen können?

Kurz was zusammengewürfelt.
Hier wird der Unterschied sogar noch viel deutlicher.

[Uwe Raabe]

Es ist wohl richtig, dass eine direkte Verarbeitung des JSONObject schneller ist als das RTTI-basierte JsonToObject. Selbst bei der Umwandlung der einzelnen Values weißt du ja schon, dass es sich um Strings handelt und kannst das durch den gezielten Aufruf von TryGetValue<string> ausnutzen, während andernfalls immer der Umweg über TValue erfolgen muss.

Also, ja, direkt das JSON abzuarbeiten ist deutlich performanter - aber eben auch aufwändiger und schlechter wartbar. Du musst halt abwägen.

[mytbo]

Zitat von fisipjm:

Kurz was zusammengewürfelt.
Hier wird der Unterschied sogar noch viel deutlicher.

Die Werte für mORMot für den Test im Anhang liegen zwischen 150 und 300 Millisekunden. Du kannst auch deine Testdatei speichern und in den JsonViewer aus diesem Artikel laden. Die Ladezeit wird links unten eingeblendet.

Bis bald...
Thomas