Discussion :

[korntex5]

Je crois que je ne suis pas doué avec ces apis....
lorsque je veux les infos user j'ai erreur 500...internal server error...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
function TProSanteConnect.GetUserInfos(AccessToken : String): String;
begin
  Result := '';
  try
    MyRestClient.BaseURL := UserInfosUrl;
    MyRESTRequest.Method := TRESTRequestMethod.rmGET;
 
    //Authorization = 'Bearer ${access_token}'
    //MyRESTRequest.Params.AddHeader('Authorization', 'Bearer ' + AccessToken);
    MyRESTRequest.Params.Clear;
    MyRESTClient.ContentType := Format('Authorization = Bearer %s', [AccessToken]);
 
    MyRESTRequest.Execute;
 
    if MyRESTRequest.Response.StatusCode = 200 then
      Result := MyRESTRequest.Response.Content;
  Except
 
  end;
end;

[ShaiLeTroll]

Si tu as ton token
Remplace le THTTPBasicAuthenticator dans Authenticator que tu as utilisé pour la phase d'Auth pour un REST.Authenticator.OAuth.TOAuth2Authenticator en définissant AccessToken et AccessTokenExpiry

Pour ma part, je crée Client et Request à la volée, cela évite les problèmes lorsque l'on enchaine plus requête

[korntex5]

Si tu as ton token
Remplace le THTTPBasicAuthenticator dans Authenticator que tu as utilisé pour la phase d'Auth pour un REST.Authenticator.OAuth.TOAuth2Authenticator en définissant AccessToken et AccessTokenExpiry

Pour ma part, je crée Client et Request à la volée, cela évite les problèmes lorsque l'on enchaine plus requête

Je vais essayer d'autant que ta remarque est des plus pertinente mais je préfèrerai rester avec mes objets..

[korntex5]

Effectivement en faisant avec le oauth2 cela marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
function TProSanteConnect.GetUserInfos(AccessToken : String): String;
begin
  Result := '';
  try
    MyRestClient.BaseURL := UserInfosUrl;
    MyRestClient.Authenticator := OAuth2Authenticator1;
    OAuth2Authenticator1.AccessToken := access_token;
    OAuth2Authenticator1.TokenType := TOAuth2TokenType.ttBEARER;
 
    MyRESTRequest.Method := TRESTRequestMethod.rmGET;
    MyRESTRequest.Params.Clear;
 
    MyRESTRequest.Execute;
 
    if MyRESTRequest.Response.StatusCode = 200 then
      Result := MyRESTRequest.Response.Content;
  Except
 
  end;
end;

[korntex5]

Je rajoute le code pour le logout

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
function TProSanteConnect.LogOut(TokenID: String): Boolean;
var
  jO : TJSONObject;
  AuthReqID : String;
begin
  Result := False;
  try
    MyRestClient.BaseURL := LogOutUrl;
    MyRestClient.Authenticator := MyHTTPBasicAuth;
 
    MyRESTRequest.Method := TRESTRequestMethod.rmGet;
 
    MyRESTClient.ContentType := 'application/x-www-form-urlencoded';
    MyRESTRequest.Params.Clear;
    MyRESTRequest.Params.AddItem('id_token_hint'  , TokenID       , pkGETorPOST);
    MyRESTRequest.Params.AddItem('acr_values'     , 'eidas1'      , pkGETorPOST);
 
    MyRESTRequest.Execute;
 
    if MyRESTRequest.Response.StatusCode = 200 then
      Result := True;
  Except
 
  end;
end;