(Xojo Plugin) 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.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

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

Dim success As Boolean
Dim uri As String
uri = "/products"
Dim apiVersion As String
apiVersion = "2.0"

Dim http As New Chilkat.Http
Dim req As New Chilkat.HttpRequest

// 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.
Dim dt As New Chilkat.CkDateTime
success = dt.SetFromCurrentSystemTime()
Dim timestamp As String
timestamp = dt.GetAsTimestamp(True)

req.AddHeader "TIME",timestamp
System.DebugLog("timestamp = " + timestamp)

Dim sbXml As New Chilkat.StringBuilder
success = sbXml.LoadFile("qa_data/xml/effectconnect/effconCreate.xml","utf-8")
System.DebugLog("length = " + Str(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
    System.DebugLog(req.LastErrorText)
    Return
End If

// Build a string-to-sign and sign it using our effectconnect private key
Dim sbStringToSign As New Chilkat.StringBuilder
success = sbStringToSign.AppendInt(sbXml.Length)
success = sbStringToSign.Append("POST")
success = sbStringToSign.Append(uri)
success = sbStringToSign.Append(apiVersion)
success = sbStringToSign.Append(timestamp)

Dim crypt As New Chilkat.Crypt2
crypt.MacAlgorithm = "hmac"
crypt.HashAlgorithm = "sha512"
crypt.EncodingMode = "base64"
// Use your effectconnect private key here:
success = crypt.SetMacKeyString("PRIVATE_KEY")
req.AddHeader "SIGNATURE",crypt.MacStringENC(sbStringToSign.GetAsString())

Dim resp As Chilkat.HttpResponse
resp = http.SynchronousRequest("submit.effectconnect.com",443,True,req)
If (http.LastMethodSuccess = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

System.DebugLog("response status code = " + Str(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.
Dim xmlResp As New Chilkat.Xml
success = xmlResp.LoadXml(resp.BodyStr)

System.DebugLog("response body:")
System.DebugLog(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...
Dim tagPath As String
Dim RequestType As String
Dim RequestAction As String
Dim RequestVersion As String
Dim ProcessedAt As String
Dim Result As String
Dim ProcessID As String

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")