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...393/acl'/ > 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. > > -- 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.
