Hi MErickson, Thank you for the detailed explanation. I truly appreciate it. I will try it out and let you know my findings.
On Feb 10, 2:05 am, Michael Erickson <[email protected]> wrote: > It looks like you're loading a list of albums, then looking on each entry > for the ACL link and loading that? > > I will recommend a slight modification to your strategy: > > 1. Load the list of albums. > > 2. For each album, load the album feed. > > 3. From the album feed, grab the ACL feed link: <link > rel='http://schemas.google.com/acl/2007#accessControlList' > type='application/atom+xml' > href='http://picasaweb.google.com/data/feed/api/user/103...795/albumid/562.... > > > > 4. Load that href. > > The reason for the extra call to load the album feed is that the ACL link > on the album entry is for the ACL entry href instead of the ACL feed href, > and the ACL entry href doesn't have any useful information in it. > > Let me know if you have trouble with that. > > -Mike > On Feb 9, 2012 9:07 AM, "Howdy" <[email protected]> wrote: > > > > > Hi Guys, > > > How can I retrieve the access control list of an Album? > > I am using OAuth with the Consumer Key and Consumer Secret. > > I can't seems to get the feed of "http://schemas.google.com/acl/2007";. > > > Thanks and appreciate for the help. > > > Below if my code: > > > Dim requestFactory As New GOAuthRequestFactory(CONST_PICASA_SERVICE, > > CONST_PICASA_ALBUM_APP_NAME) > > requestFactory.ConsumerKey = GoogleConsumerKey > > requestFactory.ConsumerSecret = consumerSecret > > > Dim service As New PicasaService(CONST_PICASA_ALBUM_APP_NAME) > > service.RequestFactory = requestFactory > > service.RequestFactory.UseSSL = True > > > Dim query As New AlbumQuery() > > query.Uri = New Uri(PicasaQuery.CreatePicasaUri(userID)) > > query.OAuthRequestorId = userID > > query.Thumbsize = "144c" > > > Dim feed As PicasaFeed = service.Query(query) > > Dim albums As New List(Of Object) > > > While feed IsNot Nothing AndAlso feed.Entries.Count > 0 > > For Each entry As PicasaEntry In feed.Entries > > > Dim link As AtomLink = > > entry.Links.FindService(AclNameTable.LINK_REL_ACCESS_CONTROL_LIST, > > Nothing) > > If Not link Is Nothing Then > > Dim aclQry As AclQuery = New > > AclQuery(link.HRef.ToString.Trim) > > aclQry.OAuthRequestorId = userID > > > aclQry.Etag = entry.Etag > > > Dim aclFeed As AclFeed = > > CType(service.Query(aclQry), AclFeed) > > > For Each acl As AclEntry In aclFeed.Entries > > Console.WriteLine(acl.Scope.Type.ToString) > > > Console.WriteLine(acl.Scope.Value.ToString) > > Console.WriteLine(acl.Role.Value.ToString) > > Next > > End If > > > Dim alb As Album = New Album > > alb.AtomEntry = entry > > albums.Add(alb) > > Next > > > If feed.NextChunk IsNot Nothing Then > > Dim nextChunkUri As Uri = New Uri(feed.NextChunk) > > query.Uri = nextChunkUri > > query.OAuthRequestorId = userID > > feed = service.Query(query) > > Else > > feed = Nothing > > End If > > > End While > > > -- > > You received this message because you are subscribed to the Google Groups > > "Google Picasa Web Albums 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-picasa-data-api?hl=en.- Hide quoted > >text - > > - Show quoted text - -- You received this message because you are subscribed to the Google Groups "Google Picasa Web Albums 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-picasa-data-api?hl=en.
