Delphi DLL

ETrade List Accounts

See more ETrade Examples

Returns a list of E*TRADE accounts for the current user. Delphi DLL

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;
accountId: Integer;
accountIdKey: PWideChar;
accountMode: PWideChar;
accountDesc: PWideChar;
accountName: PWideChar;
accountType: PWideChar;
institutionType: PWideChar;
accountStatus: PWideChar;
closedDate: Integer;
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/list';
liveUrl := 'https://api.etrade.com/v1/accounts/list';

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) >= 300) then
  begin
    Memo1.Lines.Add(CkHttpResponse__statusLine(resp));
    Memo1.Lines.Add(CkHttpResponse__header(resp));
    Memo1.Lines.Add(CkHttpResponse__bodyStr(resp));
    Exit;
  end;

if (CkHttpResponse_getStatusCode(resp) = 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 := CkXml_Create();
CkXml_LoadXml(xml,CkHttpResponse__bodyStr(resp));
Memo1.Lines.Add(CkXml__getXml(xml));

i := 0;
count_i := CkXml_NumChildrenHavingTag(xml,'Accounts|Account');
while i < count_i do
  begin
    CkXml_putI(xml,i);
    accountId := CkXml_GetChildIntValue(xml,'Accounts|Account[i]|accountId');
    accountIdKey := CkXml__getChildContent(xml,'Accounts|Account[i]|accountIdKey');
    accountMode := CkXml__getChildContent(xml,'Accounts|Account[i]|accountMode');
    accountDesc := CkXml__getChildContent(xml,'Accounts|Account[i]|accountDesc');
    accountName := CkXml__getChildContent(xml,'Accounts|Account[i]|accountName');
    accountType := CkXml__getChildContent(xml,'Accounts|Account[i]|accountType');
    institutionType := CkXml__getChildContent(xml,'Accounts|Account[i]|institutionType');
    accountStatus := CkXml__getChildContent(xml,'Accounts|Account[i]|accountStatus');
    closedDate := CkXml_GetChildIntValue(xml,'Accounts|Account[i]|closedDate');
    i := i + 1;
  end;

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

CkHttp_Dispose(http);
CkJsonObject_Dispose(jsonToken);
CkHttpResponse_Dispose(resp);
CkXml_Dispose(xml);

end;