(Visual FoxPro) 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

LOCAL lnSuccess
LOCAL loRest
LOCAL lnBAutoReconnect
LOCAL loSbJson
LOCAL lcJsonResponseStr

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rest')
loRest = CreateObject('Chilkat.Rest')

* Connect using TLS.
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("my-store.com",443,1,lnBAutoReconnect)

* test_product.txt contains this string:
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbJson = CreateObject('Chilkat.StringBuilder')
loSbJson.Append('{"create": [{"name": "Woo Single #1","type": "simple","regular_price": "21.99"}]}')

* Add query parameters

* Add the Content-Type HTTP request header.
lnSuccess = loRest.AddHeader("Content-Type","application/json")

lcJsonResponseStr = loRest.FullRequestString("POST","/wp-json/wc/v2/products/batch?consumer_key=YOUR_CONSUMER_KEY&consumer_secret=YOUR_CONSUMER_SECRET",loSbJson.GetAsString())
IF (loRest.LastMethodSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loSbJson
    CANCEL
ENDIF

* Show the JSON response.  (See below for a sample JSON response.)
? "Json Response: " + lcJsonResponseStr

RELEASE loRest
RELEASE loSbJson