(Delphi ActiveX) ETrade Cancel Order

The cancel order API is used to cancel an existing order.

For more information, see https://apisb.etrade.com/docs/api/order/api-order-v1.html#/definition/cancelOrder

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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
http: TChilkatHttp;
jsonToken: TChilkatJsonObject;
success: Integer;
sandboxUrl: WideString;
liveUrl: WideString;
xml: TChilkatXml;
resp: IChilkatHttpResponse;
accountId: Integer;
orderId: Integer;
cancelTime: WideString;
code: Integer;
description: WideString;
v_type: WideString;

begin
// 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}/orders/cancel';
liveUrl := 'https://api.etrade.com/v1/accounts/{$accountIdKey}/orders/cancel';

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

// Send a PUT with the following XML body

// Use this online tool to generate the code from sample XML: 
// Generate Code to Create XML

// <CancelOrderRequest>
//    <orderId>11</orderId>
// </CancelOrderRequest>

xml := TChilkatXml.Create(Self);
xml.Tag := 'CancelOrderRequest';
xml.UpdateChildContent('orderId','11');
xml.EmitCompact := 1;

resp := http.PText('PUT',sandboxUrl,xml.GetXml(),'utf-8','application/xml',0,0);
if (http.LastMethodSuccess <> 1) 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

// <CancelOrderResponse>
//    <accountId>63438617</accountId>
//    <orderId>11</orderId>
//    <cancelTime>1529563499081</cancelTime>
//    <Messages>
//       <Message>
//          <code>5011</code>
//          <description>200|Your request to cancel your order is being processed.</description>
//          <type>WARNING</type>
//       </Message>
//    </Messages>
// </CancelOrderResponse>

xml.LoadXml(resp.BodyStr);
Memo1.Lines.Add(xml.GetXml());

accountId := xml.GetChildIntValue('accountId');
orderId := xml.GetChildIntValue('orderId');
cancelTime := xml.GetChildContent('cancelTime');
code := xml.GetChildIntValue('Messages|Message|code');
description := xml.GetChildContent('Messages|Message|description');
v_type := xml.GetChildContent('Messages|Message|type');

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