(PowerBuilder) Binary.com Tick Stream

Tick Stream Request -- Initiate a continuous stream of spot price updates for a given symbol.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_Ws
oleobject loo_Rest
integer li_Success
string ls_ResponseBody
oleobject loo_Json
integer li_FinalFrame
oleobject loo_JsonTickData
integer li_ReceivedFinalFrame
integer li_NumTicksReceived
string ls_ReceivedJson

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

loo_Ws = create oleobject
// Use "Chilkat_9_5_0.WebSocket" for versions of Chilkat < 10.0.0
li_rc = loo_Ws.ConnectToNewObject("Chilkat.WebSocket")
if li_rc < 0 then
    destroy loo_Ws
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// For brevity, this example does not check for errors when etablishing the WebSocket connection.
// See Establish WebSocket Connection for more complete sample code for making the connection.

loo_Rest = create oleobject
// Use "Chilkat_9_5_0.Rest" for versions of Chilkat < 10.0.0
li_rc = loo_Rest.ConnectToNewObject("Chilkat.Rest")

// Connect to ws.binaryws.com
li_Success = loo_Rest.Connect("ws.binaryws.com",443,1,0)
loo_Ws.UseConnection(loo_Rest)
loo_Ws.AddClientHeaders()

// My app_id is 12332.  You'll wnat to use your own...
ls_ResponseBody = loo_Rest.FullRequestNoBody("GET","/websockets/v3?app_id=12332")
li_Success = loo_Ws.ValidateServerHandshake()
if li_Success <> 1 then
    Write-Debug loo_Ws.LastErrorText
    Write-Debug ls_ResponseBody
    Write-Debug loo_Rest.ResponseHeader
    destroy loo_Ws
    destroy loo_Rest
    return
end if

// Build and send the following message:

// {
//   "ticks": "R_50",
//   "subscribe": 1
// }

loo_Json = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")

loo_Json.AppendString("ticks","R_50")
loo_Json.AppendInt("subscribe",1)

// Send a full message in a single frame
li_FinalFrame = 1
li_Success = loo_Ws.SendFrame(loo_Json.Emit(),li_FinalFrame)
if li_Success <> 1 then
    Write-Debug loo_Ws.LastErrorText
    destroy loo_Ws
    destroy loo_Rest
    destroy loo_Json
    return
end if

loo_JsonTickData = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
li_rc = loo_JsonTickData.ConnectToNewObject("Chilkat.JsonObject")

loo_JsonTickData.EmitCompact = 0

// Begin reading the tick stream response.
// We'll just read the 1st 10 updates and then exit..
li_ReceivedFinalFrame = 0
li_NumTicksReceived = 0
do while li_NumTicksReceived < 5

    li_Success = loo_Ws.ReadFrame()
    if li_Success <> 1 then
        Write-Debug "Failed to receive a frame"
        Write-Debug "ReadFrame fail reason = " + string(loo_Ws.ReadFrameFailReason)
        Write-Debug loo_Ws.LastErrorText
        destroy loo_Ws
        destroy loo_Rest
        destroy loo_Json
        destroy loo_JsonTickData
        return
    end if

    // The responses we desire are in Text frames, where the opcode = 1.
    if loo_Ws.FrameOpcodeInt = 1 then
        ls_ReceivedJson = loo_Ws.GetFrameData()

        loo_JsonTickData.Load(ls_ReceivedJson)
        Write-Debug loo_JsonTickData.Emit()

        li_NumTicksReceived = li_NumTicksReceived + 1
    end if

loop

// Close the websocket connection.
li_Success = loo_Ws.SendClose(1,1000,"Closing this websocket.")
if li_Success <> 1 then
    Write-Debug loo_Ws.LastErrorText
    destroy loo_Ws
    destroy loo_Rest
    destroy loo_Json
    destroy loo_JsonTickData
    return
end if

// Read the Close response.
li_Success = loo_Ws.ReadFrame()
if li_Success <> 1 then
    Write-Debug "ReadFrame fail reason = " + string(loo_Ws.ReadFrameFailReason)
    Write-Debug loo_Ws.LastErrorText
    destroy loo_Ws
    destroy loo_Rest
    destroy loo_Json
    destroy loo_JsonTickData
    return
end if

Write-Debug "Success."

// The output of the above code is shown here:

// {
//   "echo_req": {
//     "subscribe": 1,
//     "ticks": "R_50"
//   },
//   "msg_type": "tick",
//   "tick": {
//     "ask": "373.8725",
//     "bid": "373.8325",
//     "epoch": "1517437456",
//     "id": "2d3dedf1-45e2-66a5-d0d3-72bd7f0a6ea9",
//     "quote": "373.8525",
//     "symbol": "R_50"
//   }
// }
// 
// {
//   "echo_req": {
//     "subscribe": 1,
//     "ticks": "R_50"
//   },
//   "msg_type": "tick",
//   "tick": {
//     "ask": "373.7952",
//     "bid": "373.7552",
//     "epoch": "1517437458",
//     "id": "2d3dedf1-45e2-66a5-d0d3-72bd7f0a6ea9",
//     "quote": "373.7752",
//     "symbol": "R_50"
//   }
// }
// 
// {
//   "echo_req": {
//     "subscribe": 1,
//     "ticks": "R_50"
//   },
//   "msg_type": "tick",
//   "tick": {
//     "ask": "373.8638",
//     "bid": "373.8238",
//     "epoch": "1517437460",
//     "id": "2d3dedf1-45e2-66a5-d0d3-72bd7f0a6ea9",
//     "quote": "373.8438",
//     "symbol": "R_50"
//   }
// }
// 
// {
//   "echo_req": {
//     "subscribe": 1,
//     "ticks": "R_50"
//   },
//   "msg_type": "tick",
//   "tick": {
//     "ask": "373.7636",
//     "bid": "373.7236",
//     "epoch": "1517437462",
//     "id": "2d3dedf1-45e2-66a5-d0d3-72bd7f0a6ea9",
//     "quote": "373.7436",
//     "symbol": "R_50"
//   }
// }
// 
// {
//   "echo_req": {
//     "subscribe": 1,
//     "ticks": "R_50"
//   },
//   "msg_type": "tick",
//   "tick": {
//     "ask": "373.6870",
//     "bid": "373.6470",
//     "epoch": "1517437464",
//     "id": "2d3dedf1-45e2-66a5-d0d3-72bd7f0a6ea9",
//     "quote": "373.6670",
//     "symbol": "R_50"
//   }
// }
// 
// Success.


destroy loo_Ws
destroy loo_Rest
destroy loo_Json
destroy loo_JsonTickData