【第22期】观点:IT 行业加班,到底有没有价值?

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;
版权声明:本文为博主原创文章,未经博主允许不得转载。 举报

相关文章推荐

Delphi之websocket及socket.io开源组件

项目主页:https://github.com/andremussche/DelphiWebsockets 提供了TIdWebsocketServer,TIdHTTPWebsocketClient类实...

AFNetworking报错:(415 Domain=com.alamofire.error.serialization.response Code=-1011 "Request failed: un

问题❔ 今天在与后台调接口的时候,遇到一个问题,使用AFNetworking报错,具体如下: Error Domain=com.alamofire.error.serializatio...

[新浪微博]response Code=-1011 Request failed: forbidden (403)错误的解决办法

写微博项目时,发给新浪的请求经常出错。错误1: Domain=com.alamofire.error.serialization.response Code=-1011 "Request faile...

nginx websocket

websocket + nginx配置样例upstream ws_server { ip_hash; server 127.0.0.1:3000; server 127.0.0.1:300...

P2P 网络 ZeroNet 初体验

首次看到关于 ZeroNet 分布式 P2P 网络的介绍是在月光博客上,看完并没有什么印象,隔几天看到土木坛子也介绍了,就去体验了一把。使用起来非常简单,就如同使用一个绿色软件,首先直接下载 Zero...
  • xhhjin
  • xhhjin
  • 2016-04-24 21:35
  • 16598

在ZeroNet上建立自己的第一个网站

其实官方文档上说的很清楚了 第一步:如果ZeroNet在运行,先将其关掉。(linux下为ctrl+c) 第二步:执行命令zeronet.py siteCreate。我在执行这一步时提示没有ge...

ZeroNet创建博客后改名教程

打开你的ZeroBlog,如下图。 移动鼠标到标题上,点击左侧的小铅笔图标。 输入你自己的博客名字,点右下角的“Save”保存即可。

小米路由器 mini 刷 Padavan 详细教程

前两天买了个小米路由器 mini,开启我的智能路由器时代,但小米自家的固件用两天就腻歪了,于是网上查找比对了一些推荐固件,最后决定刷老毛子 Padavan(主要是集成功能强大,方便智能上网和去广告),...
  • xhhjin
  • xhhjin
  • 2016-12-05 01:03
  • 5087

Zeronet-搭建你的p2p全球网站,不要域名,不怕宕机

什么是ZeroNet? ZeroNet是一个去中心化的类似于Internet的网络,由匈牙利的开发者使用Python制作,完全开源。网站由特殊的"ZeroNet URL"可以被使用一般的浏览器通过Ze...

ZeroNet如何快速发布并推送文章

每次编辑完文章点保存后,注意右下角。有个“Sign & Publish new content”按钮,点一下,就很快将内容推送出去了。
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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