|
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 List OrdersGets the order details for a selected brokerage account based on the search criteria provided. For more information, see https://apisb.etrade.com/docs/api/order/api-order-v1.html#/definition/getOrders
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, Xml, HttpResponse, JsonObject; ... procedure TForm1.Button1Click(Sender: TObject); var http: HCkHttp; jsonToken: HCkJsonObject; success: Boolean; sandboxUrl: PWideChar; liveUrl: PWideChar; resp: HCkHttpResponse; xml: HCkXml; orderId: Integer; details: PWideChar; orderType: PWideChar; j: Integer; count_j: Integer; placedTime: PWideChar; orderValue: PWideChar; status: PWideChar; orderTerm: PWideChar; priceType: PWideChar; limitPrice: PWideChar; stopPrice: Integer; marketSession: PWideChar; allOrNone: PWideChar; k: Integer; count_k: Integer; symbol: PWideChar; securityType: PWideChar; callPut: PWideChar; expiryYear: Integer; expiryMonth: Integer; expiryDay: Integer; strikePrice: PWideChar; symbolDescription: PWideChar; orderAction: PWideChar; quantityType: PWideChar; orderedQuantity: Integer; filledQuantity: Integer; averageExecutionPrice: PWideChar; estimatedCommission: PWideChar; estimatedFees: Integer; netPrice: Integer; netBid: Integer; netAsk: Integer; gcd: Integer; orderNumber: Integer; bracketedLimitPrice: Integer; initialStopPrice: PWideChar; executedTime: PWideChar; totalOrderValue: PWideChar; totalCommission: PWideChar; marker: PWideChar; next: PWideChar; i: Integer; count_i: Integer; begin // This requires the Chilkat 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 Authorization jsonToken := CkJsonObject_Create(); success := CkJsonObject_LoadFile(jsonToken,'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(jsonToken,'oauth_token')); CkHttp_putOAuthTokenSecret(http,CkJsonObject__stringOf(jsonToken,'oauth_token_secret')); sandboxUrl := 'https://apisb.etrade.com/v1/accounts/{$accountIdKey}/orders'; liveUrl := 'https://api.etrade.com/v1/accounts/{$accountIdKey}/orders'; CkHttp_SetUrlVar(http,'accountIdKey','6_Dpy0rmuQ9cu9IbTfvF2A'); resp := CkHttp_QuickGetObj(http,sandboxUrl); if (CkHttp_getLastMethodSuccess(http) <> True) then begin Memo1.Lines.Add(CkHttp__lastErrorText(http)); Exit; end; // Make sure a successful response was received. if (CkHttpResponse_getStatusCode(resp) > 200) then begin Memo1.Lines.Add(CkHttpResponse__statusLine(resp)); Memo1.Lines.Add(CkHttpResponse__header(resp)); Memo1.Lines.Add(CkHttpResponse__bodyStr(resp)); Exit; end; // Sample XML response: // Use this online tool to generate parsing code from sample XML: // Generate Parsing Code from XML // <?xml version="1.0" encoding="UTF-8" standalone="yes"?> // <OrdersResponse> // <marker>12345678999</marker> // <next>https://api.sit.etrade.com/accounts/E5Nd4LJBsEi_UyHm4Vio9g/orders?marker=12345678999</next> // <Order> // <orderId>479</orderId> // <details>https://api.etrade.com/accounts/E5Nd4LJBsEi_UyHm4Vio9g/orders/479</details> // <orderType>OPTN</orderType> // <OrderDetail> // <placedTime>123453456</placedTime> // <orderValue>123.0000</orderValue> // <status>OPEN</status> // <orderTerm>GOOD_FOR_DAY</orderTerm> // <priceType>LIMIT</priceType> // <limitPrice>1.5</limitPrice> // <stopPrice>0</stopPrice> // <marketSession>REGULAR</marketSession> // <allOrNone>false</allOrNone> // <Instrument> // <Product> // <symbol>RIMM</symbol> // <securityType>OPTN</securityType> // <callPut>CALL</callPut> // <expiryYear>2012</expiryYear> // <expiryMonth>3</expiryMonth> // <expiryDay>9</expiryDay> // <strikePrice>12</strikePrice> // </Product> // <symbolDescription>RESEARCH IN MOTION LTD COM</symbolDescription> // <orderAction>BUY_OPEN</orderAction> // <quantityType>QUANTITY</quantityType> // <orderedQuantity>5</orderedQuantity> // <filledQuantity>5</filledQuantity> // <averageExecutionPrice>0</averageExecutionPrice> // <estimatedCommission>9.99</estimatedCommission> // <estimatedFees>0</estimatedFees> // </Instrument> // <netPrice>0</netPrice> // <netBid>0</netBid> // <netAsk>0</netAsk> // <gcd>0</gcd> // <ratio/> // </OrderDetail> // </Order> // <Order> // <orderId>477</orderId> // <details>https://api.etrade.com/accounts/E5Nd4LJBsEi_UyHm4Vio9g/orders/477</details> // <orderType>ONE_CANCELS_ALL</orderType> // <totalOrderValue>209.99</totalOrderValue> // <totalCommission>10.74</totalCommission> // <OrderDetail> // <orderNumber>1</orderNumber> // <placedTime>1331699203122</placedTime> // <orderValue>123.0000</orderValue> // <status>OPEN</status> // <orderTerm>GOOD_FOR_DAY</orderTerm> // <priceType>LIMIT</priceType> // <limitPrice>2</limitPrice> // <stopPrice>0</stopPrice> // <marketSession>REGULAR</marketSession> // <bracketedLimitPrice>2</bracketedLimitPrice> // <initialStopPrice>2</initialStopPrice> // <allOrNone>false</allOrNone> // <Instrument> // <Product> // <symbol>ETFC</symbol> // <securityType>EQ</securityType> // </Product> // <symbolDescription>ETRADE Financials</symbolDescription> // <orderAction>BUY</orderAction> // <quantityType>QUANTITY</quantityType> // <orderedQuantity>100</orderedQuantity> // <filledQuantity>0</filledQuantity> // <averageExecutionPrice>0</averageExecutionPrice> // <estimatedCommission>9.99</estimatedCommission> // <estimatedFees>0</estimatedFees> // </Instrument> // <netPrice>0</netPrice> // <netBid>0</netBid> // <netAsk>0</netAsk> // <gcd>0</gcd> // <ratio/> // </OrderDetail> // <OrderDetail> // <orderNumber>2</orderNumber> // <placedTime>1331699203</placedTime> // <orderValue>231.0000</orderValue> // <status>OPEN</status> // <orderTerm>GOOD_FOR_DAY</orderTerm> // <priceType>LIMIT</priceType> // <limitPrice>0.5</limitPrice> // <stopPrice>0</stopPrice> // <marketSession>REGULAR</marketSession> // <initialStopPrice>0.5</initialStopPrice> // <allOrNone>false</allOrNone> // <Instrument> // <Product> // <symbol>MON</symbol> // <securityType>OPTN</securityType> // <callPut>CALL</callPut> // <expiryYear>2012</expiryYear> // <expiryMonth>4</expiryMonth> // <expiryDay>21</expiryDay> // <strikePrice>85</strikePrice> // </Product> // <symbolDescription>MON Mar 9 '12 $85 Call</symbolDescription> // <orderAction>BUY_OPEN</orderAction> // <quantityType>QUANTITY</quantityType> // <orderedQuantity>1</orderedQuantity> // <filledQuantity>0</filledQuantity> // <averageExecutionPrice>0</averageExecutionPrice> // <estimatedCommission>9.99</estimatedCommission> // <estimatedFees>0</estimatedFees> // </Instrument> // <netPrice>0</netPrice> // <netBid>0</netBid> // <netAsk>0</netAsk> // <gcd>0</gcd> // <ratio/> // </OrderDetail> // </Order> // <Order> // <orderId>475</orderId> // <details>https://api.etrade.com/accounts/E5Nd4LJBsEi_UyHm4Vio9g/orders/475</details> // <orderType>SPREADS</orderType> // <OrderDetail> // <placedTime>1331742953</placedTime> // <executedTime>1331742955432</executedTime> // <orderValue>4445.99</orderValue> // <status>EXECUTED</status> // <orderTerm>GOOD_FOR_DAY</orderTerm> // <priceType>NET_DEBIT</priceType> // <limitPrice>1.5</limitPrice> // <stopPrice>0</stopPrice> // <marketSession>REGULAR</marketSession> // <allOrNone>false</allOrNone> // <Instrument> // <Product> // <symbol>REE</symbol> // <securityType>OPTN</securityType> // <callPut>CALL</callPut> // <expiryYear>2012</expiryYear> // <expiryMonth>7</expiryMonth> // <expiryDay>21</expiryDay> // <strikePrice>7</strikePrice> // </Product> // <symbolDescription>REE Jul 21 '12 $7 Call</symbolDescription> // <orderAction>BUY_OPEN</orderAction> // <quantityType>QUANTITY</quantityType> // <orderedQuantity>2</orderedQuantity> // <filledQuantity>2</filledQuantity> // <averageExecutionPrice>1.5</averageExecutionPrice> // <estimatedCommission>7.24</estimatedCommission> // <estimatedFees>0</estimatedFees> // </Instrument> // <Instrument> // <Product> // <symbol>REE</symbol> // <securityType>OPTN</securityType> // <callPut>PUT</callPut> // <expiryYear>2013</expiryYear> // <expiryMonth>1</expiryMonth> // <expiryDay>19</expiryDay> // <strikePrice>12.50</strikePrice> // </Product> // <symbolDescription>REE Jan 19 '13 $12.50 Put</symbolDescription> // <orderAction>BUY_OPEN</orderAction> // <quantityType>QUANTITY</quantityType> // <orderedQuantity>2</orderedQuantity> // <filledQuantity>2</filledQuantity> // <averageExecutionPrice>1.5</averageExecutionPrice> // <estimatedCommission>7.24</estimatedCommission> // <estimatedFees>0</estimatedFees> // </Instrument> // <netPrice>0</netPrice> // <netBid>0</netBid> // <netAsk>0</netAsk> // <gcd>0</gcd> // <ratio/> // </OrderDetail> // </Order> // </OrdersResponse> // xml := CkXml_Create(); CkXml_LoadXml(xml,CkHttpResponse__bodyStr(resp)); Memo1.Lines.Add(CkXml__getXml(xml)); marker := CkXml__getChildContent(xml,'marker'); next := CkXml__getChildContent(xml,'next'); i := 0; count_i := CkXml_NumChildrenHavingTag(xml,'Order'); while i < count_i do begin CkXml_putI(xml,i); orderId := CkXml_GetChildIntValue(xml,'Order[i]|orderId'); details := CkXml__getChildContent(xml,'Order[i]|details'); orderType := CkXml__getChildContent(xml,'Order[i]|orderType'); j := 0; count_j := CkXml_NumChildrenHavingTag(xml,'Order[i]|OrderDetail'); while j < count_j do begin CkXml_putJ(xml,j); placedTime := CkXml__getChildContent(xml,'Order[i]|OrderDetail[j]|placedTime'); orderValue := CkXml__getChildContent(xml,'Order[i]|OrderDetail[j]|orderValue'); status := CkXml__getChildContent(xml,'Order[i]|OrderDetail[j]|status'); orderTerm := CkXml__getChildContent(xml,'Order[i]|OrderDetail[j]|orderTerm'); priceType := CkXml__getChildContent(xml,'Order[i]|OrderDetail[j]|priceType'); limitPrice := CkXml__getChildContent(xml,'Order[i]|OrderDetail[j]|limitPrice'); stopPrice := CkXml_GetChildIntValue(xml,'Order[i]|OrderDetail[j]|stopPrice'); marketSession := CkXml__getChildContent(xml,'Order[i]|OrderDetail[j]|marketSession'); allOrNone := CkXml__getChildContent(xml,'Order[i]|OrderDetail[j]|allOrNone'); k := 0; count_k := CkXml_NumChildrenHavingTag(xml,'Order[i]|OrderDetail[j]|Instrument'); while k < count_k do begin CkXml_putK(xml,k); symbol := CkXml__getChildContent(xml,'Order[i]|OrderDetail[j]|Instrument[k]|Product|symbol'); securityType := CkXml__getChildContent(xml,'Order[i]|OrderDetail[j]|Instrument[k]|Product|securityType'); callPut := CkXml__getChildContent(xml,'Order[i]|OrderDetail[j]|Instrument[k]|Product|callPut'); expiryYear := CkXml_GetChildIntValue(xml,'Order[i]|OrderDetail[j]|Instrument[k]|Product|expiryYear'); expiryMonth := CkXml_GetChildIntValue(xml,'Order[i]|OrderDetail[j]|Instrument[k]|Product|expiryMonth'); expiryDay := CkXml_GetChildIntValue(xml,'Order[i]|OrderDetail[j]|Instrument[k]|Product|expiryDay'); strikePrice := CkXml__getChildContent(xml,'Order[i]|OrderDetail[j]|Instrument[k]|Product|strikePrice'); symbolDescription := CkXml__getChildContent(xml,'Order[i]|OrderDetail[j]|Instrument[k]|symbolDescription'); orderAction := CkXml__getChildContent(xml,'Order[i]|OrderDetail[j]|Instrument[k]|orderAction'); quantityType := CkXml__getChildContent(xml,'Order[i]|OrderDetail[j]|Instrument[k]|quantityType'); orderedQuantity := CkXml_GetChildIntValue(xml,'Order[i]|OrderDetail[j]|Instrument[k]|orderedQuantity'); filledQuantity := CkXml_GetChildIntValue(xml,'Order[i]|OrderDetail[j]|Instrument[k]|filledQuantity'); averageExecutionPrice := CkXml__getChildContent(xml,'Order[i]|OrderDetail[j]|Instrument[k]|averageExecutionPrice'); estimatedCommission := CkXml__getChildContent(xml,'Order[i]|OrderDetail[j]|Instrument[k]|estimatedCommission'); estimatedFees := CkXml_GetChildIntValue(xml,'Order[i]|OrderDetail[j]|Instrument[k]|estimatedFees'); k := k + 1; end; netPrice := CkXml_GetChildIntValue(xml,'Order[i]|OrderDetail[j]|netPrice'); netBid := CkXml_GetChildIntValue(xml,'Order[i]|OrderDetail[j]|netBid'); netAsk := CkXml_GetChildIntValue(xml,'Order[i]|OrderDetail[j]|netAsk'); gcd := CkXml_GetChildIntValue(xml,'Order[i]|OrderDetail[j]|gcd'); orderNumber := CkXml_GetChildIntValue(xml,'Order[i]|OrderDetail[j]|orderNumber'); bracketedLimitPrice := CkXml_GetChildIntValue(xml,'Order[i]|OrderDetail[j]|bracketedLimitPrice'); initialStopPrice := CkXml__getChildContent(xml,'Order[i]|OrderDetail[j]|initialStopPrice'); executedTime := CkXml__getChildContent(xml,'Order[i]|OrderDetail[j]|executedTime'); j := j + 1; end; totalOrderValue := CkXml__getChildContent(xml,'Order[i]|totalOrderValue'); totalCommission := CkXml__getChildContent(xml,'Order[i]|totalCommission'); i := i + 1; end; Memo1.Lines.Add('Success.'); CkHttp_Dispose(http); CkJsonObject_Dispose(jsonToken); CkXml_Dispose(xml); end; |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.