über TJsonTextWriter erzeugten Datetime-Wert korrekt einlesen

[juergen]

Hallo zusammen,

ich schreibe in eine Json-Datei einen TDatetime-Wert.

Delphi-Quellcode:

VAR
  Writer: TJsonTextWriter;
  StringWriter: TStringWriter;
BEGIN
  StringWriter := TStringWriter.Create( );
  Writer := TJsonTextWriter.Create( StringWriter );

  Writer.Formatting := TJsonFormatting.Indented;

  Writer.WriteEndObject;

  Writer.WritePropertyName( 'TimestampFromLastFile' );
  Writer.WriteValue( g_JsonSettingsParams.DatetimeFromLastReadFile.Now() );
  Writer.WriteEndObject;
...
END;

Damit habe ich in der Json-Datei folgenden Wert:

Code:

"2024-05-24T22:13:20.013+02:00"

Dann lese ich den Wert auch wieder aus.

Delphi-Quellcode:

VAR
  my_jsonObj: TJSONObject;
  lDateTime_tmp: TDatetime;
BEGIN
  IF FileExists( frm_ReadPDFFieldsInTable.gs_PathAndFileNameFromSettingJson ) THEN
  BEGIN
    my_jsonObj := TJSONObject.ParseJSONValue( TFile.ReadAllText( ExtractFilePath( ParamStr( 0 ) ) + 'Settings.json', TEncoding.UTF8 { * } ) ) AS TJSONObject;
...
    IF my_jsonObj.TryGetValue<TDateTime>( 'Settings.TimestampFromLastFile', lDateTime_tmp ) THEN
        g_JsonSettingsParams.DatetimeFromLastReadFile := lDateTime_tmp;
...
  END;
END;
...

Wenn ich folgendes verwende, fehlen 2 h.
Memo1.Lines.Add( DateTimeToStr( uReadAndBuildJson.g_JsonSettingsParams.DatetimeFromLastReadFile, TFormatSettings.Invariant ) ); Ergibt den Wert:

Code:

05/24/2024 20:13:20

Wie bekomme ich diesen Wert korrekt ausgelesen?

Vielen Dank schon mal vorab.

[juergen]

Eine Möglichkeit wäre:

Delphi-Quellcode:

// IF my_jsonObj.TryGetValue<TDatetime>( 'Settings.TimestampFromLastFile', lDateTime_tmp ) THEN
         IF my_jsonObj.TryGetValue<String>( 'Settings.TimestampFromLastFile', lString_tmp ) THEN
           BEGIN
             g_JsonSettingsParams.DatetimeFromLastReadFile :=  ISO8601ToDate(lString_tmp , false );

Allerdings fehlen mir jetzt noch die Millisekunden.

[Uwe Raabe]

Zitat von juergen:

Allerdings fehlen mir jetzt noch die Millisekunden.

Woran siehst du das? Zumindest unter D12.1 funktioniert das:

Delphi-Quellcode:

  var S := '2024-05-24T22:13:20.013+02:00';
  var dt: TDateTime := ISO8601ToDate(S, False);
  S := FormatDateTime('dd/mm/yyyy hh:mm:ss.zzz', dt); // = '24.05.2024 22:13:20.013'

[juergen]

Guten Morgen Uwe,

Zitat von Uwe Raabe:

Woran siehst du das?

Ich hatte folgendes für die Darstellung angewendet:

Memo1.Lines.Add( DatetimeToStr( uReadAndBuildJson.g_JsonSettingsParams.DatetimeFromLastReadFile, TFormatSettings.Invariant ) ); Mit deinem Vorschlag funktioniert es. Mir war nicht bewußt, dass DatetimeToStr() das so verkürzt ausgibt.

Memo1.Lines.Add( FormatDatetime('YYYYY-MM-DD HH:NN:SS.zzz', uReadAndBuildJson.g_JsonSettingsParams.DatetimeFromLastReadFile) );
Danke für den Schubs und ein schönes Wochenende!

[himitsu]

Du solltest mal beim FormatSetting reinsehn.
Beim kurzen (HH:MM) und langen Zeitformat (HH:MM:SS) gibt es standardmäßig keine ZZZ