(PowerBuilder) 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

integer li_rc
oleobject loo_Rest
integer li_BTls
integer li_Port
integer li_BAutoReconnect
integer li_Success
string ls_ResponseJson

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

loo_Rest = create oleobject
// Use "Chilkat_9_5_0.Rest" for versions of Chilkat < 10.0.0
li_rc = loo_Rest.ConnectToNewObject("Chilkat.Rest")
if li_rc < 0 then
    destroy loo_Rest
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Connect to the REST server.
li_BTls = 1
li_Port = 443
li_BAutoReconnect = 1
li_Success = loo_Rest.Connect("my-store.com",li_Port,li_BTls,li_BAutoReconnect)

ls_ResponseJson = loo_Rest.FullRequestNoBody("GET","/wp-json/wc/v1/products?consumer_key=YOUR_CONSUMER_KEY&consumer_secret=YOUR_CONSUMER_SECRET")
if loo_Rest.LastMethodSuccess <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    return
end if

Write-Debug ls_ResponseJson
Write-Debug "----"

// We can alternatively do this:
loo_Rest.ClearAllQueryParams()
loo_Rest.AddQueryParam("consumer_key","YOUR_CONSUMER_KEY")
loo_Rest.AddQueryParam("consumer_secret","YOUR_CONSUMER_SECRET")
ls_ResponseJson = loo_Rest.FullRequestNoBody("GET","/wp-json/wc/v1/products")
if loo_Rest.LastMethodSuccess <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    return
end if

Write-Debug ls_ResponseJson


destroy loo_Rest