Pascal (Lazarus/Delphi)

effectconnect Create or Replace Product Catalog

See more effectconnect Examples

Use this call to create or replace a product catalog in EffectConnect. This is always a purge and replace action for the entire catalog. Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Http,
  Chilkat.CkDateTime,
  Chilkat.HttpRequest,
  Chilkat.HttpResponse,
  Chilkat.StringBuilder,
  Chilkat.Xml,
  Chilkat.Crypt2;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  uri: string;
  apiVersion: string;
  http: THttp;
  req: THttpRequest;
  dt: TCkDateTime;
  timestamp: string;
  sbXml: TStringBuilder;
  sbStringToSign: TStringBuilder;
  crypt: TCrypt2;
  resp: THttpResponse;
  xmlResp: TXml;
  tagPath: string;
  RequestType: string;
  RequestAction: string;
  RequestVersion: string;
  ProcessedAt: string;
  Result: string;
  ProcessID: string;

begin
  success := False;

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

  uri := '/products';
  apiVersion := '2.0';

  http := THttp.Create;
  req := THttpRequest.Create;

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

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

  req.AddHeader('TIME',timestamp);
  WriteLn('timestamp = ' + timestamp);

  sbXml := TStringBuilder.Create;
  success := sbXml.LoadFile('qa_data/xml/effectconnect/effconCreate.xml','utf-8');
  WriteLn('length = ' + sbXml.Length);

  req.HttpVerb := 'POST';
  req.Path := uri;
  req.ContentType := 'multipart/form-data';
  success := req.AddStringForUpload('payload','effcon.xml',sbXml.GetAsString(),'utf-8');
  if (success = False) then
    begin
      WriteLn(req.LastErrorText);
      Exit;
    end;

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

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

  resp := THttpResponse.Create;
  success := http.HttpSReq('submit.effectconnect.com',443,True,req,resp);
  if (success = False) then
    begin
      WriteLn(http.LastErrorText);
      Exit;
    end;

  WriteLn('response status code = ' + 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 := TXml.Create;
  xmlResp.LoadXml(resp.BodyStr);

  WriteLn('response body:');
  WriteLn(xmlResp.GetXml());

  //  A sample response:

  //  <?xml version="1.0" encoding="utf-8"?>
  //  <ApiResponseContainer>
  //      <Request>
  //          <RequestType>Products</RequestType>
  //          <RequestAction>Create</RequestAction>
  //          <RequestVersion>2.0</RequestVersion>
  //          <RequestIdentifier/>
  //          <ProcessedAt>2019-04-18T15:28:55+02:00</ProcessedAt>
  //      </Request>
  //      <Response>
  //          <Result>Success</Result>
  //          <ProductsCreateResponseContainer>
  //              <ProcessID><![CDATA[J048hgS4OkNn0JnH]]></ProcessID>
  //          </ProductsCreateResponseContainer>
  //      </Response>
  //  </ApiResponseContainer>

  //  Parsing the response...

  RequestType := xmlResp.GetChildContent('Request|RequestType');
  RequestAction := xmlResp.GetChildContent('Request|RequestAction');
  RequestVersion := xmlResp.GetChildContent('Request|RequestVersion');
  ProcessedAt := xmlResp.GetChildContent('Request|ProcessedAt');
  Result := xmlResp.GetChildContent('Response|Result');
  ProcessID := xmlResp.GetChildContent('Response|ProductsCreateResponseContainer|ProcessID');


  http.Free;
  req.Free;
  dt.Free;
  sbXml.Free;
  sbStringToSign.Free;
  crypt.Free;
  resp.Free;
  xmlResp.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.