(PureBasic) Simple GET using REST

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkRest.pb"

Procedure ChilkatExample()

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

    rest.i = CkRest::ckCreate()
    If rest.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Connect to the REST server.
    bTls.i = 1
    port.i = 443
    bAutoReconnect.i = 1
    success.i = CkRest::ckConnect(rest,"my-store.com",port,bTls,bAutoReconnect)

    responseJson.s = CkRest::ckFullRequestNoBody(rest,"GET","/wp-json/wc/v1/products?consumer_key=YOUR_CONSUMER_KEY&consumer_secret=YOUR_CONSUMER_SECRET")
    If CkRest::ckLastMethodSuccess(rest) <> 1
        Debug CkRest::ckLastErrorText(rest)
        CkRest::ckDispose(rest)
        ProcedureReturn
    EndIf

    Debug responseJson
    Debug "----"

    ; We can alternatively do this:
    CkRest::ckClearAllQueryParams(rest)
    CkRest::ckAddQueryParam(rest,"consumer_key","YOUR_CONSUMER_KEY")
    CkRest::ckAddQueryParam(rest,"consumer_secret","YOUR_CONSUMER_SECRET")
    responseJson = CkRest::ckFullRequestNoBody(rest,"GET","/wp-json/wc/v1/products")
    If CkRest::ckLastMethodSuccess(rest) <> 1
        Debug CkRest::ckLastErrorText(rest)
        CkRest::ckDispose(rest)
        ProcedureReturn
    EndIf

    Debug responseJson


    CkRest::ckDispose(rest)


    ProcedureReturn
EndProcedure