Delphi Json Tutorial hilfe

[Nine9]

Guten Tag liebe Community,

ich habe eine Frage und zwar hat jemand eventuell einen Link einer Seite mit einem Tutorial wie man schritt für Schritt lernt
eine Json Datei zu erzeugen, befüllen/Ändern & auszulesen wie mit einer ini?

ich suche und finde leider nicht viel mit Delphi/Pascal

Grüße

[fisipjm]

Zitat von Nine9:

Guten Tag liebe Community,

ich habe eine Frage und zwar hat jemand eventuell einen Link einer Seite mit einem Tutorial wie man schritt für Schritt lernt
eine Json Datei zu erzeugen, befüllen/Ändern & auszulesen wie mit einer ini?

ich suche und finde leider nicht viel mit Delphi/Pascal

Grüße

Hi,

was brauchst du denn genau? Das hilft nicht?
https://www.json.org/json-en.html
https://docwiki.embarcadero.com/RADS...andria/de/JSON
https://docwiki.embarcadero.com/Code...RTL.JSONWriter
https://docwiki.embarcadero.com/Code...RTL.JSONReader
https://www.youtube.com/watch?v=K-GzEa2U-xM

Die Delphi Doku ist ja wirklich manchmal nicht sehr ausführlich, aber gerade beim Thema JSON wirst du zugeworfen mit Infos.

vG
PJM

[Nine9]

Ich Danke dir aber die kenne ich leider schon und trotzdem blick ich nicht wirklich durchs Fenster.^^

vll kann mir jemand ein kleines beispiel einbauen wodurch ich mit der Eingabe bei Edit1 und 2 per Button werte in eine bestehende Json datei einlese.

Delphi-Quellcode:

unit Unit4;

interface

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


type
  TForm4 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form4: TForm4;


implementation


{$R *.dfm}



procedure TForm4.Button1Click(Sender: TObject);
begin

end;




procedure TForm4.FormActivate(Sender: TObject);
begin
 ListBox1.Items.Clear;




end;

end.

[Edelfix]

Wie sieht die "bestehende Json datei" aus?

[LoZe]

Vielleicht Hilft das
https://jsontodelphi.com/
du fügst deinen JSON ein und bekommst eine Klasse mit Load und Save Funktion

Json:

Code:

  {
    "Value1":1,
    "Value2":"Str"
  }

Delphi-Quellcode:

unit RootUnit;

interface

uses
  Pkg.Json.DTO, System.Generics.Collections, REST.Json.Types;

{$M+}

type
  TRoot = class(TJsonDTO)
  private
    FValue1: Integer;
    FValue2: string;
  published
    property Value1: Integer read FValue1 write FValue1;
    property Value2: string read FValue2 write FValue2;
  end;
  
implementation

end.

der Aufruf erfolgt dann mit

Delphi-Quellcode:

Var 
  Obj:TRoot;
begin
  Obj:= TRoot.Create;
  Obj.AsJson := Edit1.Text;

(ungetestet nur ein grobes Beispiel)

[Edelfix]

Das ist ja ein super Link (https://jsontodelphi.com/)

Gibt es so etwas auch für XML?

[Nine9]

Vielen Dank :]

[TurboMagic]

Zitat von Edelfix:

Das ist ja ein super Link (https://jsontodelphi.com/)

Gibt es so etwas auch für XML?

Wenn ich das richtig weiß, ja. Wäre dann sogar bei Delphi dabei und nennt sich XMLMapper. In Tools/GetIt ist glaube ich ein Update dafür drin.
Uwe Raabe weiß glaube ich mehr...

[Uwe Raabe]

Zitat von TurboMagic:

Uwe Raabe weiß glaube ich mehr...

Das ist schon möglich, aber nicht sonderlich viel zu diesem Thema. Mein Beitrag dazu war nur marginal.

Der XMLMapper ist eher für ein Mapping zwischen XML und TDataSet gedacht: XMLMapper verwenden

[TurboMagic]

Naja, aber würde man dann nicht mit dem TDataSet die XML Datei auslesen können?