Mirosoft Graph Api Auth Code

**oakley**

Hallo zusammen,

ich habe folgenden Code der bei der MS Graph Api eine Anfrage bezüglich eines AuthCodes ausführen soll.
OA ist ein TOAuth2Authenticator den ich auf die Form gezogen habe.

markieren

Code:

			  
  LClient := TRestClient.Create(OA.AuthorizationEndpoint);

  try

    LClient.BaseURL := 'https://login.microsoftonline.com/07a9e2f0-5a0e-406c-a7ff-7b3ab1976b0e/oauth2/v2.0/authorize';

    LRequest := TRESTRequest.Create(LClient);

    LResponse := TRESTResponse.Create(LClient);

    LRequest.Response := LResponse;

    LRequest.Method := TRESTRequestMethod.rmPOST;

    LRequest.AddAuthParameter('client_id', OA.ClientID, TRESTRequestParameterKind.pkGETorPOST);

    LRequest.AddAuthParameter('redirect_uri', OA.RedirectionEndpoint, TRESTRequestParameterKind.pkGETorPOST);

    LRequest.AddAuthParameter('response_type', 'code', TRESTRequestParameterKind.pkGETorPOST);

    LRequest.AddAuthParameter('response_mode', 'query', TRESTRequestParameterKind.pkGETorPOST);

    LRequest.AddAuthParameter('scope', OA.Scope, TRESTRequestParameterKind.pkGETorPOST);

    LRequest.Execute;

    memo1.Lines.Text := LRequest.Response.Content;

  finally

    LClient.DisposeOf;

  end;

Um zu sehen was ich zurück bekomme, habe ich das Ergebnis der Anfrage mal in in Memo Feld schreiben lassen.
Ich erhalte also den HTML Code der Login Seite von Microsoft. Eigentlich müsste ich die aber im Browser öffnen (bevorzugt in edge).
Edge öffne ich derzeit so:

markieren

Code:

			ShellExecute(Application.Handle, 'open', PChar('cmd.exe'), PChar('/c "start microsoft-edge:http://www.google.de"'), nil, SW_SHOWNORMAL);
		

Weiß jemand, wie ich das anstellen kann?

LG

Mirko

Mirosoft Graph Api Auth Code

Mirosoft Graph Api Auth Code

Forumregeln