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

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

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loRest = createobject("CkRest")

// 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).
llBTls = .F.
lnPort = 80
llBAutoReconnect = .T.
llSuccess = loRest.Connect("dev.markitondemand.com",lnPort,llBTls,llBAutoReconnect)

// Get a stock quote:
llSuccess = loRest.AddQueryParam("symbol","AAPL")
lcResponseXml = loRest.FullRequestNoBody("GET","/MODApis/Api/v2/Quote")
if (loRest.LastMethodSuccess <> .T.) then
    ? loRest.LastErrorText
    release loRest
    return
endif

loXml = createobject("CkXml")
llSuccess = 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.
llSuccess = loRest.AddQueryParam("symbol","AMZN")
lcResponseXml = loRest.FullRequestNoBody("GET","/MODApis/Api/v2/Quote")
if (loRest.LastMethodSuccess <> .T.) then
    ? loRest.LastErrorText
    release loRest
    release loXml
    return
endif

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


release loRest
release loXml