(Delphi ActiveX) ETrade v1 List Accounts

List ETrade accounts using the ETrade v1 API.

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;
accountId: Integer;
accountIdKey: WideString;
accountMode: WideString;
accountDesc: WideString;
accountName: WideString;
accountType: WideString;
institutionType: WideString;
accountStatus: WideString;
closedDate: 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.

respStr := http.QuickGetStr('https://apisb.etrade.com/v1/accounts/list');
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('Accounts|Account');
while i < count_i do
  begin
    xml.I := i;
    accountId := xml.GetChildIntValue('Accounts|Account[i]|accountId');
    accountIdKey := xml.GetChildContent('Accounts|Account[i]|accountIdKey');
    accountMode := xml.GetChildContent('Accounts|Account[i]|accountMode');
    accountDesc := xml.GetChildContent('Accounts|Account[i]|accountDesc');
    accountName := xml.GetChildContent('Accounts|Account[i]|accountName');
    accountType := xml.GetChildContent('Accounts|Account[i]|accountType');
    institutionType := xml.GetChildContent('Accounts|Account[i]|institutionType');
    accountStatus := xml.GetChildContent('Accounts|Account[i]|accountStatus');
    closedDate := xml.GetChildIntValue('Accounts|Account[i]|closedDate');
    i := i + 1;
  end;

// <?xml version="1.0" encoding="UTF-8"?>
// <AccountListResponse>
//    <Accounts>
//       <Account>
//          <accountId>84010429</accountId>
//          <accountIdKey>JIdOIAcSpwR1Jva7RQBraQ</accountIdKey>
//          <accountMode>MARGIN</accountMode>
//          <accountDesc>INDIVIDUAL</accountDesc>
//          <accountName>Individual Brokerage</accountName>
//          <accountType>INDIVIDUAL</accountType>
//          <institutionType>BROKERAGE</institutionType>
//          <accountStatus>ACTIVE</accountStatus>
//          <closedDate>0</closedDate>
//       </Account>
//       <Account>
//          <accountId>84010430</accountId>
//          <accountIdKey>JAAOIAcSpwR1Jva7RQBraQ</accountIdKey>
//          <accountMode>MARGIN</accountMode>
//          <accountDesc>INDIVIDUAL</accountDesc>
//          <accountName>Individual Brokerage</accountName>
//          <accountType>INDIVIDUAL</accountType>
//          <institutionType>BROKERAGE</institutionType>
//          <accountStatus>ACTIVE</accountStatus>
//          <closedDate>0</closedDate>
//       </Account>
//    </Accounts>
// </AccountListResponse>
end;