Delphi ActiveX

ETrade Get Account Balances

See more ETrade Examples

Retrieves the current account balance and related details for a specified account. 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;
accountType: WideString;
optionLevel: WideString;
accountDescription: WideString;
quoteMode: Integer;
dayTraderStatus: WideString;
accountMode: WideString;
fundsForOpenOrdersCash: Integer;
moneyMktBalance: Integer;
cashAvailableForInvestment: Integer;
netCash: WideString;
cashBalance: WideString;
settledCashForInvestment: Integer;
unSettledCashForInvestment: Integer;
fundsWithheldFromPurchasePower: Integer;
fundsWithheldFromWithdrawal: Integer;
marginBuyingPower: Integer;
cashBuyingPower: WideString;
dtMarginBuyingPower: Integer;
dtCashBuyingPower: Integer;
shortAdjustBalance: Integer;
regtEquity: Integer;
regtEquityPercent: Integer;
accountBalance: Integer;
dtCashOpenOrderReserve: Integer;
dtMarginOpenOrderReserve: 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/{$accountIdKey}/balance?instType={$instType}&realTimeNAV=true';
liveUrl := 'https://api.etrade.com/v1/accounts/{$accountIdKey}/balance?instType={$instType}&realTimeNAV=true';

http.SetUrlVar('accountIdKey','6_Dpy0rmuQ9cu9IbTfvF2A');
http.SetUrlVar('instType','BROKERAGE');

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 > 200) then
  begin
    Memo1.Lines.Add(resp.StatusLine);
    Memo1.Lines.Add(resp.Header);
    Memo1.Lines.Add(resp.BodyStr);
    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"?>
// <BalanceResponse>
//    <accountId>83564979</accountId>
//    <accountType>PDT_ACCOUNT</accountType>
//    <optionLevel>LEVEL_4</optionLevel>
//    <accountDescription>KRITHH TT</accountDescription>
//    <quoteMode>6</quoteMode>
//    <dayTraderStatus>PDT_MIN_EQUITY_RES_1XK</dayTraderStatus>
//    <accountMode>PDT ACCOUNT</accountMode>
//    <Cash>
//       <fundsForOpenOrdersCash>0</fundsForOpenOrdersCash>
//       <moneyMktBalance>0</moneyMktBalance>
//    </Cash>
//    <Computed>
//       <cashAvailableForInvestment>0</cashAvailableForInvestment>
//       <netCash>93921.44</netCash>
//       <cashBalance>93921.44</cashBalance>
//       <settledCashForInvestment>0</settledCashForInvestment>
//       <unSettledCashForInvestment>0</unSettledCashForInvestment>
//       <fundsWithheldFromPurchasePower>0</fundsWithheldFromPurchasePower>
//       <fundsWithheldFromWithdrawal>0</fundsWithheldFromWithdrawal>
//       <marginBuyingPower>0</marginBuyingPower>
//       <cashBuyingPower>93921.44</cashBuyingPower>
//       <dtMarginBuyingPower>0</dtMarginBuyingPower>
//       <dtCashBuyingPower>0</dtCashBuyingPower>
//       <shortAdjustBalance>0</shortAdjustBalance>
//       <regtEquity>0</regtEquity>
//       <regtEquityPercent>0</regtEquityPercent>
//       <accountBalance>0</accountBalance>
//    </Computed>
//    <Margin>
//       <dtCashOpenOrderReserve>0</dtCashOpenOrderReserve>
//       <dtMarginOpenOrderReserve>0</dtMarginOpenOrderReserve>
//    </Margin>
// </BalanceResponse>

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

accountId := xml.GetChildIntValue('accountId');
accountType := xml.GetChildContent('accountType');
optionLevel := xml.GetChildContent('optionLevel');
accountDescription := xml.GetChildContent('accountDescription');
quoteMode := xml.GetChildIntValue('quoteMode');
dayTraderStatus := xml.GetChildContent('dayTraderStatus');
accountMode := xml.GetChildContent('accountMode');
fundsForOpenOrdersCash := xml.GetChildIntValue('Cash|fundsForOpenOrdersCash');
moneyMktBalance := xml.GetChildIntValue('Cash|moneyMktBalance');
cashAvailableForInvestment := xml.GetChildIntValue('Computed|cashAvailableForInvestment');
netCash := xml.GetChildContent('Computed|netCash');
cashBalance := xml.GetChildContent('Computed|cashBalance');
settledCashForInvestment := xml.GetChildIntValue('Computed|settledCashForInvestment');
unSettledCashForInvestment := xml.GetChildIntValue('Computed|unSettledCashForInvestment');
fundsWithheldFromPurchasePower := xml.GetChildIntValue('Computed|fundsWithheldFromPurchasePower');
fundsWithheldFromWithdrawal := xml.GetChildIntValue('Computed|fundsWithheldFromWithdrawal');
marginBuyingPower := xml.GetChildIntValue('Computed|marginBuyingPower');
cashBuyingPower := xml.GetChildContent('Computed|cashBuyingPower');
dtMarginBuyingPower := xml.GetChildIntValue('Computed|dtMarginBuyingPower');
dtCashBuyingPower := xml.GetChildIntValue('Computed|dtCashBuyingPower');
shortAdjustBalance := xml.GetChildIntValue('Computed|shortAdjustBalance');
regtEquity := xml.GetChildIntValue('Computed|regtEquity');
regtEquityPercent := xml.GetChildIntValue('Computed|regtEquityPercent');
accountBalance := xml.GetChildIntValue('Computed|accountBalance');
dtCashOpenOrderReserve := xml.GetChildIntValue('Margin|dtCashOpenOrderReserve');
dtMarginOpenOrderReserve := xml.GetChildIntValue('Margin|dtMarginOpenOrderReserve');

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