Delphi Websocket组件获取数据

原创 2016年08月28日 18:07:33

Websocket 是个好东西。目前写的量化交易软件,行情的更新目前主要靠它,推送最新的行情信息到软件。
找到两个。

Delphi Websocket组件

仅做一些简单的记录.从资料来讲,可能esegece要更为成熟一点,是一款免费但是不开源的组件。资料文档也比较健全,因此打算采用这个。组件我放到了常用的Delphi目录(sgcWebSockets.zip),本目录下有bin的deme。
- esegece websockets
- DelphiWebsockets

我用的是Esegece的,官方例子超多。给个我连接火币的websocket的例子。Huobi用的是websocket socketIO版的。
连接

  //连接 火币 websocket
  websockethuobi.Host    := 'hq.huobi.com';
  websockethuobi.Port    := 80;
  websockethuobi.Active  := True;

发送命令

sCmdPushHuobiMarketDetail := '{"symbolList":{"marketDetail":[{"symbolId":"btccny","pushType":"pushLong"}]},"version":1,"msgType":"reqMsgSubscribe","requestIndex":1404103038520}';
websockethuobi.SendEvent('request',sCmdPushHuobiMarketDetail);

读取返回数据 MessageEvent事件

procedure TfrmBitScalper.websockethuobiMessageEvent(
  Connection: TsgcWSConnection; const Text, MsgId, MsgEndPoint, EventName,
  EventArgs, JSON: string);
begin
//  FrmLogs('EventName->'+EventName);
//  FrmLogs('MsgId->'+MsgId);
//  FrmLogs(Text);
  ReadHuobiMarketDetail(Copy(Text,5,Length(Text)));
end;

ReadHuobiMarketDetail过程 更新到窗体和全局变量
JSON的解析用的是SuperObject

{ 读取火币网reMarkDetail 盘口数据 }
procedure TfrmBitScalper.ReadHuobiMarketDetail(sJson: string);
var
  jo: ISuperObject;
  joarr,jobid,joask: TSuperArray;
  listitem:TListItem;
begin
  jo := SO(sJson);
  joarr := jo['args'].AsArray;
  if joarr[0]['msgType'].AsString='marketDetail' then
  begin
    jobid                               := joarr[0]['payload.bids.price'].AsArray;
    joask                               := joarr[0]['payload.asks.price'].AsArray;
    if lvMarkets.Items.Count<>0 then
    begin
      lvMarkets.Items.Item[0].Caption := 'huobi.com';
      lvMarkets.Items.Item[0].SubItems[0] := joarr[0]['payload.priceNew'].AsString;
      lvMarkets.Items.Item[0].SubItems[1] := joarr[0]['payload.priceOpen'].AsString;
      lvMarkets.Items.Item[0].SubItems[2] := joarr[0]['payload.priceHigh'].AsString;
      lvMarkets.Items.Item[0].SubItems[3] := joarr[0]['payload.priceLow'].AsString;
      lvMarkets.Items.Item[0].SubItems[4] := Floatmask(TruncTo(joarr[0]['payload.totalAmount'].AsDouble,2));
      lvMarkets.Items.Item[0].SubItems[5] := jobid[0].AsString;
      lvMarkets.Items.Item[0].SubItems[6] := joask[0].AsString;
      HUOBI_MARKET_PRICE := joarr[0]['payload.priceNew'].AsDouble;//获取最新价格
      SELL_PRICE1        := joask[0].AsDouble;
      BUY_PRICE1         := jobid[0].AsDouble
    end
    else
    begin
      listitem := lvMarkets.Items.Add;
      listitem.Caption := 'huobi.com';
      listitem.SubItems.Add(joarr[0]['payload.priceNew'].AsString);
      listitem.SubItems.Add(joarr[0]['payload.priceOpen'].AsString);
      listitem.SubItems.Add(joarr[0]['payload.priceHigh'].AsString);
      listitem.SubItems.Add(joarr[0]['payload.priceLow'].AsString);
      listitem.SubItems.Add(Floatmask(TruncTo(joarr[0]['payload.totalAmount'].AsDouble,2)));
      listitem.SubItems.Add(jobid[0].AsString);
      listitem.SubItems.Add(joask[0].AsString);
      HUOBI_MARKET_PRICE := joarr[0]['payload.priceNew'].AsDouble;
      SELL_PRICE1        := joask[0].AsDouble;
      BUY_PRICE1         := jobid[0].AsDouble
    end;
  end;

end;
版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

JavaScript---基本语法学习(一)JavaScript概述、Java和JavaScript的区别、和HTML结合方式、数据类型、运算符和表达式

哈哈哈,开始学JavaScript了。。。 先讲讲历史吧。JavaScript 的历史故事 JavaScript是Netscape公司开发的,当时Netscape公司和开发Java的Sun公司有...

玩转Bootstrap(基础) (1.基础知识)

1.bootstrap的插件都依赖于jquery,所有jquery要在bootstrap前加载。 //html 5 //bootstrap不支持ie的兼容模式,所以这行代码是...

spring websocket让页面实时获取数据

1,依赖包加上 org.springframework spring-websocket ...
  • zxw394
  • zxw394
  • 2016年08月31日 17:49
  • 3036

通过WebSocket建立长链接实时获取数据

前段时间公司在做的一个项目,需要实时获取到最新的行情数据,行情数据每秒更新,当时考虑过用轮询方式获取,但是稍微推敲,很是不妥。当用户量多了,每个客户端都要去轮询服务器,给服务器造成的压力很大大,而且用...

REST Client组件例子,及获取数据api的一些知识

通过该组件可以访问该地理位置API。其URL为 http://api.map.baidu.com/geocoder?address=%E5%8C%97%E4%BA%AC&&output=json&s...

myeclipse mysql servlet从前端获取数据

  • 2017年09月08日 12:57
  • 1.65MB
  • 下载

节约资源 单次获取数据进行显示

  • 2017年01月20日 17:01
  • 1.47MB
  • 下载

Delphi使用ADO组件访问ACCESS数据入门例程

在form上添加控件 一.方法一: 1.增加一个ADOConnection控件,点击ConnectionString属性,选Use Connection string 下面的例子中...

SpringMvc获取数据的方式

  • 2017年07月21日 15:37
  • 472KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi Websocket组件获取数据
举报原因:
原因补充:

(最多只允许输入30个字)