thanx jeff now i change the url and used the default one "http://www.google.com/ calendar/feeds/default/private/full" and passing the credential. still i got the exception with the following message. plz help me
Execution of request failed: http://www.google.com/calendar/feeds/default/private/full?start-min=2007-06-19T09:58:44+05:30&start-max=2008-01-17T09:58:44+05:30 Thnx Chirag On Jul 16, 11:12 pm, "Jeff Fisher (Google)" <[EMAIL PROTECTED]> wrote: > Hi chirag, > > It seems like the error is probably in the 'txtUrl' parameter you are > passing in. It would appear you are providing "http://www.google.com/ > calendar/feeds/default/[EMAIL PROTECTED]/full" as the calendar > you wish to access. > > However, "default" is merely a placeholder for when you don't want to > specify an e-mail address and want to use the user credentials to > figure out which primary calendar to access. Also you need to add in > the visibility, which in your case is 'private'. So you can take out > either "default" (http://www.google.com/calendar/feeds/ > [EMAIL PROTECTED]/private/full) or you can take out your e-mail > (http://www.google.com/calendar/feeds/default/private/full) and you > should be able to retrieve your calendar. > > Cheers, > > -Jeff > > On Jul 16, 6:44 am, chirag <[EMAIL PROTECTED]> wrote: > > > > > 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- Hide quoted text - > > - Show quoted text - --~--~---------~--~----~------------~-------~--~----~ 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 -~----------~----~----~----~------~----~------~--~---
