Visual FoxPro

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

See more REST Examples

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

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

lnSuccess = 0

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

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

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