Question

我试过用...

var thepath: PWideChar;
thepath := 'http://www.google.com/finance?tab=we'; 
ShellExecute(Self.Handle, 'Open', 'chrome', thepath, '', sw_MINIMIZE);

我想在Excel电子表格中找到答案（csv表格）。

我想将结果直接输入我的Delphi程序（可能是字符串）进行处理和显示。

Answer 1

使用REST API。

代码部分不可能更简单：

http://docwiki.embarcadero.com/RADStudio/Berlin/en/Tutorial:_Using_the_REST_Client_Library_to_Access_REST-based_Web_Services

按照教程中的说明进行操作我可以在这里复制粘贴，但它有点多了。

一旦你完成了工作，对股票进行以下更改：（见：http://www.example-code.com/DelphiDll/rest_simple.asp）

BaseURL：dev.markitondemand.com/MODApis/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>

如何在我的Delphi XE7编码中访问股票价格？

1 个答案: