TJSON.JSONToObject DateTime als LocalTime

[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:

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

[Hobbycoder]

Zitat von Olli73:

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

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

Danke Das war's. Klingt eigentlich logisch, hab ich nur igendwie nicht dran gedacht.

Aber, und das finde ich jetzt merkwürdig, wenn ich joDateIsUTC verwende, erhalte ich am Server eine Stunde zu wenig. Wenn ich joDateFormatISO8601 verwende, dann stimmt die Zeit auf beiden Seiten. (Jetzt natürlich mit Umrechnung LocalToUTC am Client bevor die Uhrzeit ins Object geschrieben wird, und UTCToLocal am Server nach dem die Uhrzeit aus dem Object gelesen wurde)

[Uwe Raabe]

Zitat von Hobbycoder:

wenn ich joDateIsUTC verwende, erhalte ich am Server eine Stunde zu wenig. Wenn ich joDateFormatISO8601 verwende, dann stimmt die Zeit auf beiden Seiten. (Jetzt natürlich mit Umrechnung LocalToUTC am Client bevor die Uhrzeit ins Object geschrieben wird, und UTCToLocal am Server nach dem die Uhrzeit aus dem Object gelesen wurde)

Wenn du joDateIsUTC angibst, dann sagst du lediglich, dass die Zeiten in den Objektfeldern in UTC vorliegen (ToJSON) bzw. geschrieben werden sollen (FromJSON). Das JSON-Format wird nur durch joDateFormatISO8601 beeinflusst. Beide Optionen sind voneinander unabhängig.