Delphi ActiveX

ETrade v1 List Accounts

See more HTTP Misc Examples

List ETrade accounts using the ETrade v1 API. 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;
accountId: Integer;
accountIdKey: WideString;
accountMode: WideString;
accountDesc: WideString;
accountName: WideString;
accountType: WideString;
institutionType: WideString;
accountStatus: WideString;
closedDate: Integer;

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.

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;