hi guys
i got the exception while fetching entries of calendar from google
calendar.
i got the following message
ex = {"Execution of request failed:
http://www.google.com/calendar/feeds/default/[EMAIL
PROTECTED]/full?start-min=2007-06-18T19:08:12+05:30&start-max=2008-01-16T19:08:12+05:30"}
here is my code
Dim i = 0
Dim calendarURI As String = txtUrl.Text
Dim userName As String = txtUserName.Text
Dim passWord As String = txtPassword.Text
entryList = New ArrayList(50)
Dim dates As New ArrayList(50)
Dim query As New EventQuery
Dim gService As New
CalendarService("GoogleCalendarApplication")
If (Not userName Is Nothing) And (userName.Length > 0) Then
gService.setUserCredentials(userName, passWord)
End If
query.Uri = New Uri(calendarURI)
query.StartTime = DateTime.Now.AddDays(-28)
query.EndTime = DateTime.Now.AddMonths(6)
Dim calFeed As Google.GData.Calendar.EventFeed ''New
EventFeed(query.Uri, service)
''Dim calFeed As EventFeed = service.Query(query)
Try
calFeed = gService.Query(query) '' here i got the
exception
Catch ex As Exception
End Try
While ((Not calFeed Is Nothing) And (calFeed.Entries.Count >
0))
''foreach (EventEntry entry in calFeed.Entries)
For Each entry As EventEntry In calFeed.Entries
entryList.Add(entry)
If entry.Times.Count > 0 Then
For Each w As [When] In entry.Times
dates.Add(w.StartTime)
Next
End If
Next
If Not calFeed.NextChunk Is Nothing Then
query.Uri = New Uri(calFeed.NextChunk)
calFeed = gService.Query(query)
Else
calFeed = Nothing
End If
Dim aDates(dates.Count) As DateTime
For Each d As DateTime In dates
aDates(i) = d
i = i + 1
Next
End While
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"Google Calendar Data API" group.
To post to this group, send email to
[email protected]
To unsubscribe from this group, send email to [EMAIL PROTECTED]
For more options, visit this group at
http://groups.google.com/group/google-calendar-help-dataapi?hl=en
-~----------~----~----~----~------~----~------~--~---
