Parse JSON with Web Core TMS

Question

I have a simple API call. When I do the call I know it's sending the correct data, because I get the correct response:

{
    "success": true,
    "data": {
        "accessToken": "eyJ0eXAiOiJKV1QiL....",
        "token_type": "bearer"
    },
    "message": "Login Successful"
}

But I cannot figure out how to save the accessToken value or the token_type value or even the success and message values. This is my current code:

procedure TForm1.WebButton1Click(Sender: TObject);
var
  AccessToken, TokenType: String;
begin
  AccessToken := '';
  TokenType := '';

  APIConnection.URL := 'https://aaa/api/login';
  APIConnection.Command := httpPOST;
  APIConnection.Headers.Clear;
  APIConnection.Headers.AddPair('Content-Type','application/json');
  APIConnection.Headers.AddPair('Accept','application/json, text/plain, */*');
  APIConnection.PostData := '{"email":"[email protected]","password":"123456789"}';
  APIConnection.Execute(
    procedure(AResponse: String; AReq: TJSXMLHttpRequest)
    var
      js: TJSON;
      ja: TJSONArray;
      jo: TJSONObject;
      i: Integer;
    begin
      js := TJSON.Create;

      try
        ja := TJSONArray(js.Parse(AResponse));

        ShowMessage('Retrieved items:' + IntToStr(ja.Count));

        for i := 0 to ja.Count - 1 do
        begin
          jo := TJSONObject(ja.Items[i]);
          WebListBox1.Items.Add(jo.GetJSONValue('data'));
        end;
      finally
        js.Free;
      end;
    end
  );
end;

I did a test to see what the Response was reading, and maybe this is the issue? But the response value is blank, but the Response value in debugger is correct.

procedure TForm1.APIConnectionRequestResponse(Sender: TObject;
  ARequest: TJSXMLHttpRequestRecord; AResponse: string);
var
JS : TJSON;
begin
   JS := TJson.Create;
   showmessage('Response: '+AResponse+'  :END');

end;

It seems that the JSON does not contain an array but an object (with data being another object). See stackoverflow.com/questions/12289844/… — mjn
– mjn, Commented Feb 1, 2024 at 15:24
So I need an array of jsonobects, then parse the jsonobject data? Still not sure how to do this.. — user41758
– user41758, Commented Feb 1, 2024 at 16:47

Matthias B · Accepted Answer · 2024-02-01 19:27:20Z

-1

Your example JSON does not contain any array. Instead, your JSON contans an object, with key-value pairs. You can get the values like this:

uses
  System.JSON;

procedure(const AResponse: string; AReq: TJSXMLHttpRequest);
var
  jv: TJSONValue;
  AccessToken, TokenType: string;
begin
  jv := TJSONObject.ParseJSONValue(AResponse);

  AccessToken := jv.FindValue('data').FindValue('accessToken').AsType<string>;
  TokenType := jv.FindValue('data').FindValue('token_type').AsType<string>;

  WebListBox1.Items.Add(AccessToken);
  WebListBox1.Items.Add(TokenType);
end;

I don't know how to handle Boolean (except simplistically handling it as a string). Maybe some else can extend this answer.

edited Feb 1, 2024 at 19:27

answered Feb 1, 2024 at 17:30

Matthias B

1,26910 silver badges19 bronze badges

Sign up to request clarification or add additional context in comments.

4 Comments

user41758 Over a year ago

What unit is ParseJSONValue() in ? Weblib.JSON?

Matthias B Over a year ago

@user41758 It's in System.JSON. I added it to the code now.

user41758 Over a year ago

Ahh, With WebApp you can not use System.JSON

Matthias B Over a year ago

@user41758 Ahh ... I missed the TMS Web Core part. Then my answer is not the answer to your question - sorry.

Collectives™ on Stack Overflow

Parse JSON with Web Core TMS

1 Answer 1

4 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

4 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related