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组件获取数据

Websocket 是个好东西。目前写的量化交易软件,行情的更新目前主要靠它,推送最新的行情信息到软件。 找到两个。Delphi Websocket组件 仅做一些简单的记录.从资料来讲,可能es...
  • MichaelJScofield
  • MichaelJScofield
  • 2016年08月28日 18:07
  • 3343

用websocket爬去来疯的实时聊天数据

虽然有一些c++编程的基础,但对python之类的脚本语言,寡人用的并不多。今天准备花三个小时的时间来写一个爬虫顺带一篇博客。对于webosocket,自行github上搜索,有教程案例。时间不够,废...
  • ndyzzh
  • ndyzzh
  • 2016年07月29日 12:32
  • 1527

IdHTTPServer1 收到POST 文件和参数

使用INDY 10 ,不然有些单元可能无法找到编译。 目前发现的问题有:对于#$0A 会自动转变成 #$0D#$0A,在传输文件时最好是进行编码传输。网上搜索这类信息很少,好像是Decoder.Re...
  • gj333
  • gj333
  • 2016年05月14日 09:35
  • 2804

spring websocket让页面实时获取数据

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

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

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

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

通过该组件可以访问该地理位置API。其URL为 http://api.map.baidu.com/geocoder?address=%E5%8C%97%E4%BA%AC&&output=json&s...
  • tulinying
  • tulinying
  • 2016年03月16日 21:33
  • 2818

echart从数据库获取数据展示final.zip

  • 2017年12月07日 17:29
  • 4.08MB
  • 下载

Android Http URL Connection获取数据并JSON解析

  • 2014年04月29日 14:07
  • 1.92MB
  • 下载

网络获取数据

  • 2013年03月26日 14:50
  • 1006KB
  • 下载

c++获取数据极值点

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

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