Wie kann ich auf Aktienkurse in meinem Delphi XE7-Code zugreifen?

Question

ich versucht habe zu verwenden ...

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

und ich möchte mit Antworten (csv-Form) in einer Excel-Tabelle landen.

Ich möchte die Ergebnisse direkt in mein Delphi-Programm (als Zeichenfolgen, vielleicht) für die Verarbeitung und Anzeige bringen.

Answer 1

Verwenden Sie eine REST-API.

Der Codeteil könnte nicht einfacher sein:

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

die Anweisungen in der Anleitung folgen.
Ich könnte alles hier kopieren, aber es ist ein bisschen viel.

Einmal bekam man, dass die Arbeit die folgenden Änderungen für Aktien machen: (siehe: http://www.example-code.com/DelphiDll/rest_simple.asp)

BaseURL: dev.markitondemand.com/MODApis/Api/v2/Quote Ändern der Parameter auf:

parameter.name:= 'symbol' 
parameter.value:= 'AAPL' //Apple whatever ticker you feel like. 

Ich bin nicht sicher, ob diese besondere Die Site kann json-Daten zurückgeben, aber ich weiß, dass sie xml im folgenden Format erstellt:

<?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>