Small and medium business | Business Central, N...

The request body must contain the following parameter: 'grant_type'

(0) Share

Report

Posted on by TAHER El Mehdi

I want to get access token:

I already did all steps to get client_id, client_secret and ressource and with grant_type as client_credentials and sent them all to get access token.

I test that on postman and work as expected and return that access token which I want to use dealing with sharepoint.

I want to simulate that request with AL code

But won't work and show me that body must contain the following parameter: 'grant_type'

even though I only just send that grant_type

code:

    procedure GetToken()
    var
        Request: HttpRequestMessage;
        Response: HttpResponseMessage;
        Client: HttpClient;
        Content: HttpContent;
        Headers: HttpHeaders;
        contentJSON: Text;
        myJson: Text;
        link: Text;
        MyJobject: JsonObject;
        PayloadOutStream: OutStream;
        PayloadInStream: InStream;
    begin
        link := 'https://accounts.accesscontrol.windows.net/c________________________b/tokens/OAuth/2';
        Headers.Clear();
        Request.GetHeaders(Headers);
        // Headers.Add('Content-Type', 'multipart/form-data');
        Request.SetRequestUri(link);
        Request.Method := 'POST';
        contentJSON := '{"grant_type":"client_credentials"}';
        Message(contentJSON);
        Content.WriteFrom(contentJSON);
        Request.Content := Content;
        Client.Send(Request, Response);
        if Response.IsSuccessStatusCode() then
            Message('Yes');
        Response.Content().ReadAs(myJson);
        Message(myJson);
    end;

Any help is much appreciated!

I have the same question (0)

All responses (3)

Answers (0)

Suggested answer

Marco Mels on at

Like (0)

Report

Hello,

We currently do not have dedicated Dev support via the Dynamics 365 Business Central forums, but I wanted to provide you some additional resources to assist. If you need assistance with debugging or coding I would recommend discussing this on one of our communities.

www.yammer.com/dynamicsnavdev

www.dynamicsuser.net/.../14

I will open this up to the community in case they have something to add.

Thanks.

Was this reply helpful? Yes No

Suggested answer

Nitin Verma

21,698 Moderator on at

Like (0)

Report

Hi,

Please match all your Header property with below.

Bearer := 'Bearer ' + BearerToken;

lHeaders.Clear();

lContent.GetHeaders(lHeaders);

lHeaders.Remove('Content-Type');

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

lreqHeaders := lClient.DefaultRequestHeaders();

lreqHeaders.Add('Authorization', Bearer);

lreqHeaders.Remove('Accept');

lreqHeaders.Add('Accept', 'application/json');

lRequest.GetHeaders(lReqHeaders);

lContent.GetHeaders(lHeaders);

lRequest.Method := 'POST';

lRequest.SetRequestUri(lUrl);

lRequest.GetHeaders(lReqHeaders);

Was this reply helpful? Yes No

Alberto Gallen 5 on at

Like (0)

Report

Hi

In this example i changed formdata by x-www-form-urlencoded, and HttpClient.Send() by HttpClient.Post()

See the code, this example get token for a Library Document al SharePoint Site works for me, maybe it will help you

procedure CallGetResponseToken(): Text

var

HttpClient: HttpClient;

HttpContent: HttpContent;

HttpResponseMessage: HttpResponseMessage;

HttpHeaders: HttpHeaders;

Url: Text;

formdata: Text;

ResponseText: Text;

StatusCodeErr: Label 'Status code: %1\ Description: %2 \%3', comment = 'ESP="Status code: %1\ Description: %2 \%3"';

begin

Url := Url_Oauth2Token();

formdata := FormData_Oauth2Token(SPLDSite::PurchDocuments);

HttpContent.WriteFrom(formdata);

HttpContent.GetHeaders(HttpHeaders);

HttpHeaders.Clear();

HttpHeaders.Add('Content-Type', 'application/x-www-form-urlencoded');

HttpClient.Post(Url, HttpContent, HttpResponseMessage);

If not HttpResponseMessage.IsSuccessStatusCode() then begin

HttpResponseMessage.Content.ReadAs(formdata);

Error(StatusCodeErr, HttpResponseMessage.HttpStatusCode(), HttpResponseMessage.ReasonPhrase(), formdata);

end;

HttpResponseMessage.Content().ReadAs(ResponseText);

exit(ResponseText);

end;

local procedure Url_Oauth2Token() UrlOauth2Token: Text

var

SPLDSetup: Record SPLDSetup;

TenantID: Text;

begin

SPLDSetup.Get(SPLDSite::None);

SPLDSetup.TestField(TenantID);

SPLDSetup.TestField(UrlOAuth2Token);

TenantID := SPLDSetup.TenantID;

UrlOauth2Token := StrSubstNo(SPLDSetup.UrlOAuth2Token, TenantID);

end;

local procedure FormData_Oauth2Token(_SPLDSite: Enum SPLDSite) FormDataOauth2Token: Text

var

SPLDSetup: Record SPLDSetup;

ClientID: Text;

ClientSecret: Text;

scope: Text;

grant_type: Text;

tb: TextBuilder;

begin

SPLDSetup.Get(_SPLDSite);

SPLDSetup.TestField(ClientID);

SPLDSetup.TestField(ClientSecret);

SPLDSetup.TestField(UrlOAuth2Scope);

scope := SPLDSetup.UrlOAuth2Scope;

grant_type := 'client_credentials';

ClientID := SPLDSetup.ClientID;

ClientSecret := SPLDSetup.ClientSecret;

tb.AppendLine('grant_type=' + grant_type);

tb.AppendLine('&' + 'client_id=' + ClientID);

tb.AppendLine('&' + 'client_secret=' + ClientSecret);

tb.Append('&' + 'scope=' + scope);

FormDataOauth2Token := tb.ToText();

end;

Was this reply helpful? Yes No

Join the conversation

Community site session details

The request body must contain the following parameter: 'grant_type'

Helpful resources

Quick Links

Responsible AI policies

Neeraj Kumar – Community Spotlight

Congratulations to the November Top 10 Community Leaders!

Leaderboard > Small and medium business | Business Central, NAV, RMS

Featured topics

Product updates

Community site session details

The request body must contain the following parameter: 'grant_type'

Helpful resources

Quick Links

Responsible AI policies

Neeraj Kumar – Community Spotlight

Congratulations to the November Top 10 Community Leaders!

Subscribe to this forum!

Select categories

Leaderboard > Small and medium business | Business Central, NAV, RMS

Featured topics

Product updates