Delphi DLL

ETrade Cancel Order

See more ETrade Examples

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

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Http, HttpResponse, Xml, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
http: HCkHttp;
jsonToken: HCkJsonObject;
sandboxUrl: PWideChar;
liveUrl: PWideChar;
xml: HCkXml;
httpRequestBody: PWideChar;
resp: HCkHttpResponse;
accountId: Integer;
orderId: Integer;
cancelTime: PWideChar;
code: Integer;
description: PWideChar;
v_type: PWideChar;

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

CkHttp_SetUrlVar(http,'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 := CkXml_Create();
CkXml_putTag(xml,'CancelOrderRequest');
CkXml_UpdateChildContent(xml,'orderId','11');
CkXml_putEmitCompact(xml,True);

httpRequestBody := CkXml__getXml(xml);
resp := CkHttpResponse_Create();
success := CkHttp_HttpStr(http,'PUT',sandboxUrl,httpRequestBody,'utf-8','application/xml',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) > 200) then
  begin
    Memo1.Lines.Add(CkHttpResponse__statusLine(resp));
    Memo1.Lines.Add(CkHttpResponse__header(resp));
    Memo1.Lines.Add(CkHttpResponse__bodyStr(resp));
    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>

CkXml_LoadXml(xml,CkHttpResponse__bodyStr(resp));
Memo1.Lines.Add(CkXml__getXml(xml));

accountId := CkXml_GetChildIntValue(xml,'accountId');
orderId := CkXml_GetChildIntValue(xml,'orderId');
cancelTime := CkXml__getChildContent(xml,'cancelTime');
code := CkXml_GetChildIntValue(xml,'Messages|Message|code');
description := CkXml__getChildContent(xml,'Messages|Message|description');
v_type := CkXml__getChildContent(xml,'Messages|Message|type');

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

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

end;