OAuth2 Refreshtoken

[mlc42]

Danke für den Tip

ich habe in anderen Sprachen einiges gefunden. Aber ich gebe die Hoffnung nicht auf
das auch in Delphi machen zu können. Vermutlich sind das nur Kleinigkeiten die man
wissen muss. Die XE Hilfe und die Demos geben da leider nichts her. Ich werd mal XE10
installieren vielleicht ist ja da was dabei.

Martin

[mlc42]

Falls nochmal jemand drüber stolpert, hier mal die Lösung



ResetRESTComponentsToDefaults;
RESTClient.BaseURL := 'https://www.googleapis.com/';
RESTRequest.Method := TRESTRequestMethod.rmPOST;
RESTRequest.Resource := 'oauth2/v4/token';
RESTRequest.Params.AddItem('client_id',ClientID, TRESTRequestParameterKind.pkGETorPOST);
RESTRequest.Params.AddItem('client_secret',ClientS ecret, TRESTRequestParameterKind.pkGETorPOST);
RESTRequest.Params.AddItem('refresh_token', ref, TRESTRequestParameterKind.pkGETorPOST);
RESTRequest.Params.AddItem('grant_type', 'refresh_token', TRESTRequestParameterKind.pkGETorPOST);

RESTRequest.Execute;

if RESTRequest.Response.GetSimpleValue('access_token' , LToken) then
OAuth2_GoogleTasks.AccessToken := LToken;


In der Google API Beschreibung kann man sich neben den python, js und anderen Beispielen auf den REST Code anschauen. Da war es dann einfach.

Martin