(Visual FoxPro) REST Auto Reconnect for Multiple Requests (dev.markitondemand.com)

Demonstrates how the autoReconnect argument to the Connect method is used.

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

LOCAL loRest
LOCAL lnBTls
LOCAL lnPort
LOCAL lnBAutoReconnect
LOCAL lnSuccess
LOCAL lcResponseXml
LOCAL loXml

* This example requires 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')

* This example demonstrates the usage of the autoReconnect argument to the Connect method.
* When autoReconnect is on, subsequent REST method calls will automatically re-connect
* if necessary, using the same information (domain/IP address, port number, and TLS).
lnBTls = 0
lnPort = 80
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("dev.markitondemand.com",lnPort,lnBTls,lnBAutoReconnect)

* Get a stock quote:
lnSuccess = loRest.AddQueryParam("symbol","AAPL")
lcResponseXml = loRest.FullRequestNoBody("GET","/MODApis/Api/v2/Quote")
IF (loRest.LastMethodSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml = CreateObject('Chilkat.Xml')
lnSuccess = loXml.LoadXml(lcResponseXml)
? "AAPL LastPrice: " + loXml.GetChildContent("LastPrice")

* Get another stock quote.  If a new HTTP connection is required,
* the REST object will automatically connect using the same parameters.
lnSuccess = loRest.AddQueryParam("symbol","AMZN")
lcResponseXml = loRest.FullRequestNoBody("GET","/MODApis/Api/v2/Quote")
IF (loRest.LastMethodSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loXml
    CANCEL
ENDIF

lnSuccess = loXml.LoadXml(lcResponseXml)
? "AMZN LastPrice: " + loXml.GetChildContent("LastPrice")

RELEASE loRest
RELEASE loXml