TJSON.JSONToObject DateTime als LocalTime

[DeddyH]

Delphi-Quellcode:

Result:=TJson.ObjectToJsonString(Self, [joIgnoreEmptyStrings, joIgnoreEmptyArrays]);

So müsste es IMHO richtig sein.

[Hobbycoder]

Zitat:

Zitat von Olli73 (Beitrag 1528827)

Was passiert wenn du "joDateIsUTC" abschaltest?

Ohne joDateIsUTC (

Delphi-Quellcode:

Result:=TJson.ObjectToJsonString(Self, [joIgnoreEmptyStrings, joIgnoreEmptyArrays]);

) wird folgender String gesendet: "2023-11-01T11:13:32.391+01:00" (empfangen wird jedoch nach JSONToObject "2023-11-01T11:13:32.391 01:00"- Statt dem + ist eine Leerstelle drin).

Mit oder ohne die funtion UTCToLocalTime erhalte ich dann eine Differenz von +2 Stunden. Also 13:13:32

[Olli73]

Wenn du "joDateIsUTC" verwendest, musst du (scheinbar) vor "ObjectToJSON" selber in UTC umrechnen. Ohne "joDateIsUTC" sollte einfacher sein...

[Olli73]

Und ggf. "joDateFormatISO8601" nutzen

[Hobbycoder]

UTC wäre schon gut, denn ich muss für den Realbetrieb die Zeitumrechnung für unterschiedliche zeitzonen berücksichtigen.

Von daher wäre eine Funktion UCTToLocalTime da recht nützlich.
Was mich wirklich wundert: Dieses Problem müsste ja eigenltich jeder haben, der die TJSON.ObjectToJSONString bzw. TJSON.JSONToObject nutzt und irgendwelche Zeitdaten überträgt.
Ich könnte natürlich auch die Zeit als String übertragen. Was aber mein Problem mit den Zeitzonen nicht berücksichtigt.

[Olli73]

Zitat:

Zitat von Hobbycoder (Beitrag 1528834)

UTC wäre schon gut, denn ich muss für den Realbetrieb die Zeitumrechnung für unterschiedliche zeitzonen berücksichtigen.

Wenn ja hinten "+01" z.B. dransteht, kann man ja immer noch umrechnen...

Zitat:

Zitat von Hobbycoder (Beitrag 1528834)

Ich könnte natürlich auch die Zeit als String übertragen. Was aber mein Problem mit den Zeitzonen nicht berücksichtigt.

Ist ja schon string:

https://docs.jsonata.org/date-time

JSON does not have a built-in type for date/time values. The general consensus is to store the date/time value as a string in ISO 8601 format.

[Uwe Raabe]

Zitat:

Zitat von Hobbycoder (Beitrag 1528834)

Was mich wirklich wundert: Dieses Problem müsste ja eigenltich jeder haben, der die TJSON.ObjectToJSONString bzw. TJSON.JSONToObject nutzt und irgendwelche Zeitdaten überträgt.

Die Methoden verhalten sich bei korrekter Anwendung auch richtig.

Delphi-Quellcode:

type
  TMyObject = class
  public
    FDt: TDateTime;
  end;

procedure Test();
begin
  var dt := EncodeDateTime(2023, 11, 1, 10, 52, 0, 0);
  var obj := TMyObject.Create;
  try
    obj.FDt := dt;
    var json := TJson.ObjectToJsonObject(obj, [joDateFormatISO8601]);
    Writeln(json.ToJSON);
    obj.FDt := 0;
    TJson.JsonToObject(obj, json, [joDateFormatISO8601]);
    if SameDate(obj.FDt, dt) then
      Writeln('OK')
    else
      Writeln('Fail');
  finally
    obj.Free;
  end;
end;

Ergibt

Zitat:

{"dt":"2023-11-01T10:52:00.000+01:00"}
OK

Kannst du mal ein konkretes Beispiel zeigen, mit dem das Problem reproduzierbar ist?

[Olli73]

Also bei mir funktioniert das hier auch (Delphi 11):

Delphi-Quellcode:

unit Unit7;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, REST.Json;

type
  TMyClass = Class
    Test: TDateTime;
  End;

  TForm7 = class(TForm)
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.btn1Click(Sender: TObject);
var
  dt: TDateTime;
  MyObj: TMyClass;
  S: String;
