(Delphi ActiveX) ETrade v1 List Transactions

Get information about the transactions in an ETrade brokerage account.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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
http: TChilkatHttp;
json: TChilkatJsonObject;
success: Integer;
respStr: WideString;
statusCode: Integer;
xml: TChilkatXml;
i: Integer;
count_i: Integer;
tagPath: WideString;
transactionId: WideString;
accountId: Integer;
transactionDate: WideString;
postDate: WideString;
amount: Integer;
description: WideString;
description2: Integer;
transactionType: WideString;
imageFlag: WideString;
instType: WideString;
quantity: Integer;
price: Integer;
settlementCurrency: WideString;
paymentCurrency: WideString;
fee: Integer;
settlementDate: WideString;
detailsURI: WideString;
pageMarkers: WideString;
moreTransactions: WideString;
transactionCount: Integer;
totalCount: Integer;

begin
// 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}/transactions');
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('Transaction');
while i < count_i do
  begin
    xml.I := i;
    transactionId := xml.GetChildContent('Transaction[i]|transactionId');
    accountId := xml.GetChildIntValue('Transaction[i]|accountId');
    transactionDate := xml.GetChildContent('Transaction[i]|transactionDate');
    postDate := xml.GetChildContent('Transaction[i]|postDate');
    amount := xml.GetChildIntValue('Transaction[i]|amount');
    description := xml.GetChildContent('Transaction[i]|description');
    description2 := xml.GetChildIntValue('Transaction[i]|description2');
    transactionType := xml.GetChildContent('Transaction[i]|transactionType');
    imageFlag := xml.GetChildContent('Transaction[i]|imageFlag');
    instType := xml.GetChildContent('Transaction[i]|instType');
    quantity := xml.GetChildIntValue('Transaction[i]|brokerage|quantity');
    price := xml.GetChildIntValue('Transaction[i]|brokerage|price');
    settlementCurrency := xml.GetChildContent('Transaction[i]|brokerage|settlementCurrency');
    paymentCurrency := xml.GetChildContent('Transaction[i]|brokerage|paymentCurrency');
    fee := xml.GetChildIntValue('Transaction[i]|brokerage|fee');
    settlementDate := xml.GetChildContent('Transaction[i]|brokerage|settlementDate');
    detailsURI := xml.GetChildContent('Transaction[i]|detailsURI');
    i := i + 1;
  end;

pageMarkers := xml.GetChildContent('pageMarkers');
moreTransactions := xml.GetChildContent('moreTransactions');
transactionCount := xml.GetChildIntValue('transactionCount');
totalCount := xml.GetChildIntValue('totalCount');

// <?xml version="1.0" encoding="UTF-8"?>
// <TransactionListResponse>
//    <Transaction>
//       <transactionId>18165100001766</transactionId>
//       <accountId>83564979</accountId>
//       <transactionDate>1528948800000</transactionDate>
//       <postDate>1528948800000</postDate>
//       <amount>-2</amount>
//       <description>ACH WITHDRAWL REFID:109187276;</description>
//       <description2>109187276</description2>
//       <transactionType>Transfer</transactionType>
//       <memo />
//       <imageFlag>false</imageFlag>
//       <instType>BROKERAGE</instType>
//       <brokerage>
//          <product />
//          <quantity>0</quantity>
//          <price>0</price>
//          <settlementCurrency>USD</settlementCurrency>
//          <paymentCurrency>USD</paymentCurrency>
//          <fee>0</fee>
//          <settlementDate>1528948800000</settlementDate>
//       </brokerage>
//       <detailsURI>https://api.etrade.com/v1/accounts/yIFaUoJ81qyAhgxLWRQ42g/transactions/18165100001766</detailsURI>
//    </Transaction>
//    <Transaction>
//       <transactionId>18158100000983</transactionId>
//       <accountId>83564979</accountId>
//       <transactionDate>1528344000000</transactionDate>
//       <postDate>1528344000000</postDate>
//       <amount>-2</amount>
//       <description>ACH WITHDRAWL REFID:98655276;</description>
//       <description2>98655276</description2>
//       <transactionType>Transfer</transactionType>
//       <memo />
//       <imageFlag>false</imageFlag>
//       <instType>BROKERAGE</instType>
//       <brokerage>
//          <product />
//          <quantity>0</quantity>
//          <price>0</price>
//          <settlementCurrency>USD</settlementCurrency>
//          <paymentCurrency>USD</paymentCurrency>
//          <fee>0</fee>
//          <settlementDate>1528344000000</settlementDate>
//       </brokerage>
//       <detailsURI>https://api.etrade.com/v1/accounts/yIFaUoJ81qyAhgxLWRQ42g/transactions/18158100000983</detailsURI>
//    </Transaction>
//    <pageMarkers>eNpTsAlITE91zi%2FNK%2FHMc04syi8tTs2xM7TRxybMpWATkl%2BSmBOUmpxflAKWtTO10ccQg6mDmwEyEE0EqAbE8SvNTUotCk4tLE3NS061M9Ax0DEEYgOIA9BkuRQgmjxTfDKLQUYoQAV8E4uyU4vsDC0MzUwNDYDA0NzMrKamBmIKVJYLphpiKsyTUB7IbH1kwwFa7F0D</pageMarkers>
//    <moreTransactions>false</moreTransactions>
//    <transactionCount>5</transactionCount>
//    <totalCount>5</totalCount>
// </TransactionListResponse
end;