Archived Forum Post

Index of archived forum posts

Question:

HTTP POST How to set the Content-ID of a AddFileForUpload

Apr 15 '17 at 16:26

I am adding 2 different files to a MIME for a upload over HTTP This is what I have in my code:

Dim http As New ChilkatHttp
Dim req As ChilkatHttpRequest
'  Adding the Connection: Keep-Alive is optional.  It only makes sense if the intent is to send
        '  additional requests to the same domain (your-namespace-sb.accesscontrol.windows.net) within a reasonable time period.
            req.AddHeader "X-EBAY-SOA-SERVICE-NAME", "FileTransferService"
            req.AddHeader "X-EBAY-SOA-OPERATION-NAME", APICALL
            req.AddHeader "X-EBAY-SOA-SECURITY-TOKEN", TokenValue
            req.AddHeader "X-EBAY-API-COMPATIBILITY-LEVEL", "967"
            req.AddHeader "X-EBAY-SOA-REQUEST-DATA-FORMAT", "XML"
            req.AddHeader "X-EBAY-SOA-RESPONSE-DATA-FORMAT", "XML"
        '  --------------------------------------------------
        '  IMPORTANT: Never set the Content-Length header.
        '  Chilkat will automatically compute the correct Content-Length and will add it.
        '  --------------------------------------------------

        '  Add the params to the request.  Given that the Content-Type is set to "multipart/form-data", when
        '  Chilkat composes the request, it will put each param in it's own MIME sub-part (i.e. in it's own
        '  part delimited by the boundary string).
        'req.AddParam "UploadAgent", "InterfaceVersion1.5"
        'req.AddParam "user", "XXX"
        'req.AddParam "password", "XXX"
        'req.AddParam "file", "XXX"
        'req.AddParam "data_version", "XXX"
        'req.AddParam "Content-ID", "<0.urn:uuid:" & XMLUUID & ">"

        Dim pathToFileOnDisk1 As String
        pathToFileOnDisk1 = "C:\Users\Station\Documents\Access XML Save Files\New Testing\uploadFile.xml"
        success = req.AddFileForUpload("uploadFile.xml", pathToFileOnDisk1)
        If (success <> 1) Then
            Debug.Print req.LastErrorText
            Exit Function
        End If

        '  The last param is the contents of a file.
        '  If it's a file on disk, we can add it like this:
        Dim pathToFileOnDisk2 As String
        pathToFileOnDisk2 = "C:\Users\Station\Documents\Access XML Save Files\New Testing\AFPIBulkTest1.gz"
        success = req.AddFileForUpload("AFPIBulkTest1.gz", pathToFileOnDisk2)
        If (success <> 1) Then
            Debug.Print req.LastErrorText
            Exit Function
        End If

This is what I get:

--------------060408050104030508030006
    Content-Disposition: form-data; name="AFPIBulkTest1.gz"; filename="AFPIBulkTest1.gz"
    Content-Type: application/x-gzip

    ‹ÌÝìX AFPIBulkTest1.xml ½Y_oÓ0Gâ;X}@ A“m°uý3`b…²n ñ‚ÜøÚR»Ø,|zÎIÚ´qZHëCeû~wþÙ>Ÿ

But this is what I need:

--MIMEBoundaryurn_uuid_C0FC77A812E40EAE841226969745133

Content-Disposition: form-data; name="fieldNameHere"; filename="AFPIBulkTest1.gz"
Content-Type: application/x-gzip
Content-Transfer-Encoding: binary
 Content-ID: <urn:uuid:5b23fffc-214d-11e7-93ae-92361f002671>

How do I add the Content-ID Header for the single Attachment? VBA in Access. Thanks

---

Answer

You would call HttpRequest.AddSubHeader(index,"Content-ID","<urn:uuid:5b23fffc-214d-11e7-93ae-92361f002671>"), where the 1st arg is the index of the sub-part (0 would be the index of the 1st MIME sub-part).