Visual FoxPro

Google People API - Delete a Contact

See more Google People Examples

Demonstrates how to delete a People API Contact. Visual FoxPro

LOCAL lnSuccess
LOCAL loJsonToken
LOCAL loHttp
LOCAL lcResponseText

lnSuccess = 0

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

* It is assumed we previously obtained an OAuth2 access token.
* This example loads the JSON access token file 

* originally obtained by this example: Get Google People API OAuth2 Access Token
* or refreshed by this example: Refresh Google People API OAuth2 Access Token

loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/googlePeople.json")
IF (lnSuccess <> 1) THEN
    ? "Failed to load googleContacts.json"
    RELEASE loJsonToken
    CANCEL
ENDIF

loHttp = CreateObject('Chilkat.Http')

loHttp.AuthToken = loJsonToken.StringOf("access_token")

* Send the following request, where resource_name contains the actual resource name, such as "people/c172365763025317520".
* DELETE /v1/resource_name:deleteContact 

lcResponseText = loHttp.QuickDeleteStr("https://people.googleapis.com/v1/people/c172365763025317520:deleteContact")
IF (loHttp.LastMethodSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loJsonToken
    RELEASE loHttp
    CANCEL
ENDIF

* A 200 status code indicates success.  The response text for success will be an empty JSON document: "{}"
? "Response status code = " + STR(loHttp.LastStatus)
? "Response text:"
? lcResponseText

RELEASE loJsonToken
RELEASE loHttp