Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#Mono C#.NET Core C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicCkPythonChilkat2-PythonRubySQL ServerSwift 2Swift 3/4TclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.jsExcelGo

DataFlex Examples

Web API Categories

ASN.1
Amazon Glacier
Amazon S3
Amazon S3 (new)
Amazon SES
Amazon SNS
Amazon SQS
Async
Azure Cloud Storage
Azure Service Bus
Base64
Bounced Email
Box
CAdES
CSR
CSV
Certificates
Compression
DKIM / DomainKey
DSA
Diffie-Hellman
Digital Signatures
Dropbox
Dynamics CRM
ECC
Email Object
Encryption
FTP
FileAccess
Firebase
GMail REST API
Geolocation
Google APIs
Google Calendar
Google Cloud Storage
Google Drive
Google Photos
Google Sheets
Google Tasks
Gzip
HTML-to-XML/Text

HTTP
HTTP Misc
IMAP
JSON
JSON Web Encryption (JWE)
JSON Web Signatures (JWS)
JSON Web Token (JWT)
Java KeyStore (JKS)
MHT / HTML Email
MIME
Microsoft Graph
NTLM
OAuth1
OAuth2
OneDrive
OpenSSL
Outlook
PEM
PFX/P12
POP3
PRNG
REST
REST Misc
RSA
SCP
SFTP
SMTP
SSH
SSH Key
SSH Tunnel
SharePoint
Socket/SSL/TLS
Spider
Stream
Tar Archive
Upload
WebSocket
XAdES
XML
XML Digital Signatures
XMP
Zip
curl

 

 

 

(DataFlex) Extract Files from Binary SOAP MTOM MIME

This example demonstrates how to extract files from a binary SOAP MTOM MIME document.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoMime
    Boolean iSuccess
    Integer iNumParts
    Handle hoSbFilename
    String sName
    Integer i
    Variant vMp
    Handle hoMp
    Integer iNumReplaced
    String sTemp1

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

    Get Create (RefClass(cComChilkatMime)) To hoMime
    If (Not(IsComObjectCreated(hoMime))) Begin
        Send CreateComObject of hoMime
    End

    // In this example, we have a MIME file containing 8bit (non-encoded) binary data,
    // and it is what I call "headless".  MIME is headless when it omits
    // the top-level header.  The file we have here begins with the first
    // boundary string.

    // The structure the MIME to be loaded is:

    // multipart/mixed (inferred because it is headless)
    //     application/xop+xml
    //     image/jpeg
    //     image/gif
    //     image/gif
    // 

    Get ComLoadMimeFile Of hoMime "qa_data/mime/headless_binary_soap_mtom_mime.mim" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoMime To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // The MIME file loaded in this example contains this:

    // --uuid:e74486f4-52b0-44b6-b829-156810fae20d
    // Content-Type: application/xop+xml; charset=UTF-8; type="application/soap+xml"
    // Content-Transfer-Encoding: binary
    // Content-ID: <root.message@cxf.apache.org>
    // 
    // <soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope"><soap:Body> ... </soap:Body></soap:Envelope>
    // --uuid:e74486f4-52b0-44b6-b829-156810fae20d
    // Content-Type: image/jpeg
    // Content-Transfer-Encoding: binary
    // Content-ID: <beee83b7-166c-494c-890a-def990e9887b-1496@cxf.apache.org>
    // Content-Disposition: attachment;name="-2049913191"
    // 
    // BINARY DATA HERE...
    // 
    // --uuid:e74486f4-52b0-44b6-b829-156810fae20d
    // Content-Type: image/gif
    // Content-Transfer-Encoding: binary
    // Content-ID: <beee83b7-166c-494c-890a-def990e9887b-1497@cxf.apache.org>
    // Content-Disposition: attachment;name="-2049913188"
    // 
    // BINARY DATA HERE...
    // 
    // --uuid:e74486f4-52b0-44b6-b829-156810fae20d
    // Content-Type: image/gif
    // Content-Transfer-Encoding: binary
    // Content-ID: <beee83b7-166c-494c-890a-def990e9887b-1498@cxf.apache.org>
    // Content-Disposition: attachment;name="-2049913185"
    // 
    // BINARY DATA HERE...
    // 
    // --uuid:e74486f4-52b0-44b6-b829-156810fae20d--

    // Get the number of MIME sub-parts.
    Get ComNumParts Of hoMime To iNumParts

    // The 1st part at index 0 is the application/xop+xml.  We're just going to extract the JPG and GIF image files..
    Get Create (RefClass(cComChilkatStringBuilder)) To hoSbFilename
    If (Not(IsComObjectCreated(hoSbFilename))) Begin
        Send CreateComObject of hoSbFilename
    End

    Move 1 To i
    While (i < iNumParts)
        Get ComGetPart Of hoMime i To vMp
        If (IsComObject(vMp)) Begin
            Get Create (RefClass(cComChilkatMime)) To hoMp
            Set pvComObject Of hoMp To vMp
        End

        // By looking at the MIME above, the "name" attribute of the Content-Disposition header field seems
        // to be the only possible name we can use for each image..
        Get ComAppend Of hoSbFilename "qa_output/" To iSuccess
        Get ComGetHeaderFieldAttribute Of hoMp "Content-Disposition" "name" To sName
        Get ComAppend Of hoSbFilename sName To iSuccess
        Get ComAppend Of hoSbFilename "." To iSuccess
        Get ComContentType Of hoMp To sTemp1
        Get ComAppend Of hoSbFilename sTemp1 To iSuccess
        Get ComReplace Of hoSbFilename "image/" "" To iNumReplaced
        Get ComGetAsString Of hoSbFilename To sTemp1
        Get ComSaveBody Of hoMp sTemp1 To iSuccess
        Get ComGetAsString Of hoSbFilename To sTemp1
        Showln "output file: " sTemp1

        Send Destroy of hoMp
        Send ComClear To hoSbFilename
        Move i + 1 To i
    Loop

    Showln "Success."


End_Procedure

 

© 2000-2019 Chilkat Software, Inc. All Rights Reserved.