OAuth2 Refreshtoken

[mlc42]

Hallo

ich versuche mittels Delphi XE8 und den Rest bzw Outh2 Komponenten auf die Google API zuzugreifen.
Die Authentifizierung zeigt auch das Browserfenster an und ich kann mit der API arbeiten.
Nur irgenwann läuft die Anmeldung ab. Ich habe gelesen, das man dann mit dem Refreshtoken ein neues Accesstoken
anfordern kann. Leider finde ich in der XE8 Hilfe oder den Beispielen nicht wie man das macht.

Hat jemand einen Tip ?

Martin

[BrightAngel]

Ich bin kein Fachmann für die Delphikomponenten dazu, aber kennst du diese StackOverflow Seite?
klick!

Hoffe, du kommst weiter! :)

Brighty

[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