einfaches JSON Beispiel

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