http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/539-exemplo-google-calendar/read.awp?hl=google,calendar
// Conexão
ConexaoGoogle isgglConnection
ConexaoGoogle..Email="desenvolvedor@gmail.com.br"
ConexaoGoogle..Password="123"
ConexaoGoogle..ApplicationName="Empresa-03"
IFGglConnect(ConexaoGoogle)=FalseTHEN
Error(ErrorInfo())
END
// Lê o calendário "Comercial" e seus eventos
Calendario isgglCalendar=GglGetCalendar(ConexaoGoogle,"Comercial")
// Altera o primeiro evento
Calendario[1]..Title="Demonstração"
Calendario[1]..EndDate="20121013150"
// Exclui o segundo evento
Delete(Calendario..Event,2)
// Atualiza as alterações
GglWrite(ConexaoGoogle,Calendario)
ConexaoGoogle isgglConnection
ConexaoGoogle..Email="desenvolvedor@gmail.com.br"
ConexaoGoogle..Password="123"
ConexaoGoogle..ApplicationName="Empresa-03"
IFGglConnect(ConexaoGoogle)=FalseTHEN
Error(ErrorInfo())
END
// Lê o calendário "Comercial" e seus eventos
Calendario isgglCalendar=GglGetCalendar(ConexaoGoogle,"Comercial")
// Altera o primeiro evento
Calendario[1]..Title="Demonstração"
Calendario[1]..EndDate="20121013150"
// Exclui o segundo evento
Delete(Calendario..Event,2)
// Atualiza as alterações
GglWrite(ConexaoGoogle,Calendario)
Nenhum comentário:
Postar um comentário