TDate im Json

[Incocnito]

Hi Zusammen,

ich habe eine Klasse, die ein TDate enthällt, was
durch TJSON.ObjectToJsonString(obj)
irgendwann mal als '{"Wert":44298}' konvertiert wurde.
Jetzt bekomme ich bei "TJSON.JsonToObject<>()" aber die
Fehlermeldung, dass "44298" ein ungültiger Datums-String ist.

Ich hatte mich schon an einem Json-Attribute versucht, aber
ich verstehe überhaubt nicht, was da passiert.

Offensichtlich hilft das hier nicht weiter:

Delphi-Quellcode:

type
  JsonMyDateAttribute = class(JsonReflectAttribute)
  public
    constructor Create();
  end;

type
  TMyDateInterceptor = class(TJSONInterceptor)
  public
    function StringConverter(Data : TObject; Field : String) : String; override;
    procedure StringReverter(Data : TObject; Field : String; Arg : String); override;
  end;
...

{ JsonMyDateAttribute }

constructor JsonMyDateAttribute.Create();
begin
  inherited Create(ctObject, rtString, TMyDateInterceptor);
end;

{ TMyDateInterceptor }

function TMyDateInterceptor.StringConverter(Data : TObject; Field : String) : String;
var
  ctx    : TRTTIContext;
  sValue : String;
begin
  sValue := ctx.GetType(Data.ClassType).GetField(Field).GetValue(Data).AsType<String>;
  Result := DateToISO8601(StrToFloatDef(sValue, 0));
end;

procedure TMyDateInterceptor.StringReverter(Data : TObject; Field : String; Arg : String);
var
  ctx   : TRTTIContext;
  dtVal : TDate;
begin
  dtVal := StrToFloatDef(Arg, 0);
  ctx.GetType(Data.ClassType).GetField(Field).SetValue(Data, dtVal);
end;

Weiter bin ich mit Google nicht gekommen und ich verstehe auch nicht wirklich, was da passiert.
Er läuft da beim Aufruf von JsonToObject zwar rein und in dtVal steht dann auch ein brauchbares Datum,
aber letztlich kommt der gleiche Fehler.
Nebenbei wüsste ich als auch gerne, was denn die korrekte Speicherart von TDate sein soll.
An anderer Stelle (einem FMX-Programm) kann ich ein Array of TDate aber problemlos auslesen,
wenn die Werte als Integer im Json-String "gespeichert" sind.

Liebe Grüße
Incocnito

[Uwe Raabe]

Was steht denn bei StringReverter in Arg genau drin?

[Incocnito]

Im StringReverter in Arg steht "44298".

[Rollo62]

Zitat von Incocnito:

Im StringReverter in Arg steht "44298".

Das sieht aber nicht wie ein Datum aus.
Vielleicht nochmal löschen und neu mit dem Converter Speichern.

[Incocnito]

Ja, nur sind das leider echte Kundendaten. Die kann ich nicht löschen. -.-

[Incocnito]

Alles zurück, ich behaupte das Gegenteil!
Ich bin so blind!
Ich hatte in der Json-Struktur nicht nur 1 Datumsfeld, sondern zwei.
Da aber in beiden die gleiche Zahl stand, hatte ich gedacht, er beschwert sich über Datumsfeld1 und nicht weiter geschaut.
Jetzt habe ich dem zweiten Datumsfeld auch das JsonAttribute gesetzt, nun geht es ... als nächstes noch schauen, dass er auch
neu erstellte Json einlesen kann ...

[Incocnito]

Jetzt steht beim Speichern "null" für den Wert.
Was ist dann jetzt wieder passiert? Ich hätte schwören können vor 5 Minuten tat das noch!

[Rollo62]

Zitat von Incocnito:

Ich hatte in der Json-Struktur nicht nur 1 Datumsfeld, sondern zwei.

Wie sehen die Daten da drin denn aus, kann es sein das dies in TDate und TTime getrennt gespeichert wurde ?

[Incocnito]

Nein, es gibt kein TTime. Dann hätte ich ein TDateTime genommen und nicht 2 Felder.
Aber spielt das denn eine Rolle?

Beim Auslesen läuft er in StringReverter und beim Speichern in ObjectConverter,
das verwirrt mich auch gerade.
Ich musste für das Feld
[JsonMyDate] [JSONReflect(ctString, rtString, TMyDateInterceptor)]
angeben.

Ah! Jetzt seh' ich's ... im Attrbute.Create steht ja auch "ctObject, rtString" ...
Wenn man nur kopiert, ohne zu verstehen, was da passiert! -.-

Frage: Werden Dates wirklich "2021-10-14T00:00:00.000Z" gespeichert?
Das sieht so falsch aus mit dem Zeitanteil.

[Incocnito]

Ich hänge mal mein aktuelles Test-Projekt an ...
dann kann das jeder nach belieben nachvollziehen.
Ist vielleicht auch ein gutes Projekt um in diese RTTI-Geschichte rein zu kommen.