如何使用 Delphi RestClient 读取流数据？

2016-02-27 08:36:57 1.3k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

给新考上北大软件与微电子学院的同学——利用北大资源利用北大资源首先，恭喜大家考入北京大学！希望软院成为各位人生旅途中快乐的一站！说明：限于本人搜集能力有限，本文只列出本人常利用的资源（上课老师会告知的资源也不在此列），本文所述的资源只是北大可利用资源的一个子集。一、图书馆资源：北京大学图书馆的资源数量，我就不多废话了，这里主要说一样怎样利用这些资源。 a) 传统资源分布及查找：这种资源主要包括纸质书箱、杂志、光盘等内... 阅读详情

【这个问题已经发布在悬赏求助 http://ask.csdn.net/questions/239335，如有重复请版主酌情处理】
OANDA网站提供的REST API可以读取账户信息（"https://api-fxtrade.oanda.com/v1/accounts），以及提供流报价（streaming，比如"https://stream-fxtrade.oanda.com/v1/prices?accountId=12345&instruments=AUD_CAD%2CAUD_CHF" ）。

目前在XE7版本，使用Delphi提供的RestClient组件可以实现读取账户信息。但是，对于服务端的流数据，由于其传输方式是 chunked transfer encoding，按照账户数据读取方式则会在停在最后Excute无法获得返回的Json字符串。

代码如下：



 function GetStreamingPrices:TQJson 

 var 

 ....

 begin

 Result := TQJson.Create;

 // Get

 _RESTRequest.Method := rmGET;

 //指定资源位置：'/prices'

 _RESTRequest.Resource := TRequestSourceURITemplate.Prices;

 //生成query串：accountId=12345&instruments=AUD_CAD%2CAUD_CHF 

 _RESTRequest.AddParameter(TQueryPairKey.AccountID,accountlist[0],pkGETorPOST);

 _RESTRequest.AddParameter(TQueryPairKey.Instruments,'EUR_USD',pkGETorPOST);

 //URL 

 ._RestClient.BaseURL := 'https://stream-fxtrade.oanda.com/v1';

 //执行

 _RestRequest.Execute;

 //解析为Json

 Result.tryParse(_RESTResponse);

 end;