Saludos compañeros.
Quiero realizar una aplicación VCL que se conecté con el calendario de Google.
- Debe mostrar los eventos que tengo dados de alta en mi calendario Google.
- Al registrar un evento en mi aplicación debe registrarse en Google.
He logrado avances al respecto; Mediante los componentes de REST he logrado autenticarme.
Después de conseguir el acceso a mi cuenta de google desde la aplicación, recupero los eventos en un JSON, esto ha funcionado bien pero, aún tengo muchas dudas sobre el flujo de la autorización oAuth2.0 y otros detalles.
Por el momento la pregunta es ¿Cómo puedo insertar eventos?
Tengo este código:
RESTRequest1.ResetToDefaults; RESTClient1.ResetToDefaults; RESTResponse1.ResetToDefaults; RESTResponseDataSetAdapter1.ResetToDefaults; RESTRequest1.Method := rmPOST; RESTClient1.BaseURL := 'https://www.googleapis.com/calendar/v3/'; RESTClient1.Authenticator := OAuth2Authenticator1; RESTRequest1.Resource := 'calendars/primary/events'; RESTRequest1.Params.AddItem('summary', 'Another Test', TRESTRequestParameterKind.pkGETorPOST); RESTRequest1.Params.AddItem('dateTime', '2016-02-09T17:00:00', TRESTRequestParameterKind.pkGETorPOST); RESTRequest1.Params.AddItem('timeZone', 'Europe/London', TRESTRequestParameterKind.pkGETorPOST); RESTRequest1.Params.AddItem('description', 'Test de Evento', TRESTRequestParameterKind.pkGETorPOST); RESTRequest1.Params[0].ContentType := ctAPPLICATION_JSON; RESTRequest1.Params[1].ContentType := ctAPPLICATION_JSON; RESTRequest1.Params[2].ContentType := ctAPPLICATION_JSON; RESTRequest1.Params[3].ContentType := ctAPPLICATION_JSON; RESTRequest1.Execute;
Pero me devuelve este Error (Cabe mencionar que no se debe a falla de logueo, ya que previo a esto ya ingrese con la cuenta deseada e incluso logro descargar los eventos).
{ "error": { "errors": [ { "domain":"global", "reason":"parseError", "message":"Parse Error" } ] , "code":400, "message":"Parse Error" } }