DataFlex

Check if a MIME Part is Application Data

Demonstrates the Chilkat Mime.IsApplicationData method, which returns whether the Content-Type begins with application/. It takes no arguments and applies to the current part.

Note: The file path is relative to the application's current working directory. Absolute paths may also be used. Supply the path to your own file.

Background: The application/ family covers everything that is not plain media or text — PDFs, Office documents, ZIP archives, JSON, and the S/MIME application/pkcs7-* types. This broad check is a quick way to flag "binary document" parts, though you will usually look at the specific subtype to decide how to handle each.

Chilkat DataFlex Downloads

Download Chilkat for DataFlex

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoMime
    Integer n
    Variant vPart
    Handle hoPart
    Integer i
    String sTemp1
    Boolean bTemp1

    Move False To iSuccess

    //  Demonstrates the Mime.IsApplicationData method, which returns whether the Content-Type begins with application/.  It takes no arguments and applies to the current
    //  part.  This example iterates the parts of a multipart message and reports which ones match.

    Get Create (RefClass(cComChilkatMime)) To hoMime
    If (Not(IsComObjectCreated(hoMime))) Begin
        Send CreateComObject of hoMime
    End
    Get ComLoadMimeFile Of hoMime "qa_data/multipart_message.eml" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoMime To sTemp1
        Showln sTemp1
        Procedure_Return
    End

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

    For i From 0 To (n - 1)
        Get pvComObject of hoPart to vPart
        Get ComPartAt Of hoMime i vPart To iSuccess
        If (iSuccess = False) Begin
            Get ComLastErrorText Of hoMime To sTemp1
            Showln sTemp1
            Procedure_Return
        End

        Get ComIsApplicationData Of hoPart To bTemp1
        If (bTemp1) Begin
            Get ComContentType Of hoPart To sTemp1
            Showln "Part " i " (" sTemp1 ") is application data."
        End

    Loop



End_Procedure