B4X

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

See more REST Examples

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

Dim success As Boolean = False

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

Dim rest As ChilkatRest
rest.Initialize("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).
Dim bTls As Boolean = False
Dim port As Int = 80
Dim bAutoReconnect As Boolean = True
success = rest.Connect("dev.markitondemand.com", port, bTls, bAutoReconnect)

'  Get a stock quote:
success = rest.AddQueryParam("symbol", "AAPL")
Dim responseXml As String = rest.FullRequestNoBody("GET", "/MODApis/Api/v2/Quote")
If rest.LastMethodSuccess <> True Then
    Log(rest.LastErrorText)
    Return
End If


Dim xml As ChilkatXml
xml.Initialize
success = xml.LoadXml(responseXml)
Log("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
    Log(rest.LastErrorText)
    Return
End If


success = xml.LoadXml(responseXml)
Log("AMZN LastPrice: " & xml.GetChildContent("LastPrice"))