Dear All ,I'm using below code to generate Access token in business central cloud. But its not generating token. Can anyone suggest how to achieve this in business central cloud
procedure MakeRequest(): Text;
var
client: HttpClient;
request: HttpRequestMessage;
response: HttpResponseMessage;
contentHeaders: HttpHeaders;
content: HttpContent;
RspJObject: JsonObject;
AccessToken, responseText, uri : Text;
begin
// Add the payload to the content
//content.WriteFrom(payload);
//Add uri
uri := 'gsp.adaequare.com/.../authenticate
// Retrieve the contentHeaders associated with the content
content.GetHeaders(contentHeaders);
contentHeaders.Clear();
contentHeaders.Add('Content-Type', 'application/json');
contentHeaders.Add('gspappid', 'XXX');
contentHeaders.Add('gspappsecret', 'YYY');
request.Content := content;
request.SetRequestUri(uri);
request.Method := 'POST';
if client.Send(request, response) then begin
// Read the response content as json.
response.Content().ReadAs(responseText);
RspJObject.ReadFrom(ResponseText);
AccessToken := ParseAuthTokenResponse(responseText);//Parse Json Response
//AccessToken := GetJsonTextField(RspJObject, 'access_token');
exit(AccessToken);
end;
end;
