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.
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:
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