(Visual FoxPro) POST JSON Without Waiting for the Response

This example demonstrates sending a POST w/ content-type "application/json" where the body of the POST contains a JSON document. The POST is sent, but we don't wait for the response.

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

LOCAL loRest
LOCAL lnBAutoReconnect
LOCAL lnSuccess
LOCAL loSbJson
LOCAL lcSomePath
LOCAL lnMaxWaitMs

* 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 to the server using TLS
lnBAutoReconnect = 0
lnSuccess = loRest.Connect("example.com",443,1,lnBAutoReconnect)
IF (lnSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

* Create some sample JSON to be sent in the body of the request.
* 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 the Content-Type HTTP request header.
loRest.AddHeader("Content-Type","application/json")

* Just send the request.  Don't read the response.
* The request is sent to https://example.com/something?arg1=xyz&arg2=abc
lcSomePath = "/something?arg1=xyz&arg2=abc"
lnSuccess = loRest.SendReqSb("POST",lcSomePath,loSbJson)
IF (lnSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loSbJson
    CANCEL
ENDIF

* OK, the request was sent.
* Close the connection.
lnMaxWaitMs = 50
loRest.Disconnect(lnMaxWaitMs)

? "JSON POST Sent."

RELEASE loRest
RELEASE loSbJson