Tcl

Check if a MIME Part is an Image

Demonstrates the Chilkat Mime.IsImage method, which returns whether the Content-Type begins with image/. 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: This locates image parts — inline graphics in a multipart/related message, or image attachments — so your code can preview thumbnails, extract them, or handle them differently from documents. It matches any image/ subtype, including image/svg+xml.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

set success 0

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

set mime [new_CkMime]

set success [CkMime_LoadMimeFile $mime "qa_data/multipart_message.eml"]
if {$success == 0} then {
    puts [CkMime_lastErrorText $mime]
    delete_CkMime $mime
    exit
}

set n [CkMime_get_NumParts $mime]
set part [new_CkMime]

for {set i 0} {$i <= [expr $n - 1]} {incr i} {
    set success [CkMime_PartAt $mime $i $part]
    if {$success == 0} then {
        puts [CkMime_lastErrorText $mime]
        delete_CkMime $mime
        delete_CkMime $part
        exit
    }

    if {CkMime_IsImage $part} then {
        puts "Part $i ([CkMime_contentType $part]) is an image."
    }

}

delete_CkMime $mime
delete_CkMime $part