|
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
(Visual FoxPro) Google Contacts - Retrieve as JSONDemonstrates how to retrieve Google Contacts as JSON.
LOCAL loJsonToken LOCAL lnSuccess 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 * 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') 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 * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.AuthGoogle') loGAuth = CreateObject('Chilkat.AuthGoogle') loGAuth.AccessToken = loJsonToken.StringOf("access_token") * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rest') 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") * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder') 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. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject') 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 |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.