begin
  MyObj := TMyClass.Create;
  try
    MyObj.Test := Now;
    S := TJSON.ObjectToJsonString(MyObj, [joDateFormatISO8601]);
    ShowMessage(S);

    MyObj.Free;
    MyObj := TJson.JsonToObject<TMyClass>(S, [joDateFormatISO8601]);
    ShowMessage(DateTimeToStr(MyObj.Test));

  finally
    MyObj.Free;
  end;

end;

end.

[Hobbycoder]

Hier mal die Unit der Klasse

Delphi-Quellcode:

unit uUserstatus;

interface

uses System.Classes, system.sysutils, System.Generics.Collections, REST.Json;

type
  TUserStatus=(usStarted, usStopped, usInIdle, usInWork);

  TUserEntry=class
  private
    FDuration: Cardinal;
    FStatus: TUserStatus;
    FTime: TDateTime;
    FUsername: string;
    FGuid: string;
    FUserGuid: string;
    procedure SetDuration(const Value: Cardinal);
    procedure SetStatus(const Value: TUserStatus);
    procedure SetTime(const Value: TDateTime);
    procedure SetUsername(const Value: string);
    procedure SetGuid(const Value: string);
    procedure SetUserGuid(const Value: string);
  public
    procedure Assign(Source: TObject);
    function ToJson: string;
    procedure FromJson(Str: string);
  published
    property UserGuid: string read FUserGuid write SetUserGuid;
    property Guid: string read FGuid write SetGuid;
    property Username: string read FUsername write SetUsername;
    property Time: TDateTime read FTime write SetTime;
    property Status: TUserStatus read FStatus write SetStatus;
    property Duration: Cardinal read FDuration write SetDuration;
  end;

  TUserList=class(TObjectList<TUserEntry>)
  end;

implementation

{ TUserEntry }

procedure TUserEntry.Assign(Source: TObject);
begin
  if Source is TUserEntry then
  begin
    self.FUserGuid:=TUserEntry(Source).UserGuid;
    self.FGuid:=TUserEntry(Source).Guid;
    self.FUsername:=TUserEntry(Source).Username;
    self.FTime:=TUserEntry(Source).Time;
    self.FStatus:=TUserEntry(Source).Status;
    self.FDuration:=TUserEntry(Source).Duration;
  end;
end;

procedure TUserEntry.FromJson(Str: string);
var
  UE: TUserEntry;
begin
  UE:=TJson.JsonToObject<TUserEntry>(Str, [joIgnoreEmptyStrings, joIgnoreEmptyArrays]);
  try
    Self.Assign(UE);
  finally
    UE.Free;
  end;
end;

procedure TUserEntry.SetDuration(const Value: Cardinal);
begin
  FDuration := Value;
end;

procedure TUserEntry.SetGuid(const Value: string);
begin
  FGuid := Value;
end;

procedure TUserEntry.SetStatus(const Value: TUserStatus);
begin
  FStatus := Value;
end;

procedure TUserEntry.SetTime(const Value: TDateTime);
begin
  FTime := Value;
end;

procedure TUserEntry.SetUserGuid(const Value: string);
begin
  FUserGuid := Value;
end;

procedure TUserEntry.SetUsername(const Value: string);
begin
  FUsername := Value;
end;

function TUserEntry.ToJson: string;
begin
  Result:=TJson.ObjectToJsonString(Self, [joIgnoreEmptyStrings, joIgnoreEmptyArrays]);
end;

end.

Gesendet wirde über IdHTTP

Delphi-Quellcode:

    UEStr:=FUserEntry.ToJson;
    Response:=FHttp.Post('http://'+FHost+':'+FPort.ToString+TIdURI.ParamsEncode('/upe.php?userentry='+UEStr), ss);

und empfangen über IdHTTPServer

Delphi-Quellcode:

    UEStr:=ARequestInfo.Params.Values['userentry'];
    if UEStr<>'' then
    begin
      UE:=TUserEntry.Create;
      try
        UE.FromJson(UEStr);
        UserSettingsList.LoadFromFile(FPath+'usersettings.dat');
        DoUpdateEntry(UE);
      finally
        UE.Free;
      end;
    end;

[Olli73]

Wenn du UTC verwenden willst, musst du wohl vorher umrechnen:

Delphi-Quellcode:

UTCNow := TTimeZone.Local.ToUniversalTime(Now);