如何在Delphi XE7编码中访问股票价格?
我试着用如何在Delphi XE7编码中访问股票价格?,delphi,delphi-xe7,Delphi,Delphi Xe7,我试着用 var thepath: PWideChar; thepath := 'http://www.google.com/finance?tab=we'; ShellExecute(Self.Handle, 'Open', 'chrome', thepath, '', sw_MINIMIZE); 最后我想在Excel电子表格中找到答案(csv格式) 我希望将结果直接带到我的Delphi程序中(可能作为字符串)进行处理和显示。使用REST API 代码部分再简单不过了: 按照教程中的说明
var thepath: PWideChar;
thepath := 'http://www.google.com/finance?tab=we';
ShellExecute(Self.Handle, 'Open', 'chrome', thepath, '', sw_MINIMIZE);
最后我想在Excel电子表格中找到答案(csv格式)
我希望将结果直接带到我的Delphi程序中(可能作为字符串)进行处理和显示。使用REST API
代码部分再简单不过了:
按照教程中的说明操作。我可以复制粘贴到这里,但是有点多 一旦你开始工作,对股票进行以下更改: (见:) BaseURL:
dev.markitondemand.com/modapi/Api/v2/Quote
将参数更改为:
parameter.name:= 'symbol'
parameter.value:= 'AAPL' //Apple whatever ticker you feel like.
我不确定这个特定的站点是否可以返回json数据,但我知道它确实以以下格式返回xml:
<?xml version="1.0" encoding="utf-8" ?>
<StockQuote>
<Status>SUCCESS</Status>
<Name>Apple Inc</Name>
<Symbol>AAPL</Symbol>
<LastPrice>94.91</LastPrice>
<Change>-2.91</Change>
<ChangePercent>-2.9748517686</ChangePercent>
<Timestamp>Thu Apr 28 15:17:03 UTC-04:00 2016</Timestamp>
<MSDate>42488.6368402778</MSDate>
<MarketCap>526236372530</MarketCap>
<Volume>4965478</Volume>
<ChangeYTD>105.26</ChangeYTD>
<ChangePercentYTD>-9.8327949838</ChangePercentYTD>
<High>97.88</High>
<Low>94.88</Low>
<Open>97.61</Open>
</StockQuote>
成功
苹果公司
AAPL
94.91
-2.91
-2.9748517686
2016年4月28日星期四15:17:03 UTC-04:00
42488.6368402778
526236372530
4965478
105.26
-9.8327949838
97.88
94.88
97.61
您可能需要REST API如果您不想(或不能)使用Embarcadero的REST组件,您可以使用任何HTTP客户端组件/库,如Indy、ICS、Synapse、WinInet/WinHTTP、libcurl等。我没有访问REST组件的权限,因为我只有“入门”版本的XE7。我试图使用其中的Indy组件,但尚未找到用于此目的的正确组件。