Xbase++

Find Contact Having Email Address

See more Google APIs Examples

Demonstrates how to fetch the Google Contact for a given email address. Xbase++

LOCAL nSuccess
LOCAL oJsonToken
LOCAL oGAuth
LOCAL oRest
LOCAL nBAutoReconnect
LOCAL cEmailAddressToFind
LOCAL oSbResponseBody
LOCAL oXml
LOCAL nTotalResults
LOCAL nStartIndex
LOCAL nItemsPerPage
LOCAL oFac
LOCAL nNumEntries
LOCAL i
LOCAL cIdUrl
LOCAL cContactId
LOCAL cFullName
LOCAL cEmailAddress

nSuccess := 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

oJsonToken := CreateObject("Chilkat.JsonObject")
nSuccess := oJsonToken:LoadFile("qa_data/tokens/googleContacts.json")
IF (nSuccess != 1)
    ? "Failed to load googleContacts.json"
    oJsonToken:destroy()
    RETURN
ENDIF

oGAuth := CreateObject("Chilkat.AuthGoogle")
oGAuth:AccessToken := oJsonToken:StringOf("access_token")

oRest := CreateObject("Chilkat.Rest")

//  Connect using TLS.
nBAutoReconnect := 1
nSuccess := oRest:Connect("www.google.com", 443, 1, nBAutoReconnect)

//  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?q=<emailAddress>
//  	GData-Version: 3.0

//  Get the contact (or contacts) with this email address:
cEmailAddressToFind := "admin@chilkatsoft.com"

oRest:AddHeader("GData-Version", "3.0")
oRest:AddQueryParam("q", cEmailAddressToFind)

oSbResponseBody := CreateObject("Chilkat.StringBuilder")
nSuccess := oRest:FullRequestNoBodySb("GET", "/m8/feeds/contacts/default/full", oSbResponseBody)
IF (nSuccess != 1)
    ? oRest:LastErrorText
    oJsonToken:destroy()
    oGAuth:destroy()
    oRest:destroy()
    oSbResponseBody:destroy()
    RETURN
ENDIF

//  A successful response will have a status code equal to 200.
IF (oRest:ResponseStatusCode != 200)
    ? "response status code = " + Str(oRest:ResponseStatusCode)
    ? "response status text = " + oRest:ResponseStatusText
    ? "response header: " + oRest:ResponseHeader
    ? "response body: " + oSbResponseBody:GetAsString()
    oJsonToken:destroy()
    oGAuth:destroy()
    oRest:destroy()
    oSbResponseBody:destroy()
    RETURN
ENDIF

//  If the 200 response was received, then the contacts XML is contained
//  in the response body.
oXml := CreateObject("Chilkat.Xml")
oXml:LoadSb(oSbResponseBody, 0)

//  See below for a sample response body.
oXml: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.
nTotalResults := oXml:GetChildIntValue("openSearch:totalResults")
nStartIndex := oXml:GetChildIntValue("openSearch:startIndex")
nItemsPerPage := oXml:GetChildIntValue("openSearch:itemsPerPage")
? "totalResults = " + Str(nTotalResults)
? "startIndex = " + Str(nStartIndex)
? "itemsPerPage = " + Str(nItemsPerPage)

//  We'll borrow a method from FileAccess to get the contactId from the URL string (see the code in the while loop)
oFac := CreateObject("Chilkat.FileAccess")

//  Iterate over each contact.
nNumEntries := oXml:NumChildrenHavingTag("entry")
i := 0
DO WHILE i < nNumEntries
    oXml:I := i
    ? Str(i + 1) + " ----"
    ? "title: " + oXml:GetChildContent("entry[i]|title")

    //  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..
    cIdUrl := oXml:GetChildContent("entry[i]|id")
    ? "id: " + cIdUrl

    //  Use the parsing ability of GetFileName to get the contactId
    cContactId := oFac:GetFileName(cIdUrl)
    ? "contactId: " + cContactId

    cFullName := oXml:ChilkatPath("entry[i]|gd:name|gd:fullName|*")
    IF (oXml:LastMethodSuccess == 1)
        ? "fullName: " + cFullName
    ENDIF

    cEmailAddress := oXml:ChilkatPath("entry[i]|gd:email|(address)")
    IF (oXml:LastMethodSuccess == 1)
        ? "email address: " + cEmailAddress
    ENDIF

    i := i + 1
ENDDO

oJsonToken:destroy()
oGAuth:destroy()
oRest:destroy()
oSbResponseBody:destroy()
oXml:destroy()
oFac:destroy()