Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Delphi DLL) ETrade Get QuoteShows how to send a GET for a stock quote using ETrade with OAuth1 authorization.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, JsonObject, Http; ... procedure TForm1.Button1Click(Sender: TObject); var http: HCkHttp; json: HCkJsonObject; success: Boolean; respStr: PWideChar; begin // This example assumes the Chilkat HTTP API to have been previously unlocked. // See Global Unlock Sample for sample code. http := CkHttp_Create(); CkHttp_putOAuth1(http,True); CkHttp_putOAuthVerifier(http,''); CkHttp_putOAuthConsumerKey(http,'ETRADE_CONSUMER_KEY'); CkHttp_putOAuthConsumerSecret(http,'ETRADE_CONSUMER_SECRET'); // Load the access token previously obtained via the OAuth1 3-Legged Authorization json := CkJsonObject_Create(); success := CkJsonObject_LoadFile(json,'qa_data/tokens/etrade.json'); if (success <> True) then begin Memo1.Lines.Add('Failed to load OAuth1 token'); Exit; end; CkHttp_putOAuthToken(http,CkJsonObject__stringOf(json,'oauth_token')); CkHttp_putOAuthTokenSecret(http,CkJsonObject__stringOf(json,'oauth_token_secret')); respStr := CkHttp__quickGetStr(http,'https://etwssandbox.etrade.com/market/sandbox/rest/quote/MSFT?detailFlag=ALL'); if (CkHttp_getLastMethodSuccess(http) <> True) then begin Memo1.Lines.Add(CkHttp__lastErrorText(http)); Exit; end; // The response is XML. A sample response is shown below. Memo1.Lines.Add(respStr); Memo1.Lines.Add('success.'); // Sample XML response: // <QuoteResponse> // <QuoteData> // <all> // <adjNonAdjFlag>false</adjNonAdjFlag> // <annualDividend>0.52</annualDividend> // <ask>28.71</ask> // <askExchange>NASDAQ National Market Sys (NMS)</askExchange> // <askSize>15600</askSize> // <askTime>12:14:22 EST 02-24-2010</askTime> // <bid>28.7</bid> // <bidExchange></bidExchange> // <bidSize>15600</bidSize> // <bidTime>12:14:22 EST 02-24-2010</bidTime> // <chgClose>-0.3400000000000001</chgClose> // <chgClosePrcn>-15.11</chgClosePrcn> // <companyName>MICROSOFT CORP</companyName> // <daysToExpiration>0</daysToExpiration> // <dirLast>U</dirLast> // <dividend>0.13</dividend> // <eps>1.81</eps> // <estEarnings>1.811</estEarnings> // <exDivDate>11/17/2009</exDivDate> // <exchgLastTrade>Pacific</exchgLastTrade> // <fsi>N</fsi> // <high>28.77</high> // <high52>31.5</high52> // <highAsk>28.77</highAsk> // <highBid>28.76</highBid> // <lastTrade>28.705</lastTrade> // <low>28.38</low> // <low52>14.87</low52> // <lowAsk>28.39</lowAsk> // <lowBid>28.0</lowBid> // <numTrades>61376</numTrades> // <open>28.52</open> // <openInterest>0</openInterest> // <optionStyle></optionStyle> // <optionUnderlier></optionUnderlier> // <prevClose>28.73</prevClose> // <prevDayVolume>75648887</prevDayVolume> // <primaryExchange>Q</primaryExchange> // <symbolDesc>MICROSOFT CORP</symbolDesc> // <todayClose>0.0</todayClose> // <totalVolume>22403011</totalVolume> // <upc>0</upc> // <volume10Day>56676460</volume10Day> // </all> // <dateTime>12:14:22 EST 02-24-2010</dateTime> // <product> // <symbol>MSFT</symbol> // <type>EQ</type> // <exchange>Q</exchange> // </product> // </QuoteData> // </QuoteResponse> CkHttp_Dispose(http); CkJsonObject_Dispose(json); end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.