DataFlex

Delete File

See more Google Drive Examples

Permanently deletes a file owned by the user without moving it to the trash. If the target is a folder, all descendants owned by the user are also deleted.

See Google Drive Files delete for more information.

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Variant vGAuth
    Handle hoGAuth
    Handle hoRest
    Boolean iBAutoReconnect
    String sFileId
    Handle hoSbPath
    String sJsonResponse
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

    Move False To iSuccess

    Move True To iSuccess

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

    // This example uses a previously obtained access token having permission for the 
    // Google Drive scope.

    Get Create (RefClass(cComChilkatAuthGoogle)) To hoGAuth
    If (Not(IsComObjectCreated(hoGAuth))) Begin
        Send CreateComObject of hoGAuth
    End
    Set ComAccessToken Of hoGAuth To "GOOGLE-DRIVE-ACCESS-TOKEN"

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

    // Connect using TLS.
    Move True To iBAutoReconnect
    Get ComConnect Of hoRest "www.googleapis.com" 443 True iBAutoReconnect To iSuccess

    // Provide the authentication credentials (i.e. the access token)
    Get pvComObject of hoGAuth to vGAuth
    Get ComSetAuthGoogle Of hoRest vGAuth To iSuccess

    // To delete a file, we must use the fileId.
    // This must've been obtained by listing or searching for the file
    // to get the metadata.
    // Assume we already did that an have the fileId
    Move "0B53Q6OSTWYoldUprZVU1ZVQ5Z0k" To sFileId

    Get Create (RefClass(cComChilkatStringBuilder)) To hoSbPath
    If (Not(IsComObjectCreated(hoSbPath))) Begin
        Send CreateComObject of hoSbPath
    End
    Get ComAppend Of hoSbPath "/drive/v3/files/" To iSuccess
    Get ComAppend Of hoSbPath sFileId To iSuccess

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

    // A successful response will have a status code equal to 204 and the response body is empty.
    // (If not successful, then there should be a JSON response body with information..)
    Get ComResponseStatusCode Of hoRest To iTemp1
    If (iTemp1 <> 204) Begin
        Get ComResponseStatusCode Of hoRest To iTemp1
        Showln "response status code = " iTemp1
        Get ComResponseStatusText Of hoRest To sTemp1
        Showln "response status text = " sTemp1
        Get ComResponseHeader Of hoRest To sTemp1
        Showln "response header: " sTemp1
        Showln "response JSON: " sJsonResponse
        Procedure_Return
    End

    Showln "File deleted."


End_Procedure