Delphi ActiveX

ETrade v1 List Orders

See more HTTP Misc Examples

Gets the order details for a selected brokerage account based on the search criteria provided. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
http: TChilkatHttp;
json: TChilkatJsonObject;
respStr: WideString;
statusCode: Integer;
xml: TChilkatXml;
i: Integer;
count_i: Integer;
tagPath: WideString;
orderId: Integer;
details: WideString;
orderType: WideString;
OrderDetail: WideString;

begin
success := 0;

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

http := TChilkatHttp.Create(Self);

http.OAuth1 := 1;
http.OAuthVerifier := '';
http.OAuthConsumerKey := 'ETRADE_CONSUMER_KEY';
http.OAuthConsumerSecret := 'ETRADE_CONSUMER_SECRET';

// Load the access token previously obtained via the OAuth1 3-Legged Authorization examples Step1 and Step2.
json := TChilkatJsonObject.Create(Self);
success := json.LoadFile('qa_data/tokens/etrade.json');
if (success <> 1) then
  begin
    Memo1.Lines.Add('Failed to load OAuth1 token');
    Exit;
  end;

http.OAuthToken := json.StringOf('oauth_token');
http.OAuthTokenSecret := json.StringOf('oauth_token_secret');

// See the ETrade v1 API documentation HERE.

http.SetUrlVar('accountIdKey','vsnhtF7d9jXxBy6HyaAC4vQ');
respStr := http.QuickGetStr('https://apisb.etrade.com/v1/accounts/{$accountIdKey}/orders?securityType=EQ&count=100');
if (http.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

// A 200 status code indicates success.
statusCode := http.LastStatus;
Memo1.Lines.Add('statusCode = ' + IntToStr(statusCode));

// Use the following online tool to generate parsing code from sample XML: 
// Generate Parsing Code from XML

// A sample XML response is shown below...

xml := TChilkatXml.Create(Self);
xml.LoadXml(respStr);

i := 0;
count_i := xml.NumChildrenHavingTag('Order');
while i < count_i do
  begin
    xml.I := i;
    orderId := xml.GetChildIntValue('Order[i]|orderId');
    details := xml.GetChildContent('Order[i]|details');
    orderType := xml.GetChildContent('Order[i]|orderType');
    OrderDetail := xml.GetChildContent('Order[i]|OrderDetail');
    i := i + 1;
  end;

// Sample XML Response
// <?xml version="1.0" encoding="UTF-8"?>
// <OrdersResponse>
//    <Order>
//       <orderId>96</orderId>
//       <details>https://api.etrade.com/v1/accounts/ZrnXF-hPu853sBzwHfWGBQ/orders/96</details>
//       <orderType>EQ</orderType>
//       <OrderDetail>�</OrderDetail>
//    </Order>
//    <Order>
//       <orderId>95</orderId>
//       <details>https://api.etrade.com/v1/accounts/ZrnXF-hPu853sBzwHfWGBQ/orders/95</details>
//       <orderType>EQ</orderType>
//       <OrderDetail>�</OrderDetail>
//    </Order>
//    <Order>
//       <orderId>94</orderId>
//       <details>https://api.etrade.com/v1/accounts/ZrnXF-hPu853sBzwHfWGBQ/orders/94</details>
//       <orderType>EQ</orderType>
//       <OrderDetail>�</OrderDetail>
//    </Order>
//    <Order>
//       <orderId>93</orderId>
//       <details>https://api.etrade.com/v1/accounts/ZrnXF-hPu853sBzwHfWGBQ/orders/93</details>
//       <orderType>EQ</orderType>
//       <OrderDetail>�</OrderDetail>
//    </Order>
// </OrdersResponse>
end;