Classic ASP
Read Bitfinex WebSocket Ticker Channel

Subscribes to the public Bitfinex websocket ticker channel and receives ticker updates.
Chilkat Classic ASP Downloads

Classic ASP
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

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

set ws = Server.CreateObject("Chilkat.WebSocket")

' 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.

set rest = Server.CreateObject("Chilkat.Rest")

' Connect to api.bitfinex.com
success = rest.Connect("api.bitfinex.com",443,1,0)
success = ws.UseConnection(rest)
success = ws.AddClientHeaders()

responseBody = rest.FullRequestNoBody("GET","/ws")
success = ws.ValidateServerHandshake()
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( ws.LastErrorText) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( responseBody) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( rest.ResponseHeader) & "</pre>"
    Response.End
End If

' After connecting, the bitfinex websocket server will send
' an info message that contains the actual version of the websocket stream.
' Receive that message..
success = ws.ReadFrame()
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Failed to receive a frame") & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "ReadFrame fail reason = " & ws.ReadFrameFailReason) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( ws.LastErrorText) & "</pre>"
    Response.End
End If

' We should get this:
' {"event":"info","version":1.1,"platform":{"status":1}}
Response.Write "<pre>" & Server.HTMLEncode( ws.GetFrameData()) & "</pre>"

' Subscribe to the public ticker feed.
' See https://docs.bitfinex.com/docs for more information.
set json = Server.CreateObject("Chilkat.JsonObject")
success = json.AppendString("event","subscribe")
success = json.AppendString("channel","ticker")
success = json.AppendString("pair","BTCUSD")

finalFrame = 1
success = ws.SendFrame(json.Emit(),finalFrame)

' Read the response.
success = ws.ReadFrame()
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "Failed to receive a frame") & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "ReadFrame fail reason = " & ws.ReadFrameFailReason) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( ws.LastErrorText) & "</pre>"
    Response.End
End If

' Examine the response
' We should get this:
' {"event":"subscribed","channel":"ticker","chanId":2751,"pair":"BTCUSD"}
Response.Write "<pre>" & Server.HTMLEncode( ws.GetFrameData()) & "</pre>"

' Begin reading the ticker feed.
' We'll just read the 1st 5 updates and then exit..
receivedFinalFrame = 0
numUpdatesReceived = 0
Do While numUpdatesReceived < 5

    success = ws.ReadFrame()
    If (success <> 1) Then
        Response.Write "<pre>" & Server.HTMLEncode( "Failed to receive a frame") & "</pre>"
        Response.Write "<pre>" & Server.HTMLEncode( "ReadFrame fail reason = " & ws.ReadFrameFailReason) & "</pre>"
        Response.Write "<pre>" & Server.HTMLEncode( ws.LastErrorText) & "</pre>"
        Response.End
    End If

    ' The responses we desire are in Text frames, where the opcode = 1.
    If (ws.FrameOpcodeInt = 1) Then
        receivedText = ws.GetFrameData()
        Response.Write "<pre>" & Server.HTMLEncode( receivedText) & "</pre>"
        ' Should receive a line of text such as this:
        ' [2751,7349,36.34269559,7349.1,41.01777063,-116.2,-0.0156,7349.1,22188.26055319,7560,7270.5]
        numUpdatesReceived = numUpdatesReceived + 1
    End If

Loop

' Close the websocket connection.
success = ws.SendClose(1,1000,"Closing this websocket.")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( ws.LastErrorText) & "</pre>"
    Response.End
End If

' Read the Close response.
success = ws.ReadFrame()
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode( "ReadFrame fail reason = " & ws.ReadFrameFailReason) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( ws.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Success.") & "</pre>"

%>
</body>
</html>