Visual Basic 6.0

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 Basic 6.0

Dim success As Long
success = 0

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

Dim rest As New ChilkatRest

' 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 Long
bTls = 0
Dim port As Long
port = 80
Dim bAutoReconnect As Long
bAutoReconnect = 1
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 <> 1) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

Dim xml As New ChilkatXml
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 <> 1) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

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