DataFlex

Xero Delete File (FILES API)

Delete a file via the Xero FILES API.

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

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoRest
    String sFileID
    Handle hoSbPath
    Integer iNumReplaced
    String sJsonResponse
    String sTemp1
    Integer iTemp1

    Move False To iSuccess

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

    Get Create (RefClass(cComChilkatRest)) To hoRest
    If (Not(IsComObjectCreated(hoRest))) Begin
        Send CreateComObject of hoRest
    End

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

    // ------------------------------------------------------------------------------
    Move "f042e9a3-a31d-4595-b8b3-6030ea6084bb" To sFileID

    Get Create (RefClass(cComChilkatStringBuilder)) To hoSbPath
    If (Not(IsComObjectCreated(hoSbPath))) Begin
        Send CreateComObject of hoSbPath
    End
    Get ComAppend Of hoSbPath "/files.xro/1.0/Files/{FileId}" To iSuccess
    Get ComReplace Of hoSbPath "{FileId}" sFileID To iNumReplaced

    Get ComGetAsString Of hoSbPath To sTemp1
    Get ComFullRequestNoBody Of hoRest "DELETE" sTemp1 To sJsonResponse
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoRest To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // A 201 response is expected for actual success.
    Get ComResponseStatusCode Of hoRest To iTemp1
    If (iTemp1 <> 201) Begin
        Showln sJsonResponse
        Showln "-- Failed."
        Procedure_Return
    End

    Showln "Xero Delete File was Successful."


End_Procedure