(Visual FoxPro) effectconnect Create or Replace Product Catalog

Use this call to create or replace a product catalog in EffectConnect. This is always a purge and replace action for the entire catalog.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL lcUri
LOCAL lcApiVersion
LOCAL loHttp
LOCAL loReq
LOCAL loDt
LOCAL lcTimestamp
LOCAL loSbXml
LOCAL loSbStringToSign
LOCAL loCrypt
LOCAL loResp
LOCAL loXmlResp
LOCAL lcTagPath
LOCAL lcRequestType
LOCAL lcRequestAction
LOCAL lcRequestVersion
LOCAL lcProcessedAt
LOCAL lcResult
LOCAL lcProcessID

lnSuccess = 0

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

lcUri = "/products"
lcApiVersion = "2.0"

loHttp = CreateObject('Chilkat.Http')
loReq = CreateObject('Chilkat.HttpRequest')

* Use your effectconnect public key here...
loReq.AddHeader("KEY","PUBLIC_KEY")
loReq.AddHeader("VERSION",lcApiVersion)
loReq.AddHeader("URI",lcUri)
loReq.AddHeader("RESPONSETYPE","XML")
loReq.AddHeader("RESPONSELANGUAGE","en")

* Get the current date/time in timestamp format.
loDt = CreateObject('Chilkat.CkDateTime')
loDt.SetFromCurrentSystemTime()
lcTimestamp = loDt.GetAsTimestamp(1)

loReq.AddHeader("TIME",lcTimestamp)
? "timestamp = " + lcTimestamp

loSbXml = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSbXml.LoadFile("qa_data/xml/effectconnect/effconCreate.xml","utf-8")
? "length = " + STR(loSbXml.Length)

loReq.HttpVerb = "POST"
loReq.Path = lcUri
loReq.ContentType = "multipart/form-data"
lnSuccess = loReq.AddStringForUpload("payload","effcon.xml",loSbXml.GetAsString(),"utf-8")
IF (lnSuccess = 0) THEN
    ? loReq.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    RELEASE loDt
    RELEASE loSbXml
    CANCEL
ENDIF

* Build a string-to-sign and sign it using our effectconnect private key
loSbStringToSign = CreateObject('Chilkat.StringBuilder')
loSbStringToSign.AppendInt(loSbXml.Length)
loSbStringToSign.Append("POST")
loSbStringToSign.Append(lcUri)
loSbStringToSign.Append(lcApiVersion)
loSbStringToSign.Append(lcTimestamp)

loCrypt = CreateObject('Chilkat.Crypt2')
loCrypt.MacAlgorithm = "hmac"
loCrypt.HashAlgorithm = "sha512"
loCrypt.EncodingMode = "base64"
* Use your effectconnect private key here:
loCrypt.SetMacKeyString("PRIVATE_KEY")
loReq.AddHeader("SIGNATURE",loCrypt.MacStringENC(loSbStringToSign.GetAsString()))

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpSReq("submit.effectconnect.com",443,1,loReq,loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    RELEASE loDt
    RELEASE loSbXml
    RELEASE loSbStringToSign
    RELEASE loCrypt
    RELEASE loResp
    CANCEL
ENDIF

? "response status code = " + STR(loResp.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.
loXmlResp = CreateObject('Chilkat.Xml')
loXmlResp.LoadXml(loResp.BodyStr)

? "response body:"
? loXmlResp.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...

lcRequestType = loXmlResp.GetChildContent("Request|RequestType")
lcRequestAction = loXmlResp.GetChildContent("Request|RequestAction")
lcRequestVersion = loXmlResp.GetChildContent("Request|RequestVersion")
lcProcessedAt = loXmlResp.GetChildContent("Request|ProcessedAt")
lcResult = loXmlResp.GetChildContent("Response|Result")
lcProcessID = loXmlResp.GetChildContent("Response|ProductsCreateResponseContainer|ProcessID")

RELEASE loHttp
RELEASE loReq
RELEASE loDt
RELEASE loSbXml
RELEASE loSbStringToSign
RELEASE loCrypt
RELEASE loResp
RELEASE loXmlResp