Sample code for 30+ languages & platforms
Visual FoxPro

Google Contacts - Create New Contact

See more Google APIs Examples

Demonstrates how to create a new contact for the Google Contacts API.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro
Visual FoxPro 
LOCAL lnSuccess
LOCAL loXml
LOCAL loJsonToken
LOCAL loGAuth
LOCAL loRest
LOCAL lnBAutoReconnect
LOCAL loSbRequestBody
LOCAL loSbResponseBody

lnSuccess = 0

* This example requires the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* First create a new contact XML.
loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "atom:entry"
loXml.AddAttribute("xmlns:atom","http://www.w3.org/2005/Atom")
loXml.AddAttribute("xmlns:gd","http://schemas.google.com/g/2005")
loXml.UpdateAttrAt("atom:category",1,"scheme","http://schemas.google.com/g/2005#kind")
loXml.UpdateAttrAt("atom:category",1,"term","http://schemas.google.com/contact/2008#contact")
loXml.UpdateChildContent("gd:name|gd:givenName","Elizabeth")
loXml.UpdateChildContent("gd:name|gd:familyName","Bennet")
loXml.UpdateChildContent("gd:name|gd:fullName","Elizabeth Bennet")
loXml.UpdateAttrAt("atom:content",1,"type","text")
loXml.UpdateChildContent("atom:content","Notes")
loXml.UpdateAttrAt("gd:email",1,"rel","http://schemas.google.com/g/2005#work")
loXml.UpdateAttrAt("gd:email",1,"primary","true")
loXml.UpdateAttrAt("gd:email",1,"address","liz@gmail.com")
loXml.UpdateAttrAt("gd:email",1,"displayName","E. Bennet")
loXml.UpdateAttrAt("gd:email",1,"rel","http://schemas.google.com/g/2005#home")
loXml.UpdateAttrAt("gd:email",1,"address","liz@example.org")
loXml.UpdateAttrAt("gd:phoneNumber",1,"rel","http://schemas.google.com/g/2005#work")
loXml.UpdateAttrAt("gd:phoneNumber",1,"primary","true")
loXml.UpdateChildContent("gd:phoneNumber","(206)555-1212")
loXml.UpdateAttrAt("gd:phoneNumber",1,"rel","http://schemas.google.com/g/2005#home")
loXml.UpdateChildContent("gd:phoneNumber","(206)555-1213")
loXml.UpdateAttrAt("gd:im",1,"address","liz@gmail.com")
loXml.UpdateAttrAt("gd:im",1,"protocol","http://schemas.google.com/g/2005#GOOGLE_TALK")
loXml.UpdateAttrAt("gd:im",1,"primary","true")
loXml.UpdateAttrAt("gd:im",1,"rel","http://schemas.google.com/g/2005#home")
loXml.UpdateAttrAt("gd:structuredPostalAddress",1,"rel","http://schemas.google.com/g/2005#work")
loXml.UpdateAttrAt("gd:structuredPostalAddress",1,"primary","true")
loXml.UpdateChildContent("gd:structuredPostalAddress|gd:city","Mountain View")
loXml.UpdateChildContent("gd:structuredPostalAddress|gd:street","1600 Amphitheatre Pkwy")
loXml.UpdateChildContent("gd:structuredPostalAddress|gd:region","CA")
loXml.UpdateChildContent("gd:structuredPostalAddress|gd:postcode","94043")
loXml.UpdateChildContent("gd:structuredPostalAddress|gd:country","United States")
loXml.UpdateChildContent("gd:structuredPostalAddress|gd:formattedAddress","1600 Amphitheatre Pkwy Mountain View")

? loXml.GetXml()

* Created the following XML:

* 	<?xml version="1.0" encoding="utf-8" ?>
* 	<atom:entry xmlns:atom="http://www.w3.org/2005/Atom" xmlns:gd="http://schemas.google.com/g/2005">
* 	    <atom:category scheme="http://schemas.google.com/g/2005#kind" term="http://schemas.google.com/contact/2008#contact" />
* 	    <gd:name>
* 	        <gd:givenName>Elizabeth</gd:givenName>
* 	        <gd:familyName>Bennet</gd:familyName>
* 	        <gd:fullName>Elizabeth Bennet</gd:fullName>
* 	    </gd:name>
* 	    <atom:content type="text">Notes</atom:content>
* 	    <gd:email primary="true" displayName="E. Bennet" rel="http://schemas.google.com/g/2005#home" address="liz@example.org" />
* 	    <gd:phoneNumber primary="true" rel="http://schemas.google.com/g/2005#home">(206)555-1213</gd:phoneNumber>
* 	    <gd:im address="liz@gmail.com" protocol="http://schemas.google.com/g/2005#GOOGLE_TALK" primary="true" rel="http://schemas.google.com/g/2005#home" />
* 	    <gd:structuredPostalAddress rel="http://schemas.google.com/g/2005#work" primary="true">
* 	        <gd:city>Mountain View</gd:city>
* 	        <gd:street>1600 Amphitheatre Pkwy</gd:street>
* 	        <gd:region>CA</gd:region>
* 	        <gd:postcode>94043</gd:postcode>
* 	        <gd:country>United States</gd:country>
* 	        <gd:formattedAddress>1600 Amphitheatre Pkwy Mountain View</gd:formattedAddress>
* 	    </gd:structuredPostalAddress>
* 	</atom:entry>

* --------------------------------------------------------------------------------------------------------
* 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 loXml
    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 create a contact, we need to send the following:

* 	POST /m8/feeds/contacts/default/full
* 	Content-Type: application/atom+xml
* 	GData-Version: 3.0

loRest.AddHeader("Content-Type","application/atom+xml")
loRest.AddHeader("GData-Version","3.0")

loSbRequestBody = CreateObject('Chilkat.StringBuilder')
loSbResponseBody = CreateObject('Chilkat.StringBuilder')
loXml.GetXmlSb(loSbRequestBody)
lnSuccess = loRest.FullRequestSb("POST","/m8/feeds/contacts/default/full",loSbRequestBody,loSbResponseBody)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loXml
    RELEASE loJsonToken
    RELEASE loGAuth
    RELEASE loRest
    RELEASE loSbRequestBody
    RELEASE loSbResponseBody
    CANCEL
ENDIF

* A successful response will have a status code equal to 201.
IF (loRest.ResponseStatusCode <> 201) THEN
    ? "response status code = " + STR(loRest.ResponseStatusCode)
    ? "response status text = " + loRest.ResponseStatusText
    ? "response header: " + loRest.ResponseHeader
    ? "response body: " + loSbResponseBody.GetAsString()
    RELEASE loXml
    RELEASE loJsonToken
    RELEASE loGAuth
    RELEASE loRest
    RELEASE loSbRequestBody
    RELEASE loSbResponseBody
    CANCEL
ENDIF

* If the 201 response was received, then the contact was successfully created,
* and there is no response body.
? "Contact created."

RELEASE loXml
RELEASE loJsonToken
RELEASE loGAuth
RELEASE loRest
RELEASE loSbRequestBody
RELEASE loSbResponseBody