Xojo Plugin

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

See more REST Examples

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

Dim success As Boolean
success = False

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

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

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

Dim xml As New Chilkat.Xml
success = xml.LoadXml(responseXml)
System.DebugLog("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
    System.DebugLog(rest.LastErrorText)
    Return
End If

success = xml.LoadXml(responseXml)
System.DebugLog("AMZN LastPrice: " + xml.GetChildContent("LastPrice"))