Delphi ActiveX

effectconnect Read Orderlist

See more effectconnect Examples

Get a set of orders filtered by the parameters in the XML payload. 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;
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();
end;