Visual FoxPro

Xero Delete File (FILES API)

Delete a file via the Xero FILES API.

Note: This example requires Chilkat v9.5.0.64 or greater.

Visual FoxPro

LOCAL lnSuccess
LOCAL loRest
LOCAL lcFileID
LOCAL loSbPath
LOCAL lnNumReplaced
LOCAL lcJsonResponse

lnSuccess = 0

* Note: Requires Chilkat v9.5.0.64 or greater.

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

loRest = CreateObject('Chilkat.Rest')

* Before sending REST API calls, the REST object needs to be
* initialized for OAuth1.
* See Xero 2-Legged OAuth1 Setup for sample code.

* Assuming the REST object's OAuth1 authenticator is setup, and the initial
* connection was made, we may now send REST HTTP requests..

* ------------------------------------------------------------------------------
lcFileID = "f042e9a3-a31d-4595-b8b3-6030ea6084bb"

loSbPath = CreateObject('Chilkat.StringBuilder')
loSbPath.Append("/files.xro/1.0/Files/{FileId}")
lnNumReplaced = loSbPath.Replace("{FileId}",lcFileID)

lcJsonResponse = loRest.FullRequestNoBody("DELETE",loSbPath.GetAsString())
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loSbPath
    CANCEL
ENDIF

* A 201 response is expected for actual success.
IF (loRest.ResponseStatusCode <> 201) THEN
    ? lcJsonResponse
    ? "-- Failed."
    RELEASE loRest
    RELEASE loSbPath
    CANCEL
ENDIF

? "Xero Delete File was Successful."

RELEASE loRest
RELEASE loSbPath