(Visual FoxPro) Google People API - Delete a Contact

Demonstrates how to delete a People API Contact.

For more information, see https://developers.google.com/people/v1/contacts#delete-an-existing-contact

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loJsonToken
LOCAL lnSuccess
LOCAL loHttp
LOCAL lcResponseText

* 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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
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