Einzelnen Beitrag anzeigen

mlc42

Registriert seit: 9. Feb 2013
130 Beiträge
 
#5

AW: Delphi (XE8) RestRequest Post Result 401

  Alt 1. Feb 2017, 22:20
so gehts dann zumindest mit XE8

ResetRESTComponentsToDefaults;
gettokens(acc,ref);
//OAuth2_GoogleTasks.AccessToken := acc;
//OAuth2_GoogleTasks.RefreshToken := ref;
RESTClient.BaseURL := 'https://www.googleapis.com/calendar/v3';
RESTClient.Authenticator := Nil; //nicht zuweisen !! OAuth2_GoogleTasks;
RESTRequest.Method := TRESTRequestMethod.rmPOST;
RESTRequest.Resource := '/calendars/primary/events/';
RESTRequest.Params.AddItem('Authorization', 'Bearer ' + acc, TRESTRequestParameterKind.pkHTTPHEADER, [poDoNotEncode]); // Bearer selbst einfügen
RESTRequest.AddBody(_event, ctAPPLICATION_JSON);
RESTRequest.Execute;

Sobald man addbody benutzt klappt das Authentifizieren mit OAuth2_GoogleTasks nicht mehr. Was immer Delphi da zusammenbaut.
Ist das jetzt ein Feature von XE8 ?
Na ja Hauptsache es läuft
  Mit Zitat antworten Zitat