Delphi DLL
Delphi DLL
ETrade List Orders
See more ETrade Examples
Gets the order details for a selected brokerage account based on the search criteria provided.Chilkat Delphi DLL Downloads
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
success: Boolean;
http: HCkHttp;
jsonToken: HCkJsonObject;
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
success := False;
// 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 := CkHttpResponse_Create();
success := CkHttp_HttpNoBody(http,'GET',sandboxUrl,resp);
if (success = False) 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);
CkHttpResponse_Dispose(resp);
CkXml_Dispose(xml);
end;