Ola todos,
Estou precisando de fazer um acesso via rest no delphi um (GET) com autenticação (Bearer Token).
segue o modelo que não esta funcionando.
RESTClient1.ResetToDefaults;
RESTRequest1.ResetToDefaults;
RESTResponse1.ResetToDefaults;
RESTResponseDataSetAdapter1.ResetToDefaults;
RESTResponseDataSetAdapter1.Dataset := tb01;
RESTResponseDataSetAdapter1.ResponseJSON := RESTResponse1;
RESTClient1.BaseURL := URLBase;
RESTClient1.Accept := 'application/json, text/plain; q=0.9, text/html;q=0.8,';
RESTClient1.AcceptCharset := 'UTF-8, *;q=0.8';
RESTClient1.ContentType := CONTENTTYPE_APPLICATION_JSON;
RESTClient1.HandleRedirects := True;
RESTClient1.RaiseExceptionOn500 := false;
RESTRequest1.Client := RESTClient1;
RESTRequest1.Method := TRESTRequestMethod.rmGET;
REST.Authenticator.OAuth.DefaultOAuth2TokenType:= TOAuth2TokenType.ttBEARER;
REST.Authenticator.OAuth.DefaultOAuth2AccessTokenParamName := vtoken;
RESTRequest1.AddAuthParameter('Token', 'Token', TRESTRequestParameterKind.pkHTTPHEADER);
RESTRequest1.Execute;
Atenciosamente,
Marco Antonio