Fórum TRESTClient+TRESTRequest+TRESTResponse #563625

var
  lParams: TCollectionItem;
  lJSONObject: TJSONObject;
begin
  lJSONObject := TJSONObject.Create;
  try
    ResetRESTComponentsToDefaults;

    RESTClient.BaseURL := 'http://ws.hml.autorei.net/';
    RESTClient.Authenticator := HTTPBasicAuthenticator1;
    RESTClient.ContentType := 'application/x-www-form-urlencoded';

    RESTRequest.Method := TRESTRequestMethod.rmPOST;
    RESTRequest.Resource := 'oauth/token';

    lJSONObject.AddPair('scope', 'product:show stock:save stock:update warehouse:list warehouse:save warehouse:show '+
	                             'warehouse:update partnerOrder:show partnerOrder:list partnerOrder:update');
    lJSONObject.AddPair('grant_type', 'client_credentials');

    RESTRequest.Params.Clear;
    RESTRequest.Params.AddHeader('authorization', 'Basic '+Edt_Base64.Text);
    RESTRequest.AddBody(lJSONObject);

    HTTPBasicAuthenticator1.Username := 'orbid-hml';
    HTTPBasicAuthenticator1.Password := EmptyStr;
    RESTRequest.Execute;
  finally
    FreeAndNil(lJSONObject);
  end;
end;