PureBasic

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 PureBasic Downloads

Download Chilkat for PureBasic

PureBasic

IncludeFile "CkMime.pb"

Procedure ChilkatExample()

    success.i = 0

    ;  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.

    mime.i = CkMime::ckCreate()
    If mime.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkMime::ckLoadMimeFile(mime,"qa_data/multipart_message.eml")
    If success = 0
        Debug CkMime::ckLastErrorText(mime)
        CkMime::ckDispose(mime)
        ProcedureReturn
    EndIf

    n.i = CkMime::ckNumParts(mime)
    part.i = CkMime::ckCreate()
    If part.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    i.i
    For i = 0 To n - 1
        success = CkMime::ckPartAt(mime,i,part)
        If success = 0
            Debug CkMime::ckLastErrorText(mime)
            CkMime::ckDispose(mime)
            CkMime::ckDispose(part)
            ProcedureReturn
        EndIf

        If CkMime::ckIsApplicationData(part)
            Debug "Part " + Str(i) + " (" + CkMime::ckContentType(part) + ") is application data."
        EndIf

    Next


    CkMime::ckDispose(mime)
    CkMime::ckDispose(part)


    ProcedureReturn
EndProcedure