Delphi 11.3 Änderung im OAuth2 Microsoft Graph Api

[oakley]

Hallo zusammen,

hat sich irgendwas in der OAuth2 Komponente in Delphi 11.3 geändert?
Ich bekomme einen Auth Code und will damit meinen Token abrufen.
Der Code wird in der Variablen FAuthCode gespeichert.

Ich verwende folgenden Code:

Delphi-Quellcode:

  LClient := TRestClient.Create(OA.AccessTokenEndpoint);
  try
    LCLient.Authenticator := OA;
    LClient.BaseURL := 'https://login.microsoftonline.com/07a9e2f0-5a0e-406c-a7ff-7b3ab1976b0e/oauth2/v2.0/token';
    LRequest := TRESTRequest.Create(LClient);
    LRequest.Method := TRESTRequestMethod.rmPOST;

    LRequest.AddAuthParameter('client_id', OA.ClientID, TRESTRequestParameterKind.pkREQUESTBODY);
    LRequest.AddAuthParameter('scope', OA.scope, TRESTRequestParameterKind.pkREQUESTBODY);
    LRequest.AddAuthParameter('code', FAuthCode, TRESTRequestParameterKind.pkREQUESTBODY);
    LRequest.AddAuthParameter('redirect_uri', OA.RedirectionEndpoint, TRESTRequestParameterKind.pkREQUESTBODY);
    LRequest.AddAuthParameter('grant_type', 'authorization_code', TRESTRequestParameterKind.pkREQUESTBODY);

    LRequest.Execute;

    if LRequest.Response.GetSimpleValue('access_token', LToken) then
      FAccessToken := LToken;

    if LRequest.Response.GetSimpleValue('refresh_token', LToken) then
      FRefreshToken := LToken;

    if LRequest.Response.GetSimpleValue('token_type', LToken) then
      FTokenType := OAuth2TokenTypeFromString(LToken);

    if LRequest.Response.GetSimpleValue('expires_in', LToken) then
    begin
      LIntValue := StrToIntdef(LToken, -1);
      if (LIntValue > -1) then
        FAccessTokenExpiry := IncSecond(Now, LIntValue)
      else
        FAccessTokenExpiry := 0.0;
    end;
    if (FAccessToken <> '') then FAuthCode := '';

    OA.AccessToken := FAccessToken;
    OA.RefreshToken := FRefreshToken;
  finally
    LClient.DisposeOf;
  end;

Ich bekomme allerdings unter Delphi 11.3 einen 400 BadRequest. Wenn ich das gleiche Programm in 11.2 kompiliere läuft es einwandfrei durch.

LG

Mirko

[Union]

OA ist was? TOAuth2Authenticator?

[oakley]

Ja genau TOAuth2Authenticator.

LG

Mirko

[Union]

Wo wird der Wert für response_type gesetzt? Und was ist der Fehlercode (error) der mit der 400er Response geliefert wird? Z.b.;

AADSTS900561: The endpoint only accepts POST, OPTIONS requests. Received a GET request.

[oakley]

Den response_type habe ich hier gar nicht definiert, hat aber bis jetzt einwandfrei funktioniert.
Ich muss morgen nochmal nach dem 400er Fehler schauen, ich habe hier nur Version 11.2 installiert.

LG

Mirko

[Union]

Hier steht, dass dieser Parameter zwingend angegeben werden muss. Der Artikel ist vom Januar dieses Jahres.

[oakley]

Hallo zusammen,

sollte mit dem 11.3 Patch 1 das Problem nicht eigentlich behoben sein?
Also ich habe folgendes gemacht:

Keine Testprogramm das mit dem obigen Code anmeldet und einen Token bekommt einmal unter Delphi 11.2 auf einer VM laufen lassen und einmal auf einer 11.3.

Die 11.2 macht alles wie gewünscht, loggt ein und ich kann abfragen starten.
Die 11.3 zeigt mit bei Anfrage des Tokens: Oauth2 ist nicht richtig eingerichtet .
In Wirklichkeit steckt ein Bad Request dahinter, den ich als Fehler vom MS Graph API Endpoint zurück bekomme.

Ich habe jetzt versucht das Verzeichnis C:\Program Files (x86)\Embarcadero\Studio\22.0\source\data\rest aus der 11.2 in die 11.3 zu kopieren (altes Verzeichnis vorher umbenannt).
Leider ohne Erfolg, ich bekomme immer noch den selben Fehler.

LG

Mirko

[TurboMagic]

Hast du schon mal in QP https://quality.embarcadero.com geschaut,
ob das irgendwie bekannt ist? Ist zes möglich das in ein einfachstes Testprogramm zu packen und falls noch nicht
gemeldet dort zusammen mit dem Testprogramm zu melden? Report Nummer hier posten, falls du's meldest, nicht vergessen!

Grüße
TurboMagic

[Uwe Raabe]

Zitat von oakley:

Ich habe jetzt versucht das Verzeichnis C:\Program Files (x86)\Embarcadero\Studio\22.0\source\data\rest aus der 11.2 in die 11.3 zu kopieren (altes Verzeichnis vorher umbenannt).
Leider ohne Erfolg, ich bekomme immer noch den selben Fehler.

Da diese Sourcen lediglich als Referenz gedacht sind und für die Compilierung gar nicht herangezogen werden, ist das nicht verwunderlich.

[oakley]

Hallo Uwe,

Du hattest mal irgendwo geschrieben, dass man aus der 11.2 Dateien in die 11.3 kopieren kann um das Problem zu lösen.
Oder war das was anderes?

LG

Mirko