Delphi 11.3 Änderung im OAuth2 Microsoft Graph Api

[Union]

Woher kommt die Meldung? Vom Microsoft Server in der response, von Delphi oder woher sonst? Und ist das die vollständige Fehlermeldung?

[oakley]

Ja das ist die vollständige Fehlermeldung. Mehr bekomme ich im Debug auch nicht.
Das Kommt an der Stelle LRequest.Execute. Pkl

Delphi-Quellcode:

    LCLient.Authenticator := OA;
    LClient.BaseURL := 'https://login.microsoftonline.com/07a9e2f0-5a0e-406c-a7ff-7b3ab1976b0e/oauth2/v2.0/token';
    LCLient.SynchronizedEvents := false;
    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; <- Hier kommt der Fehler

Kann sein, dass das von Microsoft kommt. Wie gesagt ich habe es gestern Abend in 11.2 versucht und da lief es einwandfrei.
Vorhin einfach kompiliert ohne Änderungen in 11.3 und da kam direkt der Fehler.

Der AuthCode wird auch vergeben das ist nicht das Problem.

Die Base URL ist ja https://... , ich habe im LClient aber nirgendwo die Nutzung von SSL oder TLS angegeben.
Kann es daran liegen?

LG

Mirko

[Union]

Eigentlich nicht, da der RestClient nicht auf den Indy basiert sondern die jeweilige OS Funktionalität der Plattform nutzt.

[Bbommel]

Vielleicht ein Hinweis dazu: Emba hat in 11.3 die REST-API im Zusammenspiel mit Microsoft Graph/OData kaputtgemacht (RSP-40726, RSP-40757). Da die Antwort beim OAuth2 selbst auch als JSON kommt und hier ja auch die RestRequest-Komponenten genutzt werden, könnte es sein, dass der Fehler hier auch schon zuschlägt.

[oakley]

Ja sehr geil und ich fummel hier rum. Danke für die Info. Dann wieder zurück zu 11.2 .

Edit: Zurück auf 11.2 Probleme mit dem TMS Pack. Interner Fehler URW8074 .

LG

Mirko

[juergen]

Update rückwärts, siehe hier.

Edit: Falls jemand das in Zukunft hier liest