Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Tcl) Google Contacts - Delete a ContactDemonstrates how to delete a Google Contact.
load ./chilkat.dll # 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 set jsonToken [new_CkJsonObject] set success [CkJsonObject_LoadFile $jsonToken "qa_data/tokens/googleContacts.json"] if {$success != 1} then { puts "Failed to load googleContacts.json" delete_CkJsonObject $jsonToken exit } set gAuth [new_CkAuthGoogle] CkAuthGoogle_put_AccessToken $gAuth [CkJsonObject_stringOf $jsonToken "access_token"] set rest [new_CkRest] # Connect using TLS. set bAutoReconnect 1 set success [CkRest_Connect $rest "www.google.com" 443 1 $bAutoReconnect] # Provide the authentication credentials (i.e. the access token) CkRest_SetAuthGoogle $rest $gAuth # ---------------------------------------------- # OK, the REST connection setup is completed.. # ---------------------------------------------- # To update a contact, we'll first get the contact information # to get the etag. # To retrieve the contact, send the following: # GET /m8/feeds/contacts/default/full/{contactId} # GData-Version: 3.0 CkRest_AddHeader $rest "GData-Version" "3.0" set sbPath [new_CkStringBuilder] CkStringBuilder_Append $sbPath "/m8/feeds/contacts/default/full/{contactId}" # Get the contact having contactId = "5b6d64980b1ed462" set numReplacements [CkStringBuilder_Replace $sbPath "{contactId}" "5b6d64980b1ed462"] set sbResponseBody [new_CkStringBuilder] set success [CkRest_FullRequestNoBodySb $rest "GET" [CkStringBuilder_getAsString $sbPath] $sbResponseBody] if {$success != 1} then { puts [CkRest_lastErrorText $rest] delete_CkJsonObject $jsonToken delete_CkAuthGoogle $gAuth delete_CkRest $rest delete_CkStringBuilder $sbPath delete_CkStringBuilder $sbResponseBody exit } # A successful response will have a status code equal to 200. if {[CkRest_get_ResponseStatusCode $rest] != 200} then { puts "response status code = [CkRest_get_ResponseStatusCode $rest]" puts "response status text = [CkRest_responseStatusText $rest]" puts "response header: [CkRest_responseHeader $rest]" puts "response body: [CkStringBuilder_getAsString $sbResponseBody]" delete_CkJsonObject $jsonToken delete_CkAuthGoogle $gAuth delete_CkRest $rest delete_CkStringBuilder $sbPath delete_CkStringBuilder $sbResponseBody exit } # If the 200 response was received, then the contacts XML is contained # in the response body. set xml [new_CkXml] CkXml_LoadSb $xml $sbResponseBody 0 puts [CkXml_getXml $xml] puts "-------------------" # Get the etag: set lastKnownEtag [CkXml_getAttrValue $xml "gd:etag"] puts "lastKnownEtag = $lastKnownEtag" puts "-------------------" # To delete, send the following: # DELETE /m8/feeds/contacts/default/full/{contactId} # If-Match: {lastKnownEtag} # GData-Version: 3.0 CkRest_ClearAllHeaders $rest CkRest_AddHeader $rest "If-Match" $lastKnownEtag CkRest_AddHeader $rest "GData-Version" "3.0" # The sbPath already contains the correct path.. set success [CkRest_FullRequestNoBodySb $rest "DELETE" [CkStringBuilder_getAsString $sbPath] $sbResponseBody] if {$success != 1} then { puts [CkRest_lastErrorText $rest] delete_CkJsonObject $jsonToken delete_CkAuthGoogle $gAuth delete_CkRest $rest delete_CkStringBuilder $sbPath delete_CkStringBuilder $sbResponseBody delete_CkXml $xml exit } # A successful response will have a status code equal to 200. if {[CkRest_get_ResponseStatusCode $rest] != 200} then { puts "response status code = [CkRest_get_ResponseStatusCode $rest]" puts "response status text = [CkRest_responseStatusText $rest]" puts "response header: [CkRest_responseHeader $rest]" puts "response body: [CkStringBuilder_getAsString $sbResponseBody]" puts "request header: [CkRest_lastRequestHeader $rest]" delete_CkJsonObject $jsonToken delete_CkAuthGoogle $gAuth delete_CkRest $rest delete_CkStringBuilder $sbPath delete_CkStringBuilder $sbResponseBody delete_CkXml $xml exit } # The response body for a successful DELETE is empty. puts "Response Body: (should be empty)" puts [CkStringBuilder_getAsString $sbResponseBody] puts "Success." delete_CkJsonObject $jsonToken delete_CkAuthGoogle $gAuth delete_CkRest $rest delete_CkStringBuilder $sbPath delete_CkStringBuilder $sbResponseBody delete_CkXml $xml |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.