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

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkRest.pb"
IncludeFile "CkXml.pb"

Procedure ChilkatExample()

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

    rest.i = CkRest::ckCreate()
    If rest.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; 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.i = 0
    port.i = 80
    bAutoReconnect.i = 1
    success.i = CkRest::ckConnect(rest,"dev.markitondemand.com",port,bTls,bAutoReconnect)

    ; Get a stock quote:
    success = CkRest::ckAddQueryParam(rest,"symbol","AAPL")
    responseXml.s = CkRest::ckFullRequestNoBody(rest,"GET","/MODApis/Api/v2/Quote")
    If CkRest::ckLastMethodSuccess(rest) <> 1
        Debug CkRest::ckLastErrorText(rest)
        CkRest::ckDispose(rest)
        ProcedureReturn
    EndIf

    xml.i = CkXml::ckCreate()
    If xml.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkXml::ckLoadXml(xml,responseXml)
    Debug "AAPL LastPrice: " + CkXml::ckGetChildContent(xml,"LastPrice")

    ; Get another stock quote.  If a new HTTP connection is required,
    ; the REST object will automatically connect using the same parameters.
    success = CkRest::ckAddQueryParam(rest,"symbol","AMZN")
    responseXml = CkRest::ckFullRequestNoBody(rest,"GET","/MODApis/Api/v2/Quote")
    If CkRest::ckLastMethodSuccess(rest) <> 1
        Debug CkRest::ckLastErrorText(rest)
        CkRest::ckDispose(rest)
        CkXml::ckDispose(xml)
        ProcedureReturn
    EndIf

    success = CkXml::ckLoadXml(xml,responseXml)
    Debug "AMZN LastPrice: " + CkXml::ckGetChildContent(xml,"LastPrice")


    CkRest::ckDispose(rest)
    CkXml::ckDispose(xml)


    ProcedureReturn
EndProcedure