|
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 as JSONDemonstrates how to retrieve Google Contacts as JSON.
<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 ' To get the contacts data in JSON format, set the "alt" query parameter to "json" success = rest.AddQueryParam("alt","json") 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 JSON is contained ' in the response body. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set json = Server.CreateObject("Chilkat.JsonObject") success = json.LoadSb(sbResponseBody) json.EmitCompact = 0 ' Save the pretty-printed JSON response to a file. sbResponseBody.Clear success = json.EmitSb(sbResponseBody) success = sbResponseBody.WriteFile("qa_output/google_contacts.json","utf-8",0) ' Parse the Google Contacts JSON, and iterate over the contacts.. totalResults = json.IntOf("feed.openSearch$totalResults.$t") startIndex = json.IntOf("feed.openSearch$startIndex.$t") itemsPerPage = json.IntOf("feed.openSearch$itemsPerPage.$t") Response.Write "<pre>" & Server.HTMLEncode( "totalResults = " & totalResults) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "startIndex = " & startIndex) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "itemsPerPage = " & itemsPerPage) & "</pre>" numEntries = json.SizeOfArray("feed.entry") i = 0 Do While i < numEntries json.I = i Response.Write "<pre>" & Server.HTMLEncode( i + 1 & " ----") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "title: " & json.StringOf("feed.entry[i].title.$t")) & "</pre>" fullName = json.StringOf("feed.entry[i].gd$name.gd$fullName.$t") If (json.LastMethodSuccess = 1) Then Response.Write "<pre>" & Server.HTMLEncode( "fullName: " & fullName) & "</pre>" End If ' There can be multiple email addresses, so it's stored as a JSON array.. numEmailAddresses = json.SizeOfArray("feed.entry[i].gd$email") j = 0 Do While j < numEmailAddresses emailAddress = json.StringOf("feed.entry[i].gd$email[j].address") If (json.LastMethodSuccess = 1) Then Response.Write "<pre>" & Server.HTMLEncode( "email address: " & emailAddress) & "</pre>" End If j = j + 1 Loop i = i + 1 Loop ' A sample Google Contacts JSON response: ' { ' "version": "1.0", ' "encoding": "UTF-8", ' "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": "\"QHw5eTVSLyt7I2A9XRFaE0kNTwI.\"", ' "id": { ' "$t": "chilkat.support@gmail.com" ' }, ' "updated": { ' "$t": "2016-11-17T01:57:41.221Z" ' }, ' "category": [ ' { ' "scheme": "http://schemas.google.com/g/2005#kind", ' "term": "http://schemas.google.com/contact/2008#contact" ' } ' ], ' "title": { ' "$t": "Chilkat Support's Contacts" ' }, ' "link": [ ' { ' "rel": "alternate", ' "type": "text/html", ' "href": "https://www.googleapis.com/" ' }, ' { ' "rel": "http://schemas.google.com/g/2005#feed", ' "type": "application/atom+xml", ' "href": "https://www.googleapis.com/m8/feeds/contacts/chilkat.support%40gmail.com/full" ' }, ' { ' "rel": "http://schemas.google.com/g/2005#post", ' "type": "application/atom+xml", ' "href": "https://www.googleapis.com/m8/feeds/contacts/chilkat.support%40gmail.com/full" ' }, ' { ' "rel": "http://schemas.google.com/g/2005#batch", ' "type": "application/atom+xml", ' "href": "https://www.googleapis.com/m8/feeds/contacts/chilkat.support%40gmail.com/full/batch" ' }, ' { ' "rel": "self", ' "type": "application/atom+xml", ' "href": "https://www.googleapis.com/m8/feeds/contacts/chilkat.support%40gmail.com/full?max-results=25&alt=json" ' }, ' { ' "rel": "next", ' "type": "application/atom+xml", ' "href": "https://www.googleapis.com/m8/feeds/contacts/chilkat.support%40gmail.com/full?max-results=25&alt=json&start-index=26" ' } ' ], ' "author": [ ' { ' "name": { ' "$t": "Chilkat Support" ' }, ' "email": { ' "$t": "chilkat.support@gmail.com" ' } ' } ' ], ' "generator": { ' "version": "1.0", ' "uri": "http://www.google.com/m8/feeds", ' "$t": "Contacts" ' }, ' "openSearch$totalResults": { ' "$t": "350" ' }, ' "openSearch$startIndex": { ' "$t": "1" ' }, ' "openSearch$itemsPerPage": { ' "$t": "25" ' }, ' "entry": [ ' { ' "id": { ' "$t": "http://www.google.com/m8/feeds/contacts/chilkat.support%40gmail.com/base/0" ' }, ' "gd$etag": "\"SX8zcTVSLyt7I2A9WxBXFU4MQwI.\"", ' "updated": { ' "$t": "2010-01-26T20:07:48.189Z" ' }, ' "app$edited": { ' "xmlns$app": "http://www.w3.org/2007/app", ' "$t": "2010-01-26T20:07:48.189Z" ' }, ' "category": [ ' { ' "scheme": "http://schemas.google.com/g/2005#kind", ' "term": "http://schemas.google.com/contact/2008#contact" ' } ' ], ' "title": { ' "$t": "Joe Sample" ' }, ' "link": [ ' { ' "rel": "http://schemas.google.com/contacts/2008/rel#photo", ' "type": "image/*", ' "href": "https://www.googleapis.com/m8/feeds/photos/media/chilkat.support%40gmail.com/0" ' }, ' { ' "rel": "self", ' "type": "application/atom+xml", ' "href": "https://www.googleapis.com/m8/feeds/contacts/chilkat.support%40gmail.com/full/0" ' }, ' { ' "rel": "edit", ' "type": "application/atom+xml", ' "href": "https://www.googleapis.com/m8/feeds/contacts/chilkat.support%40gmail.com/full/0" ' } ' ], ' "gd$name": { ' "gd$fullName": { ' "$t": "Joe Sample" ' }, ' "gd$givenName": { ' "$t": "Joe" ' }, ' "gd$familyName": { ' "$t": "Sample" ' } ' }, ' "gd$email": [ ' { ' "address": "somebody@gmail.com", ' "primary": "true", ' "rel": "http://schemas.google.com/g/2005#other" ' } ' ] ' }, ' ... more entries ... ' %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.