|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Classic ASP) Google Contacts - Retrieve All ContactsDemonstrates how to retrieve the full list of contacts for the Google Contacts API.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' -------------------------------------------------------------------------------------------------------- ' Note: The code for setting up the Chilkat REST object and making the initial connection can be done once. ' Once connected, the REST object may be re-used for many REST API calls. ' (It's a good idea to put the connection setup code in a separate function/subroutine.) ' -------------------------------------------------------------------------------------------------------- ' It is assumed we previously obtained an OAuth2 access token. ' This example loads the JSON access token file ' saved by this example: Get Google Contacts OAuth2 Access Token ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set jsonToken = Server.CreateObject("Chilkat.JsonObject") success = jsonToken.LoadFile("qa_data/tokens/googleContacts.json") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( "Failed to load googleContacts.json") & "</pre>" Response.End End If ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.AuthGoogle") set gAuth = Server.CreateObject("Chilkat.AuthGoogle") gAuth.AccessToken = jsonToken.StringOf("access_token") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Rest") set rest = Server.CreateObject("Chilkat.Rest") ' Connect using TLS. bAutoReconnect = 1 success = rest.Connect("www.google.com",443,1,bAutoReconnect) ' Provide the authentication credentials (i.e. the access token) success = rest.SetAuthGoogle(gAuth) ' ---------------------------------------------- ' OK, the REST connection setup is completed.. ' ---------------------------------------------- ' To retrieve the contacts, we need to send the following: ' GET /m8/feeds/contacts/default/full ' GData-Version: 3.0 success = rest.AddHeader("GData-Version","3.0") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") set sbResponseBody = Server.CreateObject("Chilkat.StringBuilder") success = rest.FullRequestNoBodySb("GET","/m8/feeds/contacts/default/full",sbResponseBody) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If ' A successful response will have a status code equal to 200. If (rest.ResponseStatusCode <> 200) Then Response.Write "<pre>" & Server.HTMLEncode( "response status code = " & rest.ResponseStatusCode) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "response status text = " & rest.ResponseStatusText) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "response header: " & rest.ResponseHeader) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "response body: " & sbResponseBody.GetAsString()) & "</pre>" Response.End End If ' If the 200 response was received, then the contacts XML is contained ' in the response body. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Xml") set xml = Server.CreateObject("Chilkat.Xml") success = xml.LoadSb(sbResponseBody,0) ' See below for a sample response body. success = xml.SaveXml("qa_output/google_contacts.xml") ' Now let's parse the XML... ' Get the the total number of results, the start index, and the items per page. ' We'll likely NOT get the full list, but will instead get the 1st page. totalResults = xml.GetChildIntValue("openSearch:totalResults") startIndex = xml.GetChildIntValue("openSearch:startIndex") itemsPerPage = xml.GetChildIntValue("openSearch:itemsPerPage") Response.Write "<pre>" & Server.HTMLEncode( "totalResults = " & totalResults) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "startIndex = " & startIndex) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "itemsPerPage = " & itemsPerPage) & "</pre>" ' We'll borrow a method from FileAccess to get the contactId from the URL string (see the code in the while loop) ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.FileAccess") set fac = Server.CreateObject("Chilkat.FileAccess") ' Iterate over each contact. numEntries = xml.NumChildrenHavingTag("entry") i = 0 Do While i < numEntries xml.I = i Response.Write "<pre>" & Server.HTMLEncode( i + 1 & " ----") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "title: " & xml.GetChildContent("entry[i]|title")) & "</pre>" ' The entry "id" child contains a URL having this format: ' <id>http://www.google.com/m8/feeds/contacts/{userEmail}/base/{contactId}</id> ' Let's get the URL and parse the contactId from it.. idUrl = xml.GetChildContent("entry[i]|id") Response.Write "<pre>" & Server.HTMLEncode( "id: " & idUrl) & "</pre>" ' Use the parsing ability of GetFileName to get the contactId contactId = fac.GetFileName(idUrl) Response.Write "<pre>" & Server.HTMLEncode( "contactId: " & contactId) & "</pre>" fullName = xml.ChilkatPath("entry[i]|gd:name|gd:fullName|*") If (xml.LastMethodSuccess = 1) Then Response.Write "<pre>" & Server.HTMLEncode( "fullName: " & fullName) & "</pre>" End If emailAddress = xml.ChilkatPath("entry[i]|gd:email|(address)") If (xml.LastMethodSuccess = 1) Then Response.Write "<pre>" & Server.HTMLEncode( "email address: " & emailAddress) & "</pre>" End If i = i + 1 Loop ' The response body XML looks something like this: ' <feed xmlns="http://www.w3.org/2005/Atom" ' xmlns:openSearch="http://a9.com/-/spec/opensearch/1.1/" ' xmlns:gContact="http://schemas.google.com/contact/2008" ' xmlns:batch="http://schemas.google.com/gdata/batch" ' xmlns:gd="http://schemas.google.com/g/2005" ' gd:etag="feedEtag"> ' <id>userEmail</id> ' <updated>2008-12-10T10:04:15.446Z</updated> ' <category scheme="http://schemas.google.com/g/2005#kind" term="http://schemas.google.com/contact/2008#contact"/> ' <link rel="http://schemas.google.com/g/2005#feed" type="application/atom+xml" ' href="https://www.google.com/m8/feeds/contacts/userEmail/full"/> ' <link rel="http://schemas.google.com/g/2005#post" type="application/atom+xml" ' href="https://www.google.com/m8/feeds/contacts/userEmail/full"/> ' <link rel="http://schemas.google.com/g/2005#batch" type="application/atom+xml" ' href="https://www.google.com/m8/feeds/contacts/userEmail/full/batch"/> ' <link rel="self" type="application/atom+xml" ' href="https://www.google.com/m8/feeds/contacts/userEmail/full?max-results=25"/> ' <author> ' <name>User</name> ' <email>userEmail</email> ' </author> ' <generator version="1.0" uri="http://www.google.com/m8/feeds"> ' Contacts ' </generator> ' <openSearch:totalResults>349</openSearch:totalResults> ' <openSearch:startIndex>1</openSearch:startIndex> ' <openSearch:itemsPerPage>25</openSearch:itemsPerPage> ' <entry gd:etag="contactEtag"> ' <id> ' http://www.google.com/m8/feeds/contacts/userEmail/base/contactId ' </id> ' <updated>2008-12-10T04:45:03.331Z</updated> ' <app:edited xmlns:app="http://www.w3.org/2007/app">2008-12-10T04:45:03.331Z</app:edited> ' <category scheme="http://schemas.google.com/g/2005#kind" ' term="http://schemas.google.com/contact/2008#contact"/> ' <title>Fitzwilliam Darcy</title> ' <gd:name> ' <gd:fullName>Fitzwilliam Darcy</gd:fullName> ' </gd:name> ' <link rel="http://schemas.google.com/contacts/2008/rel#photo" type="image/*" ' href="https://www.google.com/m8/feeds/photos/media/userEmail/contactId" ' gd:etag="photoEtag"/> ' <link rel="self" type="application/atom+xml" ' href="https://www.google.com/m8/feeds/contacts/userEmail/full/contactId"/> ' <link rel="edit" type="application/atom+xml" ' href="https://www.google.com/m8/feeds/contacts/userEmail/full/contactId"/> ' <gd:phoneNumber rel="http://schemas.google.com/g/2005#home" ' primary="true"> ' 456 ' </gd:phoneNumber> ' <gd:extendedProperty name="pet" value="hamster"/> ' <gContact:groupMembershipInfo deleted="false" ' href="http://www.google.com/m8/feeds/groups/userEmail/base/groupId"/> ' <gd:email rel="http://schemas.google.com/g/2005#other" address="darcyf@example.com" primary="true" /> ' </entry> ' <!-- Other entries ... --> ' </feed> ' %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.