Visual FoxPro
Visual FoxPro
Google Contacts - Retrieve as JSON
See more Google APIs Examples
Demonstrates how to retrieve Google Contacts as JSON.Chilkat Visual FoxPro Downloads
LOCAL lnSuccess
LOCAL loJsonToken
LOCAL loGAuth
LOCAL loRest
LOCAL lnBAutoReconnect
LOCAL loSbResponseBody
LOCAL loJson
LOCAL lnTotalResults
LOCAL lnStartIndex
LOCAL lnItemsPerPage
LOCAL lnNumEntries
LOCAL i
LOCAL lcFullName
LOCAL lnNumEmailAddresses
LOCAL j
LOCAL lcEmailAddress
lnSuccess = 0
* 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
loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/googleContacts.json")
IF (lnSuccess <> 1) THEN
? "Failed to load googleContacts.json"
RELEASE loJsonToken
CANCEL
ENDIF
loGAuth = CreateObject('Chilkat.AuthGoogle')
loGAuth.AccessToken = loJsonToken.StringOf("access_token")
loRest = CreateObject('Chilkat.Rest')
* Connect using TLS.
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("www.google.com",443,1,lnBAutoReconnect)
* Provide the authentication credentials (i.e. the access token)
loRest.SetAuthGoogle(loGAuth)
* ----------------------------------------------
* 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"
loRest.AddQueryParam("alt","json")
loRest.AddHeader("GData-Version","3.0")
loSbResponseBody = CreateObject('Chilkat.StringBuilder')
lnSuccess = loRest.FullRequestNoBodySb("GET","/m8/feeds/contacts/default/full",loSbResponseBody)
IF (lnSuccess <> 1) THEN
? loRest.LastErrorText
RELEASE loJsonToken
RELEASE loGAuth
RELEASE loRest
RELEASE loSbResponseBody
CANCEL
ENDIF
* A successful response will have a status code equal to 200.
IF (loRest.ResponseStatusCode <> 200) THEN
? "response status code = " + STR(loRest.ResponseStatusCode)
? "response status text = " + loRest.ResponseStatusText
? "response header: " + loRest.ResponseHeader
? "response body: " + loSbResponseBody.GetAsString()
RELEASE loJsonToken
RELEASE loGAuth
RELEASE loRest
RELEASE loSbResponseBody
CANCEL
ENDIF
* If the 200 response was received, then the contacts JSON is contained
* in the response body.
loJson = CreateObject('Chilkat.JsonObject')
loJson.LoadSb(loSbResponseBody)
loJson.EmitCompact = 0
* Save the pretty-printed JSON response to a file.
loSbResponseBody.Clear()
loJson.EmitSb(loSbResponseBody)
loSbResponseBody.WriteFile("qa_output/google_contacts.json","utf-8",0)
* Parse the Google Contacts JSON, and iterate over the contacts..
lnTotalResults = loJson.IntOf("feed.openSearch$totalResults.$t")
lnStartIndex = loJson.IntOf("feed.openSearch$startIndex.$t")
lnItemsPerPage = loJson.IntOf("feed.openSearch$itemsPerPage.$t")
? "totalResults = " + STR(lnTotalResults)
? "startIndex = " + STR(lnStartIndex)
? "itemsPerPage = " + STR(lnItemsPerPage)
lnNumEntries = loJson.SizeOfArray("feed.entry")
i = 0
DO WHILE i < lnNumEntries
loJson.I = i
? STR(i + 1) + " ----"
? "title: " + loJson.StringOf("feed.entry[i].title.$t")
lcFullName = loJson.StringOf("feed.entry[i].gd$name.gd$fullName.$t")
IF (loJson.LastMethodSuccess = 1) THEN
? "fullName: " + lcFullName
ENDIF
* There can be multiple email addresses, so it's stored as a JSON array..
lnNumEmailAddresses = loJson.SizeOfArray("feed.entry[i].gd$email")
j = 0
DO WHILE j < lnNumEmailAddresses
lcEmailAddress = loJson.StringOf("feed.entry[i].gd$email[j].address")
IF (loJson.LastMethodSuccess = 1) THEN
? "email address: " + lcEmailAddress
ENDIF
j = j + 1
ENDDO
i = i + 1
ENDDO
* 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 ...
*
RELEASE loJsonToken
RELEASE loGAuth
RELEASE loRest
RELEASE loSbResponseBody
RELEASE loJson