RESTRequest Timeout

[misc_bb 7]

We are currently working on migrating our project with a new authentication for the xero api. This code works find when we are using a Datasnap stand-alone application, but when we apply it in ISAPI DLL the RESTRequest.Execute line, it will just stop. I'm running out of options. I don't know if this is a bug or something but it works just find with the Stand-Alone application and localhost setup. But if we apply the DLL and using our web URL it just stop and doesn't continue at all. Any ideas would be greatly appreciated. Many thanks!

function TXero2.GetAccessToken(Authorization, sAuthCode, ReDirectURI: AnsiString): AnsiString;
begin
 TRY

  ResetRESTComponentsToDefaults;
  RESTClient.UserAgent := XeroUserAgent;
  RESTRequest.Client := RESTClient;

  RESTClient.BaseURL := XeroAPIIdentityURL;
  RESTClient.ContentType := 'application/x-www-form-urlencoded';
  RESTClient.Params.AddItem('Authorization', Authorization, TRESTRequestParameterkind.pkHTTPHEADER, [TRESTRequestParameterOption.poDoNotEncode]);
  RESTRequest.Resource := 'connect/token';

  RESTRequest.Params.AddItem('grant_type', 'authorization_code', TRESTRequestParameterKind.pkREQUESTBODY);
  RESTRequest.Params.AddItem('code', sAuthCode, TRESTRequestParameterKind.pkREQUESTBODY);
  RESTRequest.Params.AddItem('redirect_uri', ReDirectURI, TRESTRequestParameterKind.pkREQUESTBODY);

  RESTRequest.Method := TRESTRequestMethod.rmPOST;
  RESTRequest.Execute;

   result := Restresponse.Content;

 EXCEPT
      on e: Exception do
         Codesite.Send(ClassName + '.GetAccessToken: ' + e.Message);
   END;
end;

[misc_bb 7]

This post happens to resolved my issue. I did follow his code structure though. 

 

https://quality.embarcadero.com/browse/RSP-31067