Lianja

Simple GET using REST

See more REST Examples

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

llSuccess = .F.

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

loRest = createobject("CkRest")

// Connect to the REST server.
llBTls = .T.
lnPort = 443
llBAutoReconnect = .T.
llSuccess = loRest.Connect("my-store.com",lnPort,llBTls,llBAutoReconnect)

lcResponseJson = loRest.FullRequestNoBody("GET","/wp-json/wc/v1/products?consumer_key=YOUR_CONSUMER_KEY&consumer_secret=YOUR_CONSUMER_SECRET")
if (loRest.LastMethodSuccess <> .T.) then
    ? loRest.LastErrorText
    release loRest
    return
endif

? lcResponseJson
? "----"

// We can alternatively do this:
loRest.ClearAllQueryParams()
loRest.AddQueryParam("consumer_key","YOUR_CONSUMER_KEY")
loRest.AddQueryParam("consumer_secret","YOUR_CONSUMER_SECRET")
lcResponseJson = loRest.FullRequestNoBody("GET","/wp-json/wc/v1/products")
if (loRest.LastMethodSuccess <> .T.) then
    ? loRest.LastErrorText
    release loRest
    return
endif

? lcResponseJson


release loRest