Delphi ActiveX Requires Chilkat v11.0.0+

effectconnect Read Orderlist

See more effectconnect Examples

Get a set of orders filtered by the parameters in the XML payload. Delphi ActiveX

var
success: Integer;
fullUri: WideString;
uri: WideString;
apiVersion: WideString;
http: TChilkatHttp;
dt: TCkDateTime;
timestamp: WideString;
xml: TChilkatXml;
sbXml: TChilkatStringBuilder;
sbStringToSign: TChilkatStringBuilder;
crypt: TChilkatCrypt2;
resp: TChilkatHttpResponse;
xmlResp: TChilkatXml;

begin
success := 0;

//  This example assumes the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

fullUri := 'https://submit.effectconnect.com/orderlist';
uri := '/orderlist';
apiVersion := '2.0';

http := TChilkatHttp.Create(Self);

//  Use your effectconnect public key here..
http.SetRequestHeader('KEY','PUBLIC_KEY');
http.SetRequestHeader('VERSION',apiVersion);
http.SetRequestHeader('URI',uri);
http.SetRequestHeader('RESPONSETYPE','XML');
http.SetRequestHeader('RESPONSELANGUAGE','en');

//  Get the current date/time in timestamp format.
dt := TCkDateTime.Create(Self);
dt.SetFromCurrentSystemTime();
timestamp := dt.GetAsTimestamp(1);

http.SetRequestHeader('TIME',timestamp);
Memo1.Lines.Add('timestamp = ' + timestamp);

//  Create the following XML request body:
//  <?xml version="1.0" encoding="utf-8"?>
//  <list>
//    <filters>
//      <fromDateFilter>
//        <filterValue>2018-09-14T12:12:12+01:00</filterValue>
//      </fromDateFilter>
//      <toDateFilter>
//        <filterValue>2019-04-13T23:59:59+01:00</filterValue>
//      </toDateFilter>
//      <hasStatusFilter>
//        <filterValue>paid</filterValue>
//      </hasStatusFilter>
//      <hasTagFilter>
//        <filterValue>
//          <tagName>Test</tagName>
//          <exclude>false</exclude>
//        </filterValue>
//      </hasTagFilter>
//    </filters>
//  </list>

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

xml := TChilkatXml.Create(Self);
xml.Tag := 'list';
xml.UpdateChildContent('filters|fromDateFilter|filterValue','2018-09-14T12:12:12+01:00');
xml.UpdateChildContent('filters|toDateFilter|filterValue','2019-04-13T23:59:59+01:00');
xml.UpdateChildContent('filters|hasStatusFilter|filterValue','paid');
xml.UpdateChildContent('filters|hasTagFilter|filterValue|tagName','Test');
xml.UpdateChildContent('filters|hasTagFilter|filterValue|exclude','false');
xml.EmitCompact := 1;

sbXml := TChilkatStringBuilder.Create(Self);
xml.GetXmlSb(sbXml.ControlInterface);

//  Build a string-to-sign and sign it using our effectconnect private key
sbStringToSign := TChilkatStringBuilder.Create(Self);
sbStringToSign.AppendInt(sbXml.Length);
sbStringToSign.Append('POST');
sbStringToSign.Append(uri);
sbStringToSign.Append(apiVersion);
sbStringToSign.Append(timestamp);

crypt := TChilkatCrypt2.Create(Self);
crypt.MacAlgorithm := 'hmac';
crypt.HashAlgorithm := 'sha512';
crypt.EncodingMode := 'base64';
//  Use your effectconnect private key here:
crypt.SetMacKeyString('PRIVATE_KEY');
http.SetRequestHeader('SIGNATURE',crypt.MacStringENC(sbStringToSign.GetAsString()));

//  Send the POST..
resp := TChilkatHttpResponse.Create(Self);
success := http.HttpStr('POST',fullUri,xml.GetXml(),'utf-8','application/xml',resp.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('response status code = ' + IntToStr(resp.StatusCode));

//  Examine the response.  The response status code can be 200 for both errors and success.
//  The success or error is based on the XML returned in the response body.
xmlResp := TChilkatXml.Create(Self);
xmlResp.LoadXml(resp.BodyStr);

Memo1.Lines.Add('response body:');
Memo1.Lines.Add(xmlResp.GetXml());

//  Remove previously set headers (unless we want the same headers for the next request,
//  in which case we may remove or update individual headers by calling SetRequestHeader.
http.ClearHeaders();