(DataFlex) Quickbooks Revoke OAuth2 Token

Demonstrates how to revoke a QuickBooks OAuth2 access token.

For more information, see https://developer.intuit.com/app/developer/qbo/docs/develop/authentication-and-authorization/oauth-2.0#revoke-token-disconnect

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Variant vJson
Token    Handle hoJsonToken
    Boolean iSuccess
    Handle hoHttp
    Variant vJson
    Handle hoJson
    String sUrl
    Variant vResp
    Handle hoResp
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

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

    // This example assumes we previously obtained an OAuth2 access token for QuickBooks.

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

    // The access token JSON looks something like this:

    // {
    //   "expires_in": 3600,
    //   "x_refresh_token_expires_in": 8726400,
    //   "refresh_token": "L011546037639r ... 3vR2DrbOmg0Sdagw",
    //   "access_token": "eyJlbmMiOiJBMTI4Q0 ... oETJEMbeggg",
    //   "token_type": "bearer"
    // }

    // This code sends the following request:

    // POST https://developer.api.intuit.com/v2/oauth2/tokens/revoke HTTP/1.1
    // Accept: application/json
    // Authorization: Basic UTM0dVB...wM1d2
    // Content-Type: application/json
    // 
    // {
    //     "token": "{bearerToken or refreshToken}"
    // }

    // Use this online tool to generate HTTP code from a sample request: 
    // Generate Code from a Sample HTTP Request

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End
    Send ComSetRequestHeader To hoHttp "Accept" "application/json"
    Set ComBasicAuth Of hoHttp To True
    Set ComLogin Of hoHttp To "QUICKBOOKS-CLIENT-ID"
    Set ComPassword Of hoHttp To "QUICKBOOKS-CLIENT-SECRET"

    Get Create (RefClass(cComChilkatJsonObject)) To hoJson
    If (Not(IsComObjectCreated(hoJson))) Begin
        Send CreateComObject of hoJson
    End
    Get ComStringOf Of hoJsonToken "access_token" To sTemp1
    Get ComUpdateString Of hoJson "token" sTemp1 To iSuccess

    Move "https://developer.api.intuit.com/v2/oauth2/tokens/revoke" To sUrl
    Get pvComObject of hoJson to vJson
    Get ComPostJson3 Of hoHttp sUrl "application/json" vJson To vResp
    If (IsComObject(vResp)) Begin
        Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
        Set pvComObject Of hoResp To vResp
    End
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComStatusCode Of hoResp To iTemp1
    Showln "Response status code = " iTemp1
    Showln "Response body:"
    Get ComBodyStr Of hoResp To sTemp1
    Showln sTemp1
    Send Destroy of hoResp


End_Procedure