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

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

Download Excel Class Modules Chilkat Excel Class Modules

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

Dim rest As Chilkat.Rest
Set rest = Chilkat.NewRest

' 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).

bTls = False

port = 80

bAutoReconnect = True

success = rest.Connect("dev.markitondemand.com",port,bTls,bAutoReconnect)

' Get a stock quote:
success = rest.AddQueryParam("symbol","AAPL")

responseXml = rest.FullRequestNoBody("GET","/MODApis/Api/v2/Quote")
If (rest.LastMethodSuccess <> True) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

Dim xml As Chilkat.Xml
Set xml = Chilkat.NewXml
success = xml.LoadXml(responseXml)
Debug.Print "AAPL LastPrice: "; xml.GetChildContent("LastPrice")

' Get another stock quote.  If a new HTTP connection is required,
' the REST object will automatically connect using the same parameters.
success = rest.AddQueryParam("symbol","AMZN")
responseXml = rest.FullRequestNoBody("GET","/MODApis/Api/v2/Quote")
If (rest.LastMethodSuccess <> True) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

success = xml.LoadXml(responseXml)
Debug.Print "AMZN LastPrice: "; xml.GetChildContent("LastPrice")