JSON Add auch mit Objekts?

[Knutifrutti]

Hi Leute,

wie erzeuge ich so etwas in JSON Builder:

Code:

{
  "NAME": "Wert",
  "METADATA": {
    "start_datetime": "2023-11-01 17:46:55.843",
    "end_datetime": "2023-11-24 09:11:03.101",
    "origin_file": "FileName.Par",
    "pm_version": "V8.5.5",
  },
  ....
}

Die Frage zielt darauf ab, wie ich mit nach diesem Verfahren
https://docwiki.embarcadero.com/Code...TL.JSONBuilder
mit Add() ein TPair mit einem JSON-Object (mit geschweiften Klammern) anstelle einem TPair mit Key/Value hinzufügen kann.
Value darf nur Integer usw. sein?
Für Hinweise wäre ich dankbar.

Knutifrutti.

[Der schöne Günther]

Du kannst bei System.Json.TJsonObject ein fertiges Objekt mit AddPair(..) hinzufügen, mit dem TPairs.Add(..) aus System.Json.Builders aber komischerweise nicht.

Komische Überladungen für Dinge von denen ich noch nie gehört habe wie TJsonCodeWScope oder TJsonOid , aber TJsonValue hatten sie nicht auf dem Schirm...

[Rolf Frei]

Du kannst bei BeginObject einen Namen (KEY) mitgeben:

Delphi-Quellcode:

uses
  System.DateUtils,
  System.JSON.Types,
  System.JSON.Writers,
  System.JSON.Builders;

procedure TForm1.FormCreate(Sender: TObject);
var
  Builder: TJSONObjectBuilder;
  Writer: TJsonTextWriter;
  StringWriter: TStringWriter;
  StringBuilder: TStringBuilder;

begin
  StringBuilder := TStringBuilder.Create;
  StringWriter := TStringWriter.Create(StringBuilder);
  Writer := TJsonTextWriter.Create(StringWriter);
  Writer.Formatting := TJsonFormatting.Indented;
  Builder := TJSONObjectBuilder.Create(Writer);

  Builder
    .BeginObject
      .Add('NAME','Wert')
      .BeginObject('METADATA')
        .Add('start_datetime', Now)
        .Add('end_datetime', IncHour(Now))
        .Add('origin_file', 'FileName.Par')
        .Add('pm_version', 'V8.5.5')
      .EndObject
    .EndObject;

  Memo1.Lines.Text := StringBuilder.ToString;
end;

Das erzeugt foglenden JSON:

Code:

{
    "NAME": "Wert",
    "METADATA": {
        "start_datetime": "2024-07-16T17:53:21.157+02:00",
        "end_datetime": "2024-07-16T18:53:21.157+02:00",
        "origin_file": "FileName.Par",
        "pm_version": "V8.5.5"
    }
}

[Knutifrutti]

Vielan Dank, die Herren.
Ich melde mich, wenn ich es erfolgreich umsetzen konnte.

[Knutifrutti]

So, hier das Ergebnis:
BeginObject mit einem Key ist die (einfache) Lösung.

[Der schöne Günther]

Ja, aber das stand doch schon (sogar ohne zu scrollen) direkt auf der Seite, welche du in deinem ersten Beitrag auch gepostet hattest? 🤔