(DataFlex) Simple GET using REST

Demonstrates how to do a simple HTTP GET request using REST.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoRest
    Boolean iBTls
    Integer iPort
    Boolean iBAutoReconnect
    Boolean iSuccess
    String sResponseJson
    String sTemp1
    Boolean bTemp1

    // This example 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

    // Connect to the REST server.
    Move True To iBTls
    Move 443 To iPort
    Move True To iBAutoReconnect
    Get ComConnect Of hoRest "my-store.com" iPort iBTls iBAutoReconnect To iSuccess

    Get ComFullRequestNoBody Of hoRest "GET" "/wp-json/wc/v1/products?consumer_key=YOUR_CONSUMER_KEY&consumer_secret=YOUR_CONSUMER_SECRET" To sResponseJson
    Get ComLastMethodSuccess Of hoRest To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoRest To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln sResponseJson
    Showln "----"

    // We can alternatively do this:
    Get ComClearAllQueryParams Of hoRest To iSuccess
    Get ComAddQueryParam Of hoRest "consumer_key" "YOUR_CONSUMER_KEY" To iSuccess
    Get ComAddQueryParam Of hoRest "consumer_secret" "YOUR_CONSUMER_SECRET" To iSuccess
    Get ComFullRequestNoBody Of hoRest "GET" "/wp-json/wc/v1/products" To sResponseJson
    Get ComLastMethodSuccess Of hoRest To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoRest To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln sResponseJson


End_Procedure