JSON parsen Performance

[Nebilim]

Hi ihr JSON Profis,

ich bin wirklich ein Neuling im JSON.

ich bekomme ein JSON mit 75 einträgen á ca. 20 Key/Value paare.
Diese parse ich in Delphi in einer Schleife in einer TObjectList<TMyClass> und adde die 75 Klassen in die ObjectListe, damit ich die alle im zugriff habe. und wollte mir danach eine allgemeine klasse schreiben die aus eine OBjectList ein DataSet zurückgibt.

das ganze dauert schon 10 sec ohne das Dataset zu erzeugen, was mir ca. 9,5 sec zu lange dauert.

Mein primäres Ziel ist es die 75 Datensätze in ein Memorydataset o.ä. zu schreiben und an ein Grid zur Anzeige zu bringen.
Geht das ganze irgendwie schneller und besser? Ich will nämlich die ganze datenermittlung vom client weg auf den Server verlagern und benutze dazu JSON

Hoffe ihr versteht in etwa was ich möchte. Ich parse den JSON auch nur weil es so einfach geht mit dem richtigenaufbau der Klasse und TJson.JsonToObject<>

[Uwe Raabe]

Einen String mit einer Liste von Json-Objekten in ein TDataSet zu überführen geht am einfachsten mit einem TRESTResponseDataSetAdapter

[Bbommel]

Mal nur aus reiner Neugier nachgefragt, weil Uwe ja wahrscheinlich eh schon die passende Antwort geliefert hat:

Du schreibst, du würdest das JSON in einer Schleife parsen. Nutzt du dazu denn TJSONObject.ParseJSONValue oder machst du das irgendwie selber? Das würde mir nämlich etwas Sorgen machen, wenn TJSONObject.ParseJSONValue für 75 Datensätze mit je 20 Key/Wert-Paaren 10 Sekunden nur fürs Parsen brauchen würde.

[Nebilim]

ne wie ich beschrieben habe parse ich es direkt in eine Delphiklasse mit

Delphi-Quellcode:

lMyClass := TJson.JsonToObject<TmyCLass>(messagesJson.Items[i].ToString, [joDateIsUTC, joDateFormatISO8601])

die Klasse besitzt properties die automatisch geparst werden mit den Keys aus dem JSON weil ich die konventionen eingehalten habe.

[Nebilim]

Moin Uwe,

danke schonmal für die Nachricht, aber ich stehe damit gerade irgendwie auf dem kriegsfuß. Ich finde nicht heraus wie ich diese Komponente erfolgreich in einer Klasse ohne Oberfläche verwenden kann.

Kannst du mir da nochmal einen Denkanstoß geben?

[Redeemer]

Wie immer mit

Delphi-Quellcode:

Create(nil)

.