Xbase++

Simple GET using REST

See more REST Examples

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

LOCAL nSuccess
LOCAL oRest
LOCAL nBTls
LOCAL nPort
LOCAL nBAutoReconnect
LOCAL cResponseJson

nSuccess := 0

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

oRest := CreateObject("Chilkat.Rest")

//  Connect to the REST server.
nBTls := 1
nPort := 443
nBAutoReconnect := 1
nSuccess := oRest:Connect("my-store.com", nPort, nBTls, nBAutoReconnect)

cResponseJson := oRest:FullRequestNoBody("GET", "/wp-json/wc/v1/products?consumer_key=YOUR_CONSUMER_KEY&consumer_secret=YOUR_CONSUMER_SECRET")
IF (oRest:LastMethodSuccess != 1)
    ? oRest:LastErrorText
    oRest:destroy()
    RETURN
ENDIF

? cResponseJson
? "----"

//  We can alternatively do this:
oRest:ClearAllQueryParams()
oRest:AddQueryParam("consumer_key", "YOUR_CONSUMER_KEY")
oRest:AddQueryParam("consumer_secret", "YOUR_CONSUMER_SECRET")
cResponseJson := oRest:FullRequestNoBody("GET", "/wp-json/wc/v1/products")
IF (oRest:LastMethodSuccess != 1)
    ? oRest:LastErrorText
    oRest:destroy()
    RETURN
ENDIF

? cResponseJson

oRest:destroy()