(DataFlex) MercadoLibre - GET Request with Access Token in Query Params

See more MercadoLibre Examples

Demonstrates how to send an HTTPS GET request to MercadoLibre with the access token specified as a query parameter.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoHttp
    Handle hoJsonToken
    Boolean iSuccess
    String sResponseStr
    String sTemp1
    Boolean bTemp1

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

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    // First get our previously obtained OAuth2 access token.
    Get Create (RefClass(cComChilkatJsonObject)) To hoJsonToken
    If (Not(IsComObjectCreated(hoJsonToken))) Begin
        Send CreateComObject of hoJsonToken
    End
    Get ComLoadFile Of hoJsonToken "qa_data/tokens/mercadolibre.json" To iSuccess
    If (iSuccess = False) Begin
        Showln "Failed to load JSON access token."
        Procedure_Return
    End

    // Use your seller ID.
    Get ComSetUrlVar Of hoHttp "SELLER_ID" "577815702" To iSuccess
    Get ComStringOf Of hoJsonToken "access_token" To sTemp1
    Get ComSetUrlVar Of hoHttp "ACCESS_TOKEN" sTemp1 To iSuccess

    Get ComQuickGetStr Of hoHttp "https://api.mercadolibre.com/questions/search?seller_id={$SELLER_ID}&api_version=4&access_token={$ACCESS_TOKEN}" To sResponseStr
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln sResponseStr


End_Procedure