HTTP GET Authorization problem

(0) Share

Report

Posted on by Alzack18

Hello!

I have a problem with a GET query.

POST queries work without any problem while GET has an authorization error. My code:

procedure GetProductInfo(_ItemId: Integer; _Token: Text)
var
    Client: HttpClient;
    Request: HttpRequestMessage;
    Response: HttpResponseMessage;
    Headers: HttpHeaders;
    Uri: Text;
    FullToken: Text;
    ResponseTxt: Text;
    Json: JsonObject;
begin
    Uri := 'https://myaddress.com/product/'   Format(_ItemId);
    FullToken := 'Bearer '   Format(_Token);

    Request.Method := 'GET';
    Request.SetRequestUri(Uri);
    Headers.Add('Authorization', FullToken);
    Request.GetHeaders(Headers);
    Client.Send(Request, Response);

    if Response.IsSuccessStatusCode() then begin
        Response.Content.ReadAs(ResponseTxt);
        Json.ReadFrom(ResponseTxt);

        ProductId := GetJsonTextField(Json, 'product_id');
        ProductCode := GetJsonTextField(Json, 'code');
        Evaluate(Stock, GetJsonTextField(Json, 'stock'));

        Message('Good');
    end
    else
        Message('Bad');
end;

Error: HTTP 401

Everything works fine in Postman.

Best Regards

I have the same question (0)

All responses (3)

Answers (0)

Suggested answer

Nitin Verma 21,708 Moderator on at

Like (1)

Report

Hi,

Please try this

http_Content.GetHeaders(http_Header);

http_Header.Clear();

http_Client.DefaultRequestHeaders.Add('Authorization', 'Bearer ' + APIKey + '');

http_Header.Add('Content-Type', 'application/json');

if http_Client.get(APIURL, httpResMsg) then

Was this reply helpful? Yes No
Alzack18 67 on at

Like (1)

Report
Thank you for response! I changed

Headers.Add('Authorization', FullToken);

to

Client.DefaultRequestHeaders.Add('Authorization', FullToken);

Problem solved!

Was this reply helpful? Yes No
Suggested answer

Nitin Verma 21,708 Moderator on at

Like (1)

Report

Great.

Was this reply helpful? Yes No