Discussion :

[annemarie]

Bonjour,

je tourne en rond en utilisant ces composants pour discuter avec une API Rest.

Les solutions que j'ai trouvées pour ajouter des valeurs dans le Header du message POST

RESTClient1.Params.AddItem('Authorization', 'Bearer ' + GBL_AccessToken, TRESTRequestParameterKind.pkHTTPHEADER);

ou

RESTClient1.SetHTTPHeader('Authorization', 'Bearer ' + GBL_AccessToken);

ne marchent à priori pas. La première ajoute la valeur dans le Body, la seconde ne fait rien.

Par ailleurs je n'ai pas trouvé non plus le moyen de voir ni la liste des valeurs du Header, ni la chaine complète envoyée en JSON à l'URL.

des Idées ou vécu, car je n'ai pas su trouver d'exemple qui marche ?

J'utilise Delphi 12

Merci par avance

[SergioMaster]

Bonjour,

Déjà est-ce que cela fonctionne avec REST Debuger ?
De mon vécu, je n'ai eu à faire qu'avec les API de Woocommerce et de Prestashop, jamais ne nécessitant une autorisation.

Pourtant j'ai vu passer ce genre de demande, je suggère une petite recherche sur le forum i.e ici

[popo]

As-tu essayé RESTClient1.AddParameter('Name', 'Value', TRESTRequestParameterKind.pkHTTPHEADER); ?

https://docwiki.embarcadero.com/Libr...t.AddParameter

[annemarie]

J'ai un peu avancé grace au lien de Sergio,

mais je reste bloquée sur un header indispensable.

mon code

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 function TFormNetwork.RequestAPI(Chaine : string): string;
var
  MyRESTClient: TRESTClient;
  MyRESTRequest: TRESTRequest;
  MyRESTResponse: TRESTResponse;
  MyOAuth2Authenticator: TOAuth2Authenticator;
begin
  Result := '';
  MyRESTClient         := TRESTClient.Create(WC_BASE_URL);
  MyRESTRequest        := TRESTRequest.Create(Self);
  MyRESTResponse       := TRESTResponse.Create(Self);
  MyOAuth2Authenticator:= TOAuth2Authenticator.Create(Self);
  try
    formLogs.LogSystem('Request to Silae''s API:  ' + Chaine);
 
    MyRESTRequest.Client := MyRESTClient;
    MyRESTRequest.Response := MyRESTResponse;
 
    MyRESTClient.BaseURL := WC_BASE_ENDPOINT  + Chaine;
    MyRESTClient.Authenticator := MyOAuth2Authenticator;
    MyRESTClient.ContentType := 'application/json';
 
    MyOAuth2Authenticator.ClientID := CLIENT_ID;
    MyOAuth2Authenticator.ClientSecret := CLIENTSECRET_PRIMAIRE;
    MyOAuth2Authenticator.AccessToken := GBL_AccessToken;
    MyOAuth2Authenticator.TokenType := TOAuth2TokenType.ttBEARER;
    MyOAuth2Authenticator.ResponseType := TOAuth2ResponseType.rtCODE;
    MyOAuth2Authenticator.Scope := scope;
 
//  MyRESTClient.Params.AddHeader('Authorization', 'Bearer ' + GBL_AccessToken);
    MyRESTClient.Params.AddHeader('Ocp-Apim-Subscription-Key', CLE_PRINCIPALE);
 
    MyRESTClient.Params.AddHeader('dossiers;', '');
    MyRESTClient.Params.AddItem('dossiers;', '', TRESTRequestParameterKind.pkHTTPHEADER);
    MyRESTClient.SetHTTPHeader('dossiers;', '');
//
    MyRESTClient.Params.AddItem('typeDossiers', '1');
//
  try
    MyRESTRequest.Method := rmPOST;
    MyRESTRequest.Execute;
    formMain.MemoRequest.Lines.Add(GetRESTClientInfoAsString(MyRESTClient, MyRESTRequest)); //GetRESTClientInfoAsString(RESTClient1, RESTRequest1);
    formLogs.LogSystem('');
 
    Result := MyRESTResponse.JSONText;
  except
    on E: Exception do formLogs.LogExcept('Except on RequestAPI: ' + E.Message);
  end;
  finally
    FreeAndNil(MyRESTClient);
    FreeAndNil(MyRESTRequest);
    FreeAndNil(MyRESTResponse);
    FreeAndNil(MyOAuth2Authenticator);
  end;
end;

Cela me retourne :

{
"errors": [
{
"code": "403",
"message": "Le header 'dossiers' est obligatoire"
}
],
"source": "Proxy"
}

[annemarie]

MyRESTClient.Params.AddHeader('dossiers',';'); marche

donc cela veut dire que AddHearder marche.

J'ai maintenant une Erreur 500, je vais analyser mais à priori je peux clôturer le post.

Merci à tous