Sample code for 30+ languages & platforms
Delphi DLL

ETrade v1 Get Account Balances

See more HTTP Misc Examples

Get account balances using the ETrade v1 API.

Chilkat Delphi DLL Downloads

Download Chilkat for Delphi DLL
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, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
http: HCkHttp;
json: HCkJsonObject;
respStr: PWideChar;
statusCode: Integer;
xml: HCkXml;
tagPath: PWideChar;
accountId: Integer;
accountType: PWideChar;
optionLevel: PWideChar;
accountDescription: PWideChar;
quoteMode: Integer;
dayTraderStatus: PWideChar;
accountMode: PWideChar;
fundsForOpenOrdersCash: Integer;
moneyMktBalance: Integer;
cashAvailableForInvestment: Integer;
netCash: PWideChar;
cashBalance: PWideChar;
settledCashForInvestment: Integer;
unSettledCashForInvestment: Integer;
fundsWithheldFromPurchasePower: Integer;
fundsWithheldFromWithdrawal: Integer;
marginBuyingPower: Integer;
cashBuyingPower: PWideChar;
dtMarginBuyingPower: Integer;
dtCashBuyingPower: Integer;
shortAdjustBalance: Integer;
regtEquity: Integer;
regtEquityPercent: Integer;
accountBalance: Integer;
dtCashOpenOrderReserve: Integer;
dtMarginOpenOrderReserve: Integer;

begin
success := False;

// This example 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 3-Legged Authorization examples Step1 and Step2.
json := CkJsonObject_Create();
success := CkJsonObject_LoadFile(json,'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(json,'oauth_token'));
CkHttp_putOAuthTokenSecret(http,CkJsonObject__stringOf(json,'oauth_token_secret'));

// See the ETrade v1 API documentation HERE.

CkHttp_SetUrlVar(http,'accountIdKey','vsnhtF7d9jXxBy6HyaAC4vQ');
CkHttp_SetUrlVar(http,'instType','BROKERAGE');
respStr := CkHttp__quickGetStr(http,'https://apisb.etrade.com/v1/accounts/{$accountIdKey}/balance?instType={$instType}&realTimeNAV=true');
if (CkHttp_getLastMethodSuccess(http) <> True) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

// A 200 status code indicates success.
statusCode := CkHttp_getLastStatus(http);
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 := CkXml_Create();
CkXml_LoadXml(xml,respStr);

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

// <?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>

CkHttp_Dispose(http);
CkJsonObject_Dispose(json);
CkXml_Dispose(xml);

end;