(PowerBuilder) Duplicate curl POST with JSON Body

Demonstrates how to duplicate the following curl command, which sends a POST w/ a JSON body.

curl -H "Content-Type: application/json" -i https://my-store.com/wp-json/wc/v2/products/batch?consumer_key=YOUR_CONSUMER_KEY&consumer_secret=YOUR_CONSUMER_SECRET  -d @test_product.txt

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

integer li_rc
integer li_Success
oleobject loo_Rest
integer li_BAutoReconnect
oleobject loo_SbJson
string ls_JsonResponseStr



// This example assumes 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 using TLS.
li_BAutoReconnect = 1
li_Success = loo_Rest.Connect("my-store.com",443,1,li_BAutoReconnect)

// test_product.txt contains this string:
loo_SbJson = create oleobject
// Use "Chilkat_9_5_0.StringBuilder" for versions of Chilkat < 10.0.0
li_rc = loo_SbJson.ConnectToNewObject("Chilkat.StringBuilder")

loo_SbJson.Append("{~"create~": [{~"name~": ~"Woo Single #1~",~"type~": ~"simple~",~"regular_price~": ~"21.99~"}]}")

// Add query parameters

// Add the Content-Type HTTP request header.
li_Success = loo_Rest.AddHeader("Content-Type","application/json")

ls_JsonResponseStr = loo_Rest.FullRequestString("POST","/wp-json/wc/v2/products/batch?consumer_key=YOUR_CONSUMER_KEY&consumer_secret=YOUR_CONSUMER_SECRET",loo_SbJson.GetAsString())
if loo_Rest.LastMethodSuccess <> 1 then
    Write-Debug loo_Rest.LastErrorText
    destroy loo_Rest
    destroy loo_SbJson
    return
end if

// Show the JSON response.  (See below for a sample JSON response.)
Write-Debug "Json Response: " + ls_JsonResponseStr


destroy loo_Rest
destroy loo_SbJson