(DataFlex) 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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoJsonToken
    Boolean iSuccess
    Handle hoHttp
    String sResponseText
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

    // 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

    Get Create (RefClass(cComChilkatJsonObject)) To hoJsonToken
    If (Not(IsComObjectCreated(hoJsonToken))) Begin
        Send CreateComObject of hoJsonToken
    End
    Get ComLoadFile Of hoJsonToken "qa_data/tokens/googlePeople.json" To iSuccess
    If (iSuccess <> True) Begin
        Showln "Failed to load googleContacts.json"
        Procedure_Return
    End

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    Get ComStringOf Of hoJsonToken "access_token" To sTemp1
    Set ComAuthToken Of hoHttp To sTemp1

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

    Get ComQuickDeleteStr Of hoHttp "https://people.googleapis.com/v1/people/c172365763025317520:deleteContact" To sResponseText
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // A 200 status code indicates success.  The response text for success will be an empty JSON document: "{}"
    Get ComLastStatus Of hoHttp To iTemp1
    Showln "Response status code = " iTemp1
    Showln "Response text:"
    Showln sResponseText


End_Procedure