einfaches JSON Beispiel

[fabi17]

Hallo zusammen,

stehe mit JSON auf dem Kriegsuß, kann mir jemand bitte ein simples Beispiel für die Abfrage vom 2. "status" Feld geben? danke vorab!

Code:

{"status":"success","data":{"status":"online","benchmarking":"TEST","online":"connected"}}

danke!

[DeddyH]

Ohne jede Fehlerbehandlung:

Delphi-Quellcode:

uses System.JSON;

const _JSON = '{"status":"success","data":{"status":"online","benchmarking":"TEST","online":"connected"}}';

procedure TFormTest.btnTestClick(Sender: TObject);
var
  lOuterObj: TJSONObject;
  lInnerObj: TJSONObject;
begin
  lOuterObj := TJSONObject.ParseJSONValue(_JSON) as TJSONObject;
  try
    lInnerObj := lOuterObj.Values['data'] as TJSONObject;
    ShowMessage(lInnerObj.Values['status'].Value);
  finally
    lOuterObj.Free;
  end;
end;

[Der schöne Günther]

Alternative:

Delphi-Quellcode:

program Project1;

{$R *.res}

uses System.SysUtils, System.JSON;

const
   input = '{"status":"success","data":{"status":"online","benchmarking":"TEST","online":"connected"}}';
var
   jsonObj: TJsonObject;
   status: String;
begin
   jsonObj := TJSONObject.ParseJSONValue(input) as TJsonObject;
   if(not Assigned(jsonObj)) then
      WriteLn('input is no valid json object')
   else
      try
         status := jsonObj.GetValue<String>('data.status');
         WriteLn('status is ', status);
      finally
         jsonObj.Destroy();
      end;
end.

[fabi17]

Zitat von Der schöne Günther:

Alternative:

Delphi-Quellcode:

program Project1;

{$R *.res}

uses System.SysUtils, System.JSON;

const
   input = '{"status":"success","data":{"status":"online","benchmarking":"TEST","online":"connected"}}';
var
   jsonObj: TJsonObject;
   status: String;
begin
   jsonObj := TJSONObject.ParseJSONValue(input) as TJsonObject;
   if(not Assigned(jsonObj)) then
      WriteLn('input is no valid json object')
   else
      try
         status := jsonObj.GetValue<String>('data.status');
         WriteLn('status is ', status);
      finally
         jsonObj.Destroy();
      end;
end.

ahhh, das "data.status" hatte ich nicht so....


Danke an beide! So langsam begreife ich es mal...