Display albums from Picasa in my ASP.NET & C#.net program

Question

Hi, I require ro write code to display albums from Picasa using ASP.NET & C#.NET.Can anybody help me in this regard. Thank You.

Rahul Kumar Saxena · Answer

Hi This is the Code ASPX CODE asp : DataGrid runat ="server" ID ="MyAlbums" AutoGenerateColumns ="false" CellPadding ="4" Style ="width: 100%;" border ="0" HorizontalAlign ="Center"> Columns > asp : TemplateColumn HeaderText ="thumb"> ItemTemplate > asp : Image ID ="Image1" ImageUrl =' ' runat ="server"> asp : Image > ItemTemplate > asp : TemplateColumn > asp : TemplateColumn HeaderText ="album"> ItemTemplate > b > # DataBinder.Eval(Container.DataItem, "title" ) %> b > br > access: font style ="color: red;"> # DataBinder.Eval(Container.DataItem, "access" ) %> font > br > id: # DataBinder.Eval(Container.DataItem, "id" ) %> br > summary: # DataBinder.Eval(Container.DataItem, "summary" ) %> br > coordinates: # DataBinder.Eval(Container.DataItem, "coords" ) %> ItemTemplate > asp : TemplateColumn > Columns > asp : DataGrid > ============================= This is the aspx.vb code ===================== Imports System.Data Imports System.Net Imports System.IO Imports System.Xml Partial Class _Default Inherits System.Web.UI.Page Const strEmail = "" 'Email of your Google account' Const strPassw = "" 'Your password ' Const strAccount = "" 'Your account name Const strApp = "" 'Can be anything is used by Google for logging purposes Sub Page_Load( ByVal sender As Object , ByVal e As EventArgs) Handles Me .Load Dim strAuth = GetAuth(strEmail, strPassw, strApp) If strAuth "n/a" Then GetAlbums(strAuth) End If End Sub Function GetAuth( ByVal email As String , ByVal password As String , ByVal appId As String ) As String Dim myRequest As HttpWebRequest = myRequest.Create( "https://www.google.com/accounts/ClientLogin" ) myRequest.ContentType = "application/x-www-form-urlencoded" myRequest.Method = "POST" Dim myPost As StringBuilder = New StringBuilder myPost.AppendFormat( "Email={0}" , email) myPost.AppendFormat( "&Passwd={0}" , password) myPost.AppendFormat( "&service={0}" , "lh2" ) myPost.AppendFormat( "&source={0}" , appId) Trace.Write(myPost.ToString()) Dim myData As Byte () = ASCIIEncoding.ASCII.GetBytes(myPost.ToString()) myRequest.ContentLength = myData.Length Dim myStream As Stream = myRequest.GetRequestStream() myStream.Write(myData, 0, myData.Length) myStream.Close() Dim myResponse As HttpWebResponse = myRequest.GetResponse() Dim myResponseStream As Stream = myResponse.GetResponseStream() Dim myResponseReader As StreamReader = New StreamReader(myResponseStream) Dim strResponse As String = myResponseReader.ReadToEnd() myResponseReader.Close() myResponseStream.Close() Trace.Write(strResponse) Dim strAuth As String If strResponse.LastIndexOf( "Auth=" ) > 0 Then Dim i As Integer = strResponse.LastIndexOf( "=" ) + 1 strAuth = strResponse.Substring(i, strResponse.Length - i) Trace.Write( "Auth=" , strAuth) Else strAuth = "n/a" End If Return strAuth End Function Sub GetAlbums( ByVal strAuth As String ) Dim result As String Dim objResponse As HttpWebResponse Dim objRequest As WebRequest = HttpWebRequest.Create( "http://picasaweb.google.com/data/feed/api/user/" & strAccount & "? kind=album" ) objRequest.Headers.Add( "Authorization: GoogleLogin auth=" & strAuth) objRequest.Method = "GET" Try objResponse = objRequest.GetResponse() Catch exc As Exception Response.Write(exc.Message) Response.End() End Try If objResponse.StatusCode = 200 Then Dim sr As StreamReader = New StreamReader(objResponse.GetResponseStream()) result = sr.ReadToEnd() sr.Close() Dim tblAlbums As DataTable = New DataTable( "albums" ) Dim dcId As DataColumn = New DataColumn( "id" ) dcId.DataType = System.Type.GetType( "System.String" ) tblAlbums.Columns.Add(dcId) Dim dcTitle As DataColumn = New DataColumn( "title" ) dcTitle.DataType = System.Type.GetType( "System.String" ) tblAlbums.Columns.Add(dcTitle) Dim dcSum As DataColumn = New DataColumn( "summary" ) dcSum.DataType = System.Type.GetType( "System.String" ) tblAlbums.Columns.Add(dcSum) Dim dcAcc As DataColumn = New DataColumn( "access" ) dcAcc.DataType = System.Type.GetType( "System.String" ) tblAlbums.Columns.Add(dcAcc) Dim dcThumb As DataColumn = New DataColumn( "thumb" ) dcThumb.DataType = System.Type.GetType( "System.String" ) tblAlbums.Columns.Add(dcThumb) Dim dcCoords As DataColumn = New DataColumn( "Coords" ) dcCoords.DataType = System.Type.GetType( "System.String" ) tblAlbums.Columns.Add(dcCoords) Dim doc As XmlDocument = New XmlDocument() doc.LoadXml(result) Dim nsMgr As XmlNamespaceManager = New XmlNamespaceManager(doc.NameTable) nsMgr.AddNamespace( "gphoto" , "http://schemas.google.com/photos/2007" ) nsMgr.AddNamespace( "batch" , "http://schemas.google.com/gdata/batch" ) nsMgr.AddNamespace( "photo" , "http://www.pheed.com/pheed/" ) nsMgr.AddNamespace( "media" , "http://search.yahoo.com/mrss/" ) nsMgr.AddNamespace( "georss" , "http://www.georss.org/georss" ) nsMgr.AddNamespace( "photo" , "http://www.pheed.com/pheed/" ) Dim lstAlbums As XmlNodeList = doc.GetElementsByTagName( "entry" ) Response.Write(lstAlbums.Count & " albums " ) Dim ndAlbum As XmlNode For Each ndAlbum In lstAlbums Dim NewRow As DataRow = tblAlbums.NewRow() For Each ndAlbumProp As XmlNode In ndAlbum.ChildNodes Trace.Write(ndAlbumProp.Name) Select Case ndAlbumProp.Name Case "id" NewRow( "id" ) = ndAlbumProp.InnerText Case "title" NewRow( "title" ) = ndAlbumProp.InnerText Case "summary" NewRow( "summary" ) = ndAlbumProp.InnerText Case "gphoto:access" NewRow( "access" ) = ndAlbumProp.InnerText Case "media:group" For Each ndMediaProp As XmlNode In ndAlbumProp.ChildNodes Select Case ndMediaProp.Name Case "media:thumbnail" Dim elNode As XmlElement = ndMediaProp NewRow( "thumb" ) = elNode.GetAttribute( "url" ) End Select Next Case "georss:where" NewRow( "coords" ) = ndAlbumProp.InnerText End Select Next tblAlbums.Rows.Add(NewRow) Next Response.Write(tblAlbums.Rows.Count & " " ) MyAlbums.DataSource = tblAlbums MyAlbums.DataBind() Else result = "fout, statuscode: " & objResponse.StatusCode End If Trace.Write(result) End Sub End Class