Delphi ActiveX

ETrade List Accounts

See more ETrade Examples

Returns a list of E*TRADE accounts for the current user. 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;
jsonToken: TChilkatJsonObject;
sandboxUrl: WideString;
liveUrl: WideString;
resp: TChilkatHttpResponse;
xml: TChilkatXml;
accountId: Integer;
accountIdKey: WideString;
accountMode: WideString;
accountDesc: WideString;
accountName: WideString;
accountType: WideString;
institutionType: WideString;
accountStatus: WideString;
closedDate: Integer;
i: Integer;
count_i: Integer;

begin
success := 0;

// This 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 Authorization
jsonToken := TChilkatJsonObject.Create(Self);
success := jsonToken.LoadFile('qa_data/tokens/etrade.json');
if (success <> 1) then
  begin
    Memo1.Lines.Add('Failed to load OAuth1 token');
    Exit;
  end;

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

sandboxUrl := 'https://apisb.etrade.com/v1/accounts/list';
liveUrl := 'https://api.etrade.com/v1/accounts/list';

resp := TChilkatHttpResponse.Create(Self);
success := http.HttpNoBody('GET',sandboxUrl,resp.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

// Make sure a successful response was received.
if (resp.StatusCode >= 300) then
  begin
    Memo1.Lines.Add(resp.StatusLine);
    Memo1.Lines.Add(resp.Header);
    Memo1.Lines.Add(resp.BodyStr);
    Exit;
  end;

if (resp.StatusCode = 204) then
  begin
    Memo1.Lines.Add('No records available.');
    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"?>
// <AccountListResponse>
//     <Accounts>
//         <Account>
//             <accountId>82314598</accountId>
//             <accountIdKey>dBZOKt9xDrtRSAOl4MSiiA</accountIdKey>
//             <accountMode>IRA</accountMode>
//             <accountDesc>Brokerage</accountDesc>
//             <accountName>NickName-1</accountName>
//             <accountType>MARGIN</accountType>
//             <institutionType>BROKERAGE</institutionType>
//             <accountStatus>ACTIVE</accountStatus>
//             <closedDate>0</closedDate>
//         </Account>
//         <Account>
//             <accountId>58315636</accountId>
//             <accountIdKey>vQMsebA1H5WltUfDkJP48g</accountIdKey>
//             <accountMode>BROKERAGE</accountMode>
//             <accountDesc>Complete Savings</accountDesc>
//             <accountName>NickName-2</accountName>
//             <accountType>INDIVIDUAL</accountType>
//             <institutionType>BROKERAGE</institutionType>
//             <accountStatus>ACTIVE</accountStatus>
//             <closedDate>0</closedDate>
//         </Account>
//         <Account>
//             <accountId>70700418</accountId>
//             <accountIdKey>6_Dpy0rmuQ9cu9IbTfvF2A</accountIdKey>
//             <accountMode>CASH</accountMode>
//             <accountDesc>INDIVIDUAL</accountDesc>
//             <accountName>NickName-3</accountName>
//             <accountType>INDIVIDUAL</accountType>
//             <institutionType>BROKERAGE</institutionType>
//             <accountStatus>ACTIVE</accountStatus>
//             <closedDate>0</closedDate>
//         </Account>
//         <Account>
//             <accountId>83515143</accountId>
//             <accountIdKey>xj1Dc18FTqWPqkEEVUr5rw</accountIdKey>
//             <accountMode>CASH</accountMode>
//             <accountDesc>INDIVIDUAL</accountDesc>
//             <accountName/>
//             <accountType>CASH</accountType>
//             <institutionType>BROKERAGE</institutionType>
//             <accountStatus>CLOSED</accountStatus>
//             <closedDate>1521027780</closedDate>
// 
//         </Account>
//     </Accounts>
// </AccountListResponse>

xml := TChilkatXml.Create(Self);
xml.LoadXml(resp.BodyStr);
Memo1.Lines.Add(xml.GetXml());

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;

Memo1.Lines.Add('Success.');
end;