Visual Basic 6.0

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. Visual Basic 6.0

Dim success As Long
success = 0

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

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

Dim http As New ChilkatHttp
Dim req As New ChilkatHttpRequest

' 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 CkDateTime
success = dt.SetFromCurrentSystemTime()
Dim timestamp As String
timestamp = dt.GetAsTimestamp(1)

req.AddHeader "TIME",timestamp
Debug.Print "timestamp = " & timestamp

Dim sbXml As New ChilkatStringBuilder
success = sbXml.LoadFile("qa_data/xml/effectconnect/effconCreate.xml","utf-8")
Debug.Print "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 = 0) Then
    Debug.Print req.LastErrorText
    Exit Sub
End If

' Build a string-to-sign and sign it using our effectconnect private key
Dim sbStringToSign As New ChilkatStringBuilder
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 ChilkatCrypt2
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 New ChilkatHttpResponse
success = http.HttpSReq("submit.effectconnect.com",443,1,req,resp)
If (success = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Debug.Print "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.
Dim xmlResp As New ChilkatXml
success = xmlResp.LoadXml(resp.BodyStr)

Debug.Print "response body:"
Debug.Print 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")