|
Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(AutoIt) Google Contacts - Retrieve as JSONDemonstrates how to retrieve Google Contacts as JSON.
; 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 $oJsonToken = ObjCreate("Chilkat.JsonObject") Local $bSuccess = $oJsonToken.LoadFile("qa_data/tokens/googleContacts.json") If ($bSuccess <> True) Then ConsoleWrite("Failed to load googleContacts.json" & @CRLF) Exit EndIf $oGAuth = ObjCreate("Chilkat.AuthGoogle") $oGAuth.AccessToken = $oJsonToken.StringOf("access_token") $oRest = ObjCreate("Chilkat.Rest") ; Connect using TLS. Local $bAutoReconnect = True $bSuccess = $oRest.Connect("www.google.com",443,True,$bAutoReconnect) ; Provide the authentication credentials (i.e. the access token) $oRest.SetAuthGoogle($oGAuth) ; ---------------------------------------------- ; 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" $oRest.AddQueryParam("alt","json") $oRest.AddHeader("GData-Version","3.0") $oSbResponseBody = ObjCreate("Chilkat.StringBuilder") $bSuccess = $oRest.FullRequestNoBodySb("GET","/m8/feeds/contacts/default/full",$oSbResponseBody) If ($bSuccess <> True) Then ConsoleWrite($oRest.LastErrorText & @CRLF) Exit EndIf ; A successful response will have a status code equal to 200. If ($oRest.ResponseStatusCode <> 200) Then ConsoleWrite("response status code = " & $oRest.ResponseStatusCode & @CRLF) ConsoleWrite("response status text = " & $oRest.ResponseStatusText & @CRLF) ConsoleWrite("response header: " & $oRest.ResponseHeader & @CRLF) ConsoleWrite("response body: " & $oSbResponseBody.GetAsString() & @CRLF) Exit EndIf ; If the 200 response was received, then the contacts JSON is contained ; in the response body. $oJson = ObjCreate("Chilkat.JsonObject") $oJson.LoadSb($oSbResponseBody) $oJson.EmitCompact = False ; Save the pretty-printed JSON response to a file. $oSbResponseBody.Clear $oJson.EmitSb($oSbResponseBody) $oSbResponseBody.WriteFile("qa_output/google_contacts.json","utf-8",False) ; Parse the Google Contacts JSON, and iterate over the contacts.. Local $iTotalResults = $oJson.IntOf("feed.openSearch$totalResults.$t") Local $iStartIndex = $oJson.IntOf("feed.openSearch$startIndex.$t") Local $itemsPerPage = $oJson.IntOf("feed.openSearch$itemsPerPage.$t") ConsoleWrite("totalResults = " & $iTotalResults & @CRLF) ConsoleWrite("startIndex = " & $iStartIndex & @CRLF) ConsoleWrite("itemsPerPage = " & $itemsPerPage & @CRLF) Local $iNumEntries = $oJson.SizeOfArray("feed.entry") Local $i = 0 While $i < $iNumEntries $oJson.I = $i ConsoleWrite(($i + 1) & " ----" & @CRLF) ConsoleWrite("title: " & $oJson.StringOf("feed.entry[i].title.$t") & @CRLF) Local $sFullName = $oJson.StringOf("feed.entry[i].gd$name.gd$fullName.$t") If ($oJson.LastMethodSuccess = True) Then ConsoleWrite("fullName: " & $sFullName & @CRLF) EndIf ; There can be multiple email addresses, so it's stored as a JSON array.. Local $iNumEmailAddresses = $oJson.SizeOfArray("feed.entry[i].gd$email") Local $iJ = 0 While $iJ < $iNumEmailAddresses Local $sEmailAddress = $oJson.StringOf("feed.entry[i].gd$email[j].address") If ($oJson.LastMethodSuccess = True) Then ConsoleWrite("email address: " & $sEmailAddress & @CRLF) EndIf $iJ = $iJ + 1 Wend $i = $i + 1 Wend ; 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 ... ; |
||||
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.