PC SOFT

AYUDA EN LÍNEA
 WINDEVWEBDEV Y WINDEV MOBILE

Este contenido se ha traducido automáticamente. Haga clic aquí para ver la versión en inglés.
  • Example: Browsing Google calendars
GglGetCalendar (Example)
Example: Browsing Google calendars
This example is used to browse the different calendars of a Google account. The associated events are browsed for each calendar and the associated locations are browsed for each event.
// Connection to Google
Cnt is gglConnection
...
 
// Retrieve the array of available calendars
arrCalendars is array of gglCalendar
arrCalendars = GglListCalendar(Cnt)
 
// Browse
arrCalendarsBrowseEvent is gglCalendar
ACalendar is gglCalendar
AnEvent is gglEvent
ALocation is gglLocation
 
// Browse all the available calendars and retrieve the events
FOR EACH ELEMENT ACalendar OF arrCalendars
Trace("Calendar " + ACalendar.Title + ...
 " (updated on " + DateToString(ACalendar.UpdateDate[[TO 8]]) + ...
 " à " + TimeToString(ACalendar.UpdateDate[[9 À]]) + ")")
arrCalendarsBrowseEvent = GglGetCalendar(Cnt, ACalendar.Identifier)
 
// Browse all the events found in the current calendar
FOR EACH AnEvent OF arrCalendarsBrowseEvent
Trace("------------------------------")
Trace(AnEvent..Title)
Trace("From " + DateToString(AnEvent.StartDate[[À 8]]) + ...
  " to " + TimeToString(AnEvent.StartDate[[9 À]])+")" + ...
  " to " + DateToString(AnEvent.EndDate[[TO 8]])+ " at " + ...
  TimeToString(AnEvent.EndDate[[9 TO]]) + ")")  
 
// Browse the locations of the event
FOR EACH ELEMENT ALocation OF AnEvent.Location
  Trace("Location of the event: " + ALocation.Value + "//" + ALocation.Caption)
END
END
END
Versión mínima requerida
  • Versión 14
Esta página también está disponible para…
Comentarios
Haga clic en [Agregar] para publicar un comentario