Discussion :

[nakos91]

Bonjour j'essaie d'appeler un service pour récupérer un Bearer
L'appel dans Postman et dans Powershell fonctionne très bien

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
$headers = New-Object "System.Collections.Generic.Dictionary[[String],[String]]"
$headers.Add("Content-Type", "application/json")
 
$body = @"
{
    `"username`" : `"13`",
    `"password`" : `"*******`"
}
"@
 
$response = Invoke-RestMethod 'https://api.ptsrc.adeiz.com/api/authenticate' -Method 'POST' -Headers $headers -Body $body
$response | ConvertTo-Json

Quand j'essaie de faire ça dans Delphi j'ai toujours la réponse erreur 415 type de média non pris en charge

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
procedure TForm5.Button1Click(Sender: TObject);
 
var Ljsonobject:tJsonObject;
ltoken:string;
Litem:tjsonvalue;
begin
 
  Ljsonobject:=TJSONObject.Create;
  Ljsonobject.AddPair('username','13');
  Ljsonobject.AddPair('password','******');
//
  Memo1.lines.add(Ljsonobject.ToJSON);
//
  RESTClient1.BaseURL:='https://api.ptsrc.adeiz.com/api/authenticate';
  restclient1.po
  RESTRequest1.AddBody(Ljsonobject.tojson);
 
  RESTRequest1.execute;
  memo1.lines.add(RESTResponse1.Content);
end;

RESTDEBUGUEUR me donne ça qui fonctionne

object RESTClient1: TRESTClient
Authenticator = SimpleAuthenticator1
BaseURL = 'https://api.ptsrc.adeiz.com/api/authenticate'
Params = <>
SynchronizedEvents = False
end
object RESTRequest1: TRESTRequest
AssignedValues = [rvConnectTimeout, rvReadTimeout]
Client = RESTClient1
Method = rmPOST
Params = <
item
Kind = pkREQUESTBODY
Name = 'body5E80281D4D8B40AFB2A68221EAB654D9'
Value = '{'#13#10' "username" : "13",'#13#10' "password" : "******"'#13#10'}'
ContentTypeStr = 'application/json'
end>
Response = RESTResponse1
SynchronizedEvents = False
end
object RESTResponse1: TRESTResponse
end
object SimpleAuthenticator1: TSimpleAuthenticator
end

mais je ne comprends pas comment remplir simplement la partie params surtout d'ou sort 'body5E80281D4D8B40AFB2A68221EAB654D9' ??

quelqu'un peut il m'aider

[XeGregory]

Ton problème vient certainement du Content-Type que Delphi n’envoie pas correctement.
L’erreur 415 Unsupported Media Type signifie que le serveur n’a pas reçu application/json comme Content-Type, ou que le body n’est pas encodé comme il l’attend.

[popo]

Tu n'a pas transmis de Header dans le code Delphi

[ShaiLeTroll]

Je modifierais le AddBody comme ceci, c'est en tout cas ce que je fais

Code :

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

    VRequest.AddBody(AJSONText, ctAPPLICATION_JSON);

donc pour toi

Code :

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

RESTRequest1.AddBody(Ljsonobject.ToJson(), ctAPPLICATION_JSON);

Je n'utilise que des objets crées à la volée, je te recommande cela aussi, exemple d'inspiration, j'utilise la même fonction Post pour obtenir un Token puis une fois obtenu pour l'invocation de l'API cible.

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
//------------------------------------------------------------------------------
class function TxxxServiceClientHTTPByRESTClientIPPeer.Post(const AURL, AResource: string; const AJSONText: string; const AResponseCodes: TArray<Integer>; const AToken: string = ''; ATimeOut: Integer = -1): TxxxServiceClientResponse;
 
  function AuthenticatorFactory(): TCustomAuthenticator;
  begin
    if AToken <> '' then
    begin
      Result := TOAuth2Authenticator.Create(nil);
      try
        TOAuth2Authenticator(Result).AccessToken := AToken;
        TOAuth2Authenticator(Result).TokenType := TOAuth2TokenType.ttBEARER;
      except
        FreeAndNil(Result);
        raise;
      end;
    end
    else
      Result := nil;
  end;
 
var
  VClient: TRESTClient;
  VRequest: TRESTRequest;
begin
  VClient := TRESTClient.Create(AURL);
  try
    VRequest := TRESTRequest.Create(VClient); // The Client owns the Request (will free it) and it will assign as Client property
    VRequest.Resource := AResource;
    VRequest.Method := TRESTRequestMethod.rmPOST;
 
    VRequest.AddBody(AJSONText, ctAPPLICATION_JSON);
 
    VClient.Authenticator := AuthenticatorFactory();
    try
      Execute(VRequest, ATimeOut, AResponseCodes);
    finally
      VClient.Authenticator.Free();
      VClient.Authenticator := nil;
    end;
 
    if VRequest.Response.ContentType = TxxxServiceClient.CONTENT_TYPE_JSON then
      Result := TxxxServiceClientResponse.CreateFromJSON(VRequest.Response.JSONValue, VRequest.Response.StatusCode)
    else
      Result := TxxxServiceClientResponse.Create(VRequest.Response.StatusCode, VRequest.Response.Content, VRequest.Response.ContentType);
  finally
    VClient.Free();
  end;
end;

Ensuite chaque API/Service à son wrapper

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
//------------------------------------------------------------------------------
function TxxxServicexxxBidule.BidulePost(ABiduleRequest: TBiduleRequest): TBiduleResponse;
var
  VResource: string;
  VResponse: TxxxServiceClientResponse;
  VResponseJSON: TJSONObject;
  VExpectedCode: Integer;
begin
  Result := TBiduleResponse.Create(ABiduleRequest.IDPTenantID);
  try
    try
      VResource := REQUEST_Bidule;
      VExpectedCode := Result.SUCCESS_OF_PHASE[ipAcceptation];
 
      VResponse := TxxxServiceClient.Post(FURLWithPort, VResource, ABiduleRequest.JSONText, [VExpectedCode], ABiduleRequest.xxxToken, FTimeOut);
      try
        VResponseJSON := VResponse.JSONObject;
        if Assigned(VResponseJSON) then
        begin
          Result.FromResponse(VResponse, [ipAcceptation, ipResults]);
 
          DoProgress(Result.Results.StatusEx, Result.Results.ProgressionPourcent);
        end
        else
          raise ExxxServicexxxBiduleError.CreateFmt('%s POST %s : JSON is empty or invalid', [FURLWithPort, VResource]);
 
      finally
        VResponse.Free();
      end;
    except
      on E: ExxxServiceClientHTTPError do
      begin
        DoHTTPError(E);
 
        VResponse := TxxxServiceClientResponse.CreateFromJSON(E.ErrorJSON, E.ErrorCode);
        try
          Result.FromResponse(VResponse, [ipAcceptation]);
        finally
          VResponse.Free();
        end;
      end;
    end;
  except
    FreeAndNil(Result);
    raise;
  end;
end;