Tcl

Check if a MIME Part is Audio

Demonstrates the Chilkat Mime.IsAudio method, which returns whether the Content-Type begins with audio/. 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: Useful for classifying media attachments — a voicemail or audio note in a message, for example — so it can be routed to a player or handled distinctly from other content. It matches any audio/ subtype.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

set success 0

#  Demonstrates the Mime.IsAudio method, which returns whether the Content-Type begins with audio/.  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_IsAudio $part} then {
        puts "Part $i ([CkMime_contentType $part]) is audio."
    }

}

delete_CkMime $mime
delete_CkMime $